1

У меня проблемы с получением кода VBA, который я адаптировал для своей программы. Есть вещи, которые я не понимаю, и я не знаю, как это исправить. Я пытаюсь отфильтровать данные из листа "Продажи" в сводный лист ремесленника. Вот текущий код VBA, который я пытаюсь адаптировать, но получаю код ошибки:

Sub Filter_Statement()

    On Error GoTo Filter_Statement_Error
    Dim ws As Worksheet
    Set ws = Sheet5

    Application.ScreenUpdating = False
    If ws.Range("D2").Value = "" Or ws.Range("E5").Value = "" Or ws.Range("H5").Value = "" Then
        MsgBox "Please fill in all of the needed information. Customer / Start Date / End Date"
    Exit Sub
    End If
    ws.Select
    ws.Range("ArtisanSummary").RemoveSubtotal
    Set area2 = Sheet4.Range("C2:K100000")

    area2.AdvancedFilter Action:=xlFilterCopy _
        , CriteriaRange:=ws.Range("R4:T5"), CopyToRange:=ws.Range("B10:E10"), _
        Unique:=False
    If ws.Range("B11").Value = "" Then
        MsgBox "No available data"
        Exit Sub
    End If
    Application.ScreenUpdating = True
    Groupit

    On Error GoTo 0
    Exit Sub

    Filter_Statement_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Filter_Statement of Module Filters"
End Sub

Я не уверен, что я делаю неправильно. Фото сводной страницы Страница, на которую мне нужны данные для входа Я пытаюсь ввести дату, количество, код и цену за единицу из листа продаж. Я выбираю код ремесленника в D2 и затем 2 даты в E5 и H5. Я попытался запустить код только с месяцем, в феврале. Но это тоже не работает. Я также прилагаю копию страницы продаж, откуда я беру данные. страница «Продажи» - мой 4-й лист, а «Резюме ремесленника» - 5-й лист Лист продаж Я использую Excel 2013, чтобы сделать это.

0