Ciao a tutti.
Nel mio programmino ho creato questa macro, ha la funzione di eliminare a ogni attivazione la prima riga della Tabella2 (intervallo Tabella B19:B40), e quando arriva alla riga del totale interrompe l’eliminazione di righe.
Tutto funziona bene se la tabella non è filtrata, ma se ho già attivato un filtro e erroneamente premo il pulsante per attivare la macro, mi dà un errore di debug dicendo che non è possibile spostare celle in una tabella o in un intervallo filtrato.
Qual è l’istruzione per evitare che questo errore di debug si verifichi?
In poche parole ho bisogno che se la tabella è filtrata la macro resti disattiva.
Grazie per l’attenzione
Application.ScreenUpdating = False
ActiveSheet.Unprotect
If Cells(20, 5) = "" Then Exit Sub
Range("B20:F20").Select
Selection.ListObject.ListRows(1).Delete
Range("B17").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub