Estimados necesito ayuda con esto, necesito que en dos columnas continuas me evalúe el criterio de duplicidad, copie esta macro y solo me funciona en una columna y no en las dos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect([h103:g10], Target) Is Nothing Then ActiveCell.Select

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 8 Then Exit Sub

If Application.CountIf([h103:g10], Target) > 1 Then

MsgBox " ¡¡¡ Lugar ya se encuentra asignado !!!"

Application.Undo

End If

End Sub

atento a su respuesta

Marcos

Marcos

Para analizar tu problema sugiero que subas un archivo y así podré buscarte una solución

Javier

Adjunto el archivo

DESTINACION.xls

Estimado Marcos

Después de tanto dolor de cabeza, creo haber encontrado tu problema.

Por Favor verificas al respecto y luego comentame

DESTINACION-version1.xls