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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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