Мой код собирает информацию на основе другого файла, который представляет собой просто данные, а также копирует и вставляет данные в мою основную папку. Это касается Dim, который я установил в диапазоне B1, но прямо сейчас, если данные в B1 не найдены в поле, которое я ищу, он просто копирует все пустые ячейки в основную папку.
Мне нужно, чтобы он остановился, если переменная не находится в поле
Sub Sheet01()
'
' Sheet01 Macro
'
'
Application.ScreenUpdating = False
Dim varField As String
varField = Range("B1")
With ActiveSheet
Range("Q3:AA2999").Select
Selection.ClearContents
Workbooks.Open Filename:= _
"V:\Training\Share\Intraday Training Tracker\Agent Suite Raw Data\AgentSuite - Current.xlsx"
Sheets("ActivityDetails").Select
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=4, Criteria1:=Array( _
"CS", "Cons", "Medium", "MobOutbound", "NC", _
"PMobile", "Personal Team", "ST", "SmBu", "Tech", _
"Tech Support "), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=10, Criteria1:=Array( _
"Complete", "Eligible", "NotScheduled", "Processing", "Scheduled"), Operator:=xlFilterValues
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=11, Criteria1:="1"
ActiveSheet.Range("$A$1:$K$197561").AutoFilter Field:=1, Criteria1:=varField
В настоящее время я не получаю никаких сообщений об ошибках.
