На листе до строки 1542 расположена информация фрагмент прилагаю. В колонке M:M всякие разные данные цифры буквы и их смесь. Требуется макрос который выполняет: 1. Бежит и ищет слово «удалит», найдя выделяет и очищает E1:H4 2. В F2 ставит У И так далее по циклу пока не достигнет строки 1542.
Sub Macro1()
Dim FindRng As Range, TxtFind As String, FirstAdr As String
TxtFind = "Удалит"
Set FindRng = Columns(13).Find(What:=TxtFind, LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious)
If Not FindRng Is Nothing Then
FirstAdr = FindRng.Address
Do
Range(Cells(FindRng.Row, 5), Cells(FindRng.Row + 3, 8)).Value = ""
Cells(FindRng.Row + 1, 6) = "У"
Set FindRng = Cells.FindNext(FindRng)
Loop While FindRng.Address <> FirstAdr
Else
' MsgBox "Значение " & TxtFind & " не найдено!", 48, "Ошибка!"
End If
End Sub
С поиском даты не получается. Вместо Удалит нужен поиск даты. Нужно при запуске макроса окошко с UserForm для ввода даты в формате Д.М. Подскажите пожалуйста каким будет код. П.с. после ввода Д.М в ячейки появляется ДД.ММ.ГГГГ. это к тому что поле также должно отрабатывать