Excel 2016 - таблица ошибок VBA

Надеюсь, кто-то может помочь, я получаю сообщение об ошибке в коде ниже с >>>>> рядом с ним?

Это происходит, когда я ссылаюсь на лист по его кодовому имени, а не по имени вкладки.

Любая помощь или совет?

Private Sub CommandButton1_Click()

 Dim lngStart As Long, lngEnd As Long
    lngStart = Sheet5.Range("A2").Value 'assume this is the start date
    lngEnd = Sheet5.Range("A3").Value 'assume this is the end date

    Application.ScreenUpdating = False
    Sheet100.Visible = True
    Sheet105.Visible = True

    'assume you have field name / label in D29
    Sheet100.Unprotect Password:="MM@MM.com"
    Sheet100.Select
   >>>>>>>>> ActiveSheet.ListObjects("tbl_summary_1").Range.AutoFilter field:=8,
   >>>>>     Criteria1:=">=" & lngStart, _
   >>>>>     Operator:=xlAnd, _
   >>>>>     Criteria2:="<=" & lngEnd
    Sheet100.Protect Password:="MM@MM.com", AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

    Sheet105.Unprotect Password:="MM@MM.com"
    Sheet105.Select
    ActiveSheet.ListObjects("tbl_kpi").Range.AutoFilter field:=7, _
        Criteria1:=">=" & lngStart, _
        Operator:=xlAnd, _
        Criteria2:="<=" & lngEnd
    Sheet105.Protect Password:="MM@MM.com", AllowFiltering:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

    Sheet3.Select

    Sheet100.Visible = xlVeryHidden
    Sheet105.Visible = xlVeryHidden
    Application.ScreenUpdating = True

On Error GoTo ErrorHandler
Sheets(Range("H19").Value).Select
Exit Sub

Заранее спасибо

Источник

0 ответов

Другие вопросы по тегам