Modificación valores

[sprit36]

Buenos días, necesito cambiar los valores de una hoja, los valores que aparecen como 100% deben ser 0% y el 0% debe ser 100%.

Adjunto ejemplo.

Gracias.

Ejemplo.xlsx

[Israel Cassales]

Sub CambiarValores()
    Dim celda As Range
    For Each celda In ThisWorkbook.Sheets("Hoja1").Range("A2:A30")
        If celda.Value = 0 Then
            celda.Value = 1
        ElseIf celda.Value = 1 Then
            celda.Value = 0
        End If
    Next celda
End Sub

En base a lo explicado un código como el anterior debería servir.

Ejemplo.xlsb

Editado el el 11 de enero por Israel Cassales

[sprit36]

Muchas gracias Israel, es justo lo que necesitaba.

Un saludo