Как скопировать данные на другой лист без форматирования

hellm Пользователь Сообщений: 109 Регистрация: 23.12.2014	#1 22.08.2017 00:41:53 Адрес, цену и пр. Функция в vba для копирования у меня есть, а вот, чтоб без форматирования - нет. Простой черный текст меня бы вполне устроил. Как быть, подскажите? Прикрепленные файлы test.xlsm (41.89 КБ)

tolstak

Пользователь

Сообщений: 471 Регистрация: 01.08.2017

22.08.2017 01:24:21

hellm, замените

Код
Name.Copy Sheets("List2").Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)

на

Код
Name.Copy Sheets("List2").Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues Application.CutCopyMode = False ' Опционально

Изменено: tolstak - 22.08.2017 01:24:35

In GoTo we trust

Nordheim

Пользователь

Сообщений: 3154 Регистрация: 18.04.2017

22.08.2017 08:49:10

Код

Sheets("List2").Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) = Name.Value
Sheets("List2").Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = street.Value
Sheets("List2").Cells(Rows.Count, "E").End(xlUp).Offset(1, 0) = city.Value
Sheets("List2").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = stamp_value.Value

"Все гениальное просто, а все простое гениально!!!"

hellm Пользователь Сообщений: 109 Регистрация: 23.12.2014	#4 22.08.2017 10:56:05 tolstak, Nordheim, спасибо Вам огромное. Оба варианта работают!

Читают тему