Alerta por dato duplicado

[Gerson Pineda]

hace 4 minutos , Mohamad Marrawi Marrawi dijo:

¿En qué parte tendría que poner tu código?

Al inicio

 

[Mohamad Marrawi Marrawi]

¿Podrías precisar más? Con el fragmento que te he mostrado, ¿cómo quedaría el resultado?

[Mohamad Marrawi Marrawi]

En 11/12/2022 at 10:43 , FGV dijo:

Otra opción es utilizar la función DESREF para  incluir en la validación todo el rango de la columna B que contenga datos, de forma que al escribir un dato en cualquier fila de esa columna, el rango dinámico lo asume en la validación:

En el ejemplo la validación personalizada con esa fórmula llega hasta la fila 1000, puedes reducirla o aumentarla como quieras. Un saludo, Fernando

Hola @FGV

He aplicado tu fórmula en B2 y ya muestra una alerta al introducir el primer dato en esa celda, y sin que hayan más datos en las otras ?

[Mohamad Marrawi Marrawi]

Hola @Gerson Pineda

Ya funciona perfectamente escribiendo así:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vr As Integer
 With Target
    If .Column = 2 Or .Column = 5 Or .Column = 8 Then
        vr = Application.CountIf(Range(.EntireColumn.Address), .Value)
        If vr > 1 Then
            VBA.MsgBox "Entrada duplicada " & .Value
            .Value = Empty
            .Select
        End If
    End If
 End With
 If Not Intersect(Target, Range("B:B,E:E,H:H")) Is Nothing And InStr(1, Target.Address, ":") = 0 Then
  If Target <> Empty Then
   Target.Offset(0, 1).Value = Date
  Else
   Target.Offset(0, 1).Value = ""
  End If
 End If
End Sub

Private Sub Worksheet_Deactivate()

End Sub

Gracias por todo ? 

[Mohamad Marrawi Marrawi]

Hola @Gerson Pineda

Si quisiera crear una nueva hoja dentro del mismo libro, de manera que cada hoja se correspondiera con un mes, ¿tendría que copiar el código de VB de la hoja 1 y pegarlo en la hoja 2, y así cada vez que cree una hoja nueva?

¿Habría alguna manera de retocar el código para que se aplicara en cada hoja nueva?

 

Gracias

 

 

[Gerson Pineda]

Puedes utilizar el evento SheetChange del libro

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim vr As Integer
 With Target
    If .Column = 2 Or .Column = 5 Or .Column = 8 Then
        vr = Application.CountIf(Range(.EntireColumn.Address), .Value)
        If vr > 1 Then
            VBA.MsgBox "Entrada duplicada " & .Value
            .Value = Empty
            .Select
        End If
    End If
End With
 
End Sub

Pegarlo en THISWORKBOOK

[Mohamad Marrawi Marrawi]

¡Gracias fenómeno!

[Mohamad Marrawi Marrawi]

Hola @Gerson Pineda,

Lo que veo es que en la hoja 2, al meter un valor, no me está metiendo la fecha en la celda adyacente (columna C), tal y como sucedía en la hoja 1.  

 

[Gerson Pineda]

hace 3 horas, Mohamad Marrawi Marrawi dijo:

Hola @Gerson Pineda,

Lo que veo es que en la hoja 2, al meter un valor, no me está metiendo la fecha en la celda adyacente (columna C), tal y como sucedía en la hoja 1.  

 

Para que todo te funcione bien, debes trasladar los eventos de hoja a libro, en THISWORKBOOK

 

[Mohamad Marrawi Marrawi]

Me lo figuraba. Así lo he hecho y ha funcionado correctamente. Gracias fenómeno:-)

[Gerson Pineda]

hace 30 minutos , Mohamad Marrawi Marrawi dijo:

Me lo figuraba. Así lo he hecho y ha funcionado correctamente. Gracias fenómeno:-)

¡Enhorabuena!