Developing.ru

Как сделать чтобы при переносе из одного листа в другой, автоматический ячейка становилось с форматом "дата". У меня сделано вот так
/code
Sheets("Лист1").Cells(LastRow + 1, 2).Value = Range("Date2")
/code
на листе1 дата отображается как число, и формат ячейки общий.

Вот код который вам поможет.
Устанавливает нужный формат в конкретной ячейке. Вместо Cells() можно использовать Range, Rows или Columns

Worksheets("Sheet1").Cells(1, "D").NumberFormat = "DD.MM.YYYY"

Спасибо, получилось.