Witam.

W pogrubionym polu kodu zaznaczyłam jakie wyskakują błędy. Jak mogę poprawić kod tak, aby działał poprawnie?

Z góry dziękuję.

Pozdrawiam.
Ania L.

Sub Delete_Rows_Based_On_Multiple_Values()
'Apply a filter to a Table and delete visible rows

Dim lo As ListObject

'Set reference to the sheet and Table.
Set lo = sheet1.ListObjects(1)  'tutaj wyskakuje mi run time error /object required 
lo.Parent.Activate 'Activate sheet that Table is on.


'Clear any existing filters
lo.AutoFilter.ShowAllData

On Error Resume Next

'1. Apply Filter - Blanks in Product for before 2015 only
lo.Range.AutoFilter Field:=7, Criteria1:="Gutgeschriebene Transaktionen"
lo.Range.AutoFilter Field:=7, Criteria2:="Laufende Transaktionen"

lo.Range.AutoFilter Field:=7, Criteria3:="Nicht gezahlte Transaktionen" 'tutaj wyskakuje błąd compile error /named argumented not found (takiego argumentu nie ma w pliku, ale będą pliki, w których będzie trzeba coś wpisać, aby ten błąd nie występował)

'2. Delete Rows
Application.DisplayAlerts = False
lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

'3. Clear Filter
lo.AutoFilter.ShowAllData

End Sub