Jump to content
Sign in to follow this  
SALAVERRINO

Mostrar codigo duplicado

Recommended Posts

Pon esta macro de evento en la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Interior.ColorIndex = xlNone
If Target <> Empty Then
Set celda = Columns("B:B").Find(What:=Target.Value, LookAt:=xlWhole)
If celda.Address <> Target.Address Then
Beep
Target.Interior.Color = vbYellow
Rows(celda.Row).Select
MsgBox "El Código de trabajador ya existe en la fila " & celda.Row
End If
End If
End If
End Sub
[/CODE]

Share this post


Link to post
Share on other sites

Buenas noches [uSER=46507]@Macro Antonio[/uSER],, solo quería hacer menciona una observación mas, que omite por apuro era que si al aporte que brindas se podía poner la opción de eliminar el CODTRA duplicado con la pregunta ELIMINAR Si / No.

Gracia.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png