Имеется файл на месяц, который заполняют сотрудники. Каждому листу соответствует свой день. На каждом листе имеется ячейка с датой. Когда месяц заканчивается, нужно создать шаблон на следующий. Для этого в каждом листе нужно поменять месяц в ячейке с датой но так, чтобы число осталось неизменным. Пыталась написать макрос самостоятельно, но он не работает. Может кто-то сталкивался с такой задачей и знает как ее легко и просто решить. Желательно так, чтобы человек, который это делал просто нажимал на кнопку и указывал на какой месяц сделать замену.
Код моего макроса ниже
Файл весит больше 100 КБ, поэтому приложила его часть из 4 листов вместо 31
Код моего макроса ниже
| Код |
|---|
Sub Заменамесяца()
'
' Заменамесяца Макрос
'
'
MP = Month(Range("AD2"))
If MP < 10 Then
MP = "0" & MP
End If
M = InputBox("Введите месяц: ", M)
For лист = 1 To 31
Sheets(лист).Select
Range("AD2").Select
Cells.Replace What:="." & MP & ".", Replacement:="." & M & ".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next лист
End Sub |
Файл весит больше 100 КБ, поэтому приложила его часть из 4 листов вместо 31
