Macro que evalúa si existe un valor y si existe evita que se genere otra macro.
Tengo una macro (Gurdar) que copia información de la hoja1 y la pega en hoja2, pero yo quisiera agregarle una macro a la macro (Guardar) que haga lo siguiente: que evalué si la información que esta en la hoja1 B2 existe en la hoja2 columna B, si no existe que la macro guardar se siga ejecutando normal, pero si existe que no se ejecute la macro.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la validación:
Sub Guardar()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
If h1.[B2] = "" Then
MsgBox "Captura un dato en B2", vbExclamation, "GUARDAR"
Exit Sub
End If
Set b = h2.Columns("B").Find(h1.[B2], lookat:=xlWhole)
If Not b Is Nothing Then
MsgBox "El dato ya existe", vbCritical, "GUARDAR"
Exit Sub
End If
'
'Continúa tu macro
'
'Fin de tu macro
MsgBox "El dato se guardó", vbInformation, "GUARDAR"
End SubSi tienes problemas y no está encontrando el "dato", dime qué tienes en B2, una fecha, un número, un texto?
':) ':)
