Borrar ceros con macros en diferentes rangos
Yo quisiera borrar ceros en diferentes rangos, tengo un código que los elimina en un rango especificado, pero yo quisiera eliminar ceros en diferentes rangos, ¿cómo se podría hacer? Este es el código que tengo :
Sub removezero()
Dim rango As Range
Set rango = Range("h4:s18")
For Each celda In rango
If celda.Value = 0 Then
celda.ClearContents
End If
Next
End Sub
1 Respuesta
¿A qué te refieres con "en varios rangos"?
Prueba esto... Este ejemplo limpia dos rangos. Si quieres más rangos.. duplica las líneas "Set rango ..." y "Call remo..." tantas veces como necesites, actualizando el rango que quieras:
Sub removezero()
Dim rango As Range
Set rango = Range("a1:b8")
Call removeRango(rango)
Set rango = Range("d1:e8")
Call removeRango(rango)
End Sub
Private Sub removeRango(r As Range)
For Each celda In r
If celda.Value = 0 Then
celda.ClearContents
End If
Next
End Sub
