Ciao Ricky, ciao Avatar.
Ricky, non insultarmi, ti ho fatto impazzire 3 gg a fare prove poi oggi mi è venuta in mente una cosa..
Tempo fa avevo chiesto una formula da inserire in tabella, Anthony mi aveva creato questa:
- Codice: Seleziona tutto
=SE(SUBTOTALE(3;E:E)<>CONTA.VALORI(E:E);SUBTOTALE(9;F19:F40);"")
Specifico ovviamente per gli inesperti come me
Inserendo questa formula nella Riga del Totale di una Tabella a 5 colonne, (precisamente ai piedi di colonna F nel caso in cui la tabella occupi le colonne da B a F) si ottiene il risultato di nascondere il totale quando non è stato attivato nessun filtro, al contrario se si attiva un filtro su una qualsiasi colonna, il risultato diventa visibile).
Basandomi su questa informazione ho aggiunto questo if alla macro:
- Codice: Seleziona tutto
If Range("Tabella2[[#Totals],[Importo]]") <> "" Then Exit Sub
La macro ora è così:
- Codice: Seleziona tutto
Application.ScreenUpdating = False
ActiveSheet.Unprotect
If Range("Tabella2[[#Totals],[Importo]]") <> "" Then Exit Sub
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
Questa modifica fa proprio quello che volevo.
Ringrazio Avatar3 per l’intervento
Ricky, con te mi scuso e ti ringrazio ancora.. Ti ho fatto buttare via un sacco di tempo…
Non mi era proprio venuto in mente prima di sfruttare questa formula per aggiustare la macro..
Com’ è successo già altre volte, le intuizioni (nel mio piccolo) mi vengono quando sono lontano dal pc..
Ciao a tutti
Paolo