Macro para buscar número y reemplazarlos

Tengo una base datos en el rango D2:Q, que tiene números, requiero buscar los números menores a 1.000 y reemplazarlos por 0

1 respuesta

Respuesta
1

Prueba la macro

Sub macro()
'
    For Each r In Range("D2:Q20")
        If r.Value < 1000 Then r.Value = 0
    Next r
    mgbox "fin"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas