Саб прыгает на второй Саб, почему

Question

Я пытаюсь сделать так, чтобы при нажатии на поле со списком он скрывал ненужные столбцы, чтобы пользователь мог выбрать свои предпочтения, а затем нажимал кнопку «Добавить», чтобы перенести информацию на страницу для печати (отдельный лист) ). У меня все работало хорошо, пока я не добавил код скрытых столбцов, и теперь, когда я запускаю свою командную кнопку, она переходит с кода командной кнопки на код столбца, и я понятия не имею, почему. если бы кто-нибудь мог мне помочь, это было бы здорово. Добавлены заметки, помогающие решать проблемы при кодировании. Вот код:

    Private Sub CommandButton1_Click()

    Dim cnt As Integer
    Dim ra As Range
    Dim a As String
    Dim y As Long
    Dim Target As Range

    'Variable list:
    'titl = title of header,
    'ra = cell address of found title name,
    'aa = simplified cell address,
    'rw = splic row address
    'clm = splic column address,
    'x = counting range,
    'cnt = counted cell numbers,
    'a = imput value 1,
    'b = imput value 2,
    'c = a and b joined
    'sa = second title address

    titl = Me.ComboBox4.Value

    MsgBox (titl)

    'this would be to go until another title
    If titl = "Caulking" Then
       e = "Frame system"
    ElseIf titl = "Frame system" Then
       e = "?*"
    ElseIf titl = "Color" Then
       e = "Caulking"
    End If

   'these to sets find the titles locations
   Set ra = Worksheets("Print page").Cells.Find(What:=titl, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False)

   If ra Is Nothing Then
      MsgBox ("Not found")
   Else
      aa = ra.Address
   End If

   rw = Range(aa).Row
   clm = Range(aa).Column

   x = aa + ":B44"

   cnt = WorksheetFunction.CountIf(Worksheets("Print page").Range(x), "?*")

   'setting values for Do Until loop below
   tr = Worksheets("Print page").Cells(rw, clm).Value

   'Reads cell values, maybe could change to a for loop to do larger quantities or set directly to 
    drop down menu
    a = Cells(4, 1).Value
    b = Cells(4, 2).Value
    d = Cells(4, 3).Value

    'Combines values
     c = a & " " & b

    If Worksheets("Print page").Cells(rw, clm).Value = tr Then
      Do Until Worksheets("Print page").Cells(rw, clm).Value = ""
        rw = rw + 1
    Loop
    End If

  '*(this is where is starts jumping if I comment it out it jumps on number 2 i marked and then if I 
     'comment that one out it goes to 3, if I take these out it runs, but I can't write my 
     'information to the print page)*    

     Worksheets("Print page").Cells(rw, clm).Insert Shift:=xlDown

     ' writes it to correct location
    If Worksheets("Print page").Cells(rw, clm).Value = "" Then
       Worksheets("Print page").Cells(rw, clm).Value = c '*(2)*
    Else: Worksheets("Print page").Cells(rw + cnt, clm).Value = c '*(3)*
    End If

    End Sub'''

(этот код ниже для скрытия столбцов, зависящих от поля со списком)

   Private Sub ComboBox3_Change()

    If ComboBox3 = "Frame system" Then
        Cells(7, 1).EntireColumn.Hidden = False
        Cells(7, 2).EntireColumn.Hidden = False
        Cells(7, 3).EntireColumn.Hidden = True
        Cells(7, 4).EntireColumn.Hidden = True
        Cells(7, 5).EntireColumn.Hidden = True
        Cells(7, 6).EntireColumn.Hidden = True
        Cells(7, 7).EntireColumn.Hidden = True
    ElseIf ComboBox3 = "Color" Then
        Columns("A").EntireColumn.Hidden = True
        Columns("B").EntireColumn.Hidden = True
        Columns("C").EntireColumn.Hidden = False
        Columns("D").EntireColumn.Hidden = True
        Columns("E").EntireColumn.Hidden = True
        Columns("F").EntireColumn.Hidden = True
        Columns("G").EntireColumn.Hidden = True
    ElseIf ComboBox3 = "Door" Then
        Columns("A").EntireColumn.Hidden = True
        Columns("B").EntireColumn.Hidden = True
        Columns("C").EntireColumn.Hidden = True
        Columns("D").EntireColumn.Hidden = False
        Columns("E").EntireColumn.Hidden = False
        Columns("F").EntireColumn.Hidden = False
        Columns("G").EntireColumn.Hidden = False
    Else
        Columns("A").EntireColumn.Hidden = False
        Columns("B").EntireColumn.Hidden = False
        Columns("C").EntireColumn.Hidden = False
        Columns("D").EntireColumn.Hidden = False
        Columns("E").EntireColumn.Hidden = False
        Columns("F").EntireColumn.Hidden = False
        Columns("G").EntireColumn.Hidden = False
    End If

    'This macro scrolls to the top left of your spreadsheet (cell A1)
    ActiveWindow.ScrollRow = 1 'the row you want to scroll to
    ActiveWindow.ScrollColumn = 1 'the column you want to scroll to

   End Sub

Вот изображение моего листа Excel, если это поможет: введите описание изображения здесь

Answer 1

Я нашел ответ. Именно из-за процедуры изменения во втором коде некоторые из вас упомянули Private Sub ComboBox3_Change() для моих целей, я изменил это значение на Private Sub ComboBox3_DropButtonClick(), и оно работает нормально, но если вы не можете сделать это, это решение Как не вызывать событие ComboBox Change при изменении списка источников. , вероятно, является вашей следующей лучшей ставкой.

FYI Application.EnableEvents = False не работает с комбинированными списками, см. ссылку выше для получения дополнительной информации.