
Sub NascondeRiga()
Dim CL As Object
For Each CL In Range("f52:f101")
If CL.Value = "" Then CL.EntireRow.Hidden = True
Next CL
End Sub |
Range("nome_intervallo") |
Sub NascondeRiga()
Dim CL As Object
For Each CL In Range("Nascondibile")
If CL.Value = "" Then CL.EntireRow.Hidden = True
Next CL
End Sub |
