Здравствуйте, подскажите пожалуйста, можно ли макросом сделать следующее. У меня листы в книги названы "01 июня", "02 июня", "03 июня" и т.д, можно ли на каждом листе книги проставить в ячейки "G1" дату например, если "01 июня", то в ячейки "G1" поставить 01.06.2022 и так до "31 декабря".
Валерий Б, здравствуйте. Можно макросом, но можно (с танцами и бубнами) и формулами через функцию =ЯЧЕЙКА(). С вас — файл-пример и каким вариантом нужно решение.
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Sub FillDate()
Dim dt As Date
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
dt = 0
On Error Resume Next
dt = DateValue(sh.Name)
On Error GoTo 0
If dt > 0 Then sh.Range("G4").Value = dt
Next
End Sub