Ciao
ciao Al
metti questa su un pulsane
e se nella colonna F trova un valore = o < a 0 elimina la riga
Sub elimina()
Dim i As Long, LastRow As Long
LastRow = Range("F" & Rows.Count).End(xlUp).Row
For i = LastRow To 1 Step -1
If LCase(Cells(i, "F").Value) <= 0 Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
Al se la vuoi limitare al range f20 divertiti io ora vado al lavoro