У меня проблемы с получением кода 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, чтобы сделать это.