ВСТАВКА ДАТЫ ВРЕМЕНИ

[Cone]

День добрый! Как говорить с чем дальше в лес тем больше дров. Вот такой вот не большой вопрос у меня! Дело в том что при занесении некоторых данных нужно чтобы прописывалась текущая дата , но если вставлять =СЕГОДНЯ(), значение все время будет обновляться согласно текущей даты, как заносить значение текущей даты в указанную ячейку.

К примеру


Sub new_action_week()

Sheets("EX").Select
Range("G:H")Select
Selection.Copy
Sheets("HEAD").Select
Range("G:G").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
этеперь тут надо указать что на в ячейку (G16) надо занести текущую дату


End Sub

Заранее благодарю


"напомню в екселе я канистра!"

[doober]

С вашего позволения немного сократил

Sub new_action_week()
Sheets("EX").Columns("G:H").Copy
Sheets("HEAD").Columns("G:G").Insert Shift:=xlToRight
Sheets("HEAD").Range("G16") = Format(Now, "dd.mm.yyyy")
End Sub

[Cone]

Сообщение от doober

С вашего позволения немного сократил

Sub new_action_week()
Sheets("EX").Columns("G:H").Copy
Sheets("HEAD").Columns("G:G").Insert Shift:=xlToRight
Sheets("HEAD").Range("G16") = Format(Now, "dd.mm.yyyy")
End Sub

Спасибо за помощь,
написал имеено так потому что пытаюсь готовить свои макросы из ранее записанных,
а в них алгоритм копирования и вставки именно такой! Теперь буду юзать как вы показали!!