Несоответствие типов, но нет явного несоответствия типов с Dim или использованием - PullRequest
Новая
       33

Несоответствие типов, но нет явного несоответствия типов с Dim или использованием

0 голосов
/ 10 апреля 2019

Этот цикл For-Loop выполняет именно то, что я хочу, но затем, похоже, возникают проблемы с выходом из цикла и переходом к следующему коду. Не понимая, почему возникает несоответствие типов

Я использую этот же самый точный блок кода, чтобы больше копировать и вставлять из разных источников в мастер-лист для моих записей, и он отлично работает. По какой-то причине этот конкретный отличается, и нет очевидной причины, потому что я буквально только что скопировал и вставил код и изменил имена рабочих листов в более поздних блоках 

Dim a As Long
Dim b As Long
b = 2

Worksheets.Add(After:=Worksheets("Tour Info")).Name = "Optional Excursions"
Workbooks("Tour Code Optionals").Worksheets("2019 Internal Descriptions").Range("A1:Z1").Copy
Workbooks("AAB").Worksheets("Optional Excursions").Range("A1:Z1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("AAB").Worksheets("Optional Excursions").Range("A1:Z1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
For a = 2 To 422
    If InStr(Workbooks("Tour Code Optionals").Worksheets("2019 Internal Descriptions").Range("C" & a), Workbooks("AAB").Worksheets("Tour Info").Range("A1")) > 0 Then
    Workbooks("Tour Code Optionals").Worksheets("2019 Internal Descriptions").Range("A" & a, "Z" & a).Copy
    Workbooks("AAB").Worksheets("Optional Excursions").Range("A" & b, "Z" & b).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Workbooks("AAB").Worksheets("Optional Excursions").Range("A" & b, "Z" & b).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    b = b + 1
    End If
Next
...