
Sub Elimina()
Dim n As Range
For Each n In [D5:E300;"=>0<21"]
[D5:E300].Replace n, "", xlWhole
Next
End Sub |
Sub Elimina()
Dim n As Range
For Each n In [D5:E300,M5:N300]
if n >= 0 and n <= 20 then n = ""
Next
End Sub |
