У меня есть некоторый код, который я положил вместе с рекордером макросов, и несколько проб и ошибок, которые я запускаю, и он работает нормально, но я хотел бы добавить поле ввода, которое будет заполнять значение счетчика как ввод, а не жестко заданный код.
Проще говоря, я перелистываю данные в одном столбце с помощью функции поиска. В большинстве случаев 10 циклов помогут найти эти данные и очистить содержимое. Я бы хотел изменить счетчик через поле ввода вместо редактирования моего кода.
Конечно, это легко, но я в тупике
Sub Searchclear()
'Search and clear Macro
Do Until counter = 10
counter = counter + 1
On Error Resume Next
Range("B2:B4000").Select
Selection.Find(What:="Date Range ", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Selection.ClearContents
Loop
End Sub
Следующий код такой же, как и выше, но с моей попыткой ввести поле ввода
Sub Searchcleara()
' Search and clear Macro
Dim counter As Integer
counter = InputBox("Enter number of Cycles")
Do Until counter = InputBox
counter = counter + 1
On Error Resume Next
Range("B2:B4000").Select
Selection.Find(What:="Date Range", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Select
Selection.ClearContents
Loop
End Sub