[gr8styl]

Καλησπέρα

Φίλε Μάκη δοκίμασε τις παρακάτω δύο συναρτήσεις στον κώδικα του φύλλου σου.
Σημ. Υποθέτω ότι δεν υπάρχει άλλο φίλτρο στο φύλλο.

Πες μας αν έγινε.

Θανάσης

Private Sub CommandButton1_Click()
'Insert something in cell E1 to be column heading
Range("$E$1").Value = " "
'Sets filter to column E and hides all lines with 0
Range("$E:$E").AutoFilter Field:=1, Criteria1:="<>0"
End Sub

Private Sub CommandButton2_Click()
'Removes filter
Range("$E:$E").AutoFilter
End Sub