fallo al comparar dos celdas

[Invitado Juan Pelfort]

Hola, tengo un código (sacado de foros de Internet) para comparar dos celdas, el caso es que funciona en principio.

pero hay dos fallos, donde pone: Range("S3") = resultado1 + 1     debería (de ser igual) un 1 y me pone 2

otro fallo: de entrada ya me ejecuta la macro y me da ese resultado pero yo al entrar el valor o nombre de la segunda celda a comparar ya no hace nada 

me imagino que es porque ya está ejecutada, debo poner algo para que espere que entre datos de segunda celda a comparar ?

Mando el código que tengo y muchas gracias.

Sub macro2()
Range("J8").Value = "Anselmo"
Range("J14").Value = "Nombre de la primera persona"
'<<<Celda J16 pendiente de entrar valor>>>
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim Str1 As String
    Dim Str2 As String
    Dim resultado1 As Long
    Str1 = Range("J8")
    Str2 = Range("J16")
    resultado1 = StrComp(Str1, Str2, vbTextCompare)
    Range("S3") = resultado1 + 1
    Sheets("Hoja1").Select
    Application.ScreenUpdating = True
    Range("A1").Select
    Application.EnableEvents = True

End Sub

 

 

[Gerson Pineda]

Hola 

Si la comparación es igual y utilizas vbTextCompare, te va devolver 0

 

Saludos

[Invitado Juan Pelfort]

Hola, este vbTextCompare ya está en mi código (que he enviado) o debo modificar esta linea y como ? gracias

[Gerson Pineda]

Hace 38 minutos , Juan Pelfort dijo:

Hola, este vbTextCompare ya está en mi código (que he enviado) o debo modificar esta linea y como ? gracias

Que resultados esperas al comparar cadenas con la funcion StrComp?

 

Saludos

[Invitado Juan Pelfort]

Estaba escrito así en el ejemplo que copié de Internet

[Gerson Pineda]

Hace 6 horas, Juan Pelfort dijo:

Estaba escrito así en el ejemplo que copié de Internet

Pero si no das mucha explicación o sin archivo, no comprendo

La ayuda puedes buscarla en el mismo Excel versión 2010 [o inferior] o busca por el foro, hay gran variedad de la función 

 

Saludos