Red de conocimiento informático - Problemas con los teléfonos móviles - Implementación de VBA Si A1 es igual a 1, entonces A2 es igual a 2

Implementación de VBA Si A1 es igual a 1, entonces A2 es igual a 2

Sub tt()

Dim i

i = [a65536].End(3).Row

Para j = 1 a i

Si VBA.IsNumeric(Range("A" & j)) And Range("A" & j) <> "" Entonces

Range("C" & j)= Range("A" & j)-990

Fin si

Siguiente

End Sub

Pruébalo, sí ¿No es eso lo que quieres decir?