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

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas