Копировать данные ячейки с форматом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Копировать данные ячейки с форматом (Макросы/Sub)

ovechkin1973

Дата: Вторник, 04.02.2020, 16:35 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Приветствую. Как можно скопировать данные из ячейки с ее форматом?
Сейчас я делаю так:
[vba]

Код

y= Cells(y1, 3)

[/vba]
т.е в в переменную копирую данные из нужной ячейки и переношу на другой лист, а нужно что данные переносились с форматом.

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

Nic70y

Дата: Вторник, 04.02.2020, 16:49 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

а если так
[vba]

Код

Cells(y1, 3).Copy Destination:=Sheets(2).Range("i11")

[/vba]

ЮMoney 41001841029809

Ответить

ovechkin1973

Дата: Вторник, 04.02.2020, 19:36 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата Nic70y, 04.02.2020 в 16:49, в сообщении № 2 ()

а если так

Это макрорекордером записано? Не хватаем "мозгов" совершенно этот код для своих нужд переделать.
Я в цикле с одного листа данные из 10ти ячеек записываю в переменные, а потом их вставляю на другом листе.

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

Nic70y

Дата: Вторник, 04.02.2020, 20:13 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Цитата ovechkin1973, 04.02.2020 в 19:36, в сообщении № 3 ()

Это макрорекордером записано?

нет

Цитата ovechkin1973, 04.02.2020 в 19:36, в сообщении № 3 ()

Я в цикле

показали бы файл

ЮMoney 41001841029809

Ответить

ovechkin1973

Дата: Вторник, 04.02.2020, 20:32 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата Nic70y, 04.02.2020 в 20:13, в сообщении № 4 ()

показали бы файл

Завтра скину.. он на работе остался.

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

ovechkin1973

Дата: Среда, 05.02.2020, 16:32 | Сообщение № 6

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата Nic70y, 04.02.2020 в 20:13, в сообщении № 4 ()

показали бы файл

Файл приложил. На листе Шаблон сметы макрос кнопкой запускается. Но числа с лист Общие данные нужно переносить с форматом. У меня теряются данные после запятой. Да и вообще хотелось бы иметь возможность с форматом ячейки данные переносить уметь.

К сообщению приложен файл: __.xlsm (77.0 Kb)

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

Nic70y

Дата: Среда, 05.02.2020, 21:01 | Сообщение № 7

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

ovechkin1973, увидел Ваш файл уже поздновато,
на первый взгляд ничего не понял,
слишком понапутано, разбираться долго (наверное) нужно,
куча Сэлэктов и т.п.
может проще описать проблему заново (а может и нет)
завтра посмотрю еще

ЮMoney 41001841029809

Ответить

ovechkin1973

Дата: Четверг, 06.02.2020, 04:31 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Могу заново... Код в в файле очень "дурной", но как умею, точнее совершенно не умею. Мне нужно скопировать данные из одной ячейки одного листа и вставить на другой, но не только данные, но и формат исходной ячейки. Потому как в исходной ячейке формат цифровой с округлением до 2го знака (но реально в ячейке хранится число полностью. Мне для точного расчета нужно полностью число.

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.