in questo modo ho potuto inoltre fare filtri più attinenti al settore e non quelli della tabella non sempre utili
giusto per condividere anche se praticamente non ho fatto niente
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
'Filtro su colonna AN
Dim i As Long
Dim UR As Long
'mytim = Timer
'
If Not Intersect(Target, Range("g2, g3, g4, g5, g6, g7, g8, g9, g10, g11, g12, g13")) Is Nothing Then
UR = 2500
Application.EnableEvents = False
ActiveSheet.Unprotect
ActiveSheet.Range("$an$15:$an$" & UR).AutoFilter Field:=1, Criteria1:="<>0"
ActiveSheet.Protect
Application.EnableEvents = True
' MsgBox (Format(Timer - mytim, "0.00"))
End If
End Sub
inoltre ho creato un pulsante che mi ripulisce le ormai tante celle che ordinano il filtro, in questo modo cliccando su questo pulsante si attiva la macro di cui sopra e si aggiorna rivisualizzando tutto
- Codice: Seleziona tutto
Sub Pulisci()
Dim zona As Range
Set zona = Range("g2:g13")
For Each cl In zona
If cl.Locked = False Then cl.ClearContents
Next
End Sub
http://oi68.tinypic.com/30agagw.jpg
vi ringrazio di nuovo! ora che mi sono iscritto quando posso darò una mano a chi è più nabbo di me, certo di vba non posso insegnare niente a nessuno purtroppo