Macro de VBA "rango.valor" que causa error

Question

tengo este codigo

Sub ifcitythencity()

If InStr(1, (range("A2").Value), "San Francisco") > 0 Then range.Value("B2") = "San Francisco"

End Sub

Pero cuando ejecuto el depurador, aparece el error "Error de compilación: el argumento no es opcional" y resalta el segundo "rango". ¿Qué está causando este error?

Answer 1

Estabas usando range.value("B2")en lugar de range("B2").value...

Sub ifcitythencity()

If InStr(1, (range("A2").Value), "San Francisco") > 0 Then range("B2").Value = "San Francisco"

End Sub

El error

argumento no opcional

le da la pista del problema: elrange(arg) objeto tiene quetener un argumento dentro del ().