Ayuda con una macro para no repetir el mismo dia del trabajador

[jeaa]

Buenas tardes, expertos nuevamente los solicito su ayuda habra una macro donde me permita rechazar cuando coloque X en una celda en la fila que se repita el trabajador sea de dia o noche (el trabajador debe trabajar un solo turno sea de dia o noche pero no ambos) . Por favor si hubiera una forma me pueden ayudar estare agradecido .

Ajunto una pequeña base de datos donde necesito la demostración de la macro.

VALORIZACION CONSTRUCCION ENERO - FEBRERO 22.xlsm

[Antoni]

Prueba con esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.CountLarge = 1 Then
   If Not Intersect(Target, Range("C:AG")) Is Nothing Then
      If Range("B" & Target.Row) = "DIA" Or Range("B" & Target.Row) = "NOCHE" Then
         If Not Range("A" & Target.Row) = "" Then
            Set nombre = Columns("A").Find(What:=Range("A" & Target.Row).Value, _
                                           After:=Range("A" & Target.Row), _
                                           LookAt:=xlWhole)
            If Not nombre Is Nothing Then
               If UCase(Target) = "X" And UCase(Cells(nombre.Row, Target.Column)) = "X" Then
                  MsgBox "Turno ya asignado en fila " & nombre.Row, vbCritical
                  Target = ""
                  Target.Select
               End If
            End If
         End If
      End If
   End If
End If
End Sub

 

[jeaa]

Antoni, muchas gracias funciona perfecto te lo agradezco un monton eres un genio