Saltar al contenido

Modificación valores

publicado

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

Featured Replies

publicado
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

publicado
  • Autor

Muchas gracias Israel, es justo lo que necesitaba.

Un saludo

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.