Macro que me alerte sobre la duplicidad de números introducidos
Quiero hacer una macro que me avise mediante un MsgBox ("Numero Duplicado")si cargo un numero que ya cargue yo la idee de la siguiente manera pero algo así pero no funciona
Sub Aviso()
If Range("W9:W598") = Selection.Interior.ColorIndex = 4 Then
MsgBox ("Nùmero Duplicado")
Else
MsgBox ("Datos Correctos")
End If
End Sub
Desde ya muchas gracias
Sub Aviso()
If Range("W9:W598") = Selection.Interior.ColorIndex = 4 Then
MsgBox ("Nùmero Duplicado")
Else
MsgBox ("Datos Correctos")
End If
End Sub
Desde ya muchas gracias
1 Respuesta
Respuesta
1
Lo que quieres hacer lo debes poner en el evento Change de la hoja donde tienes este rango; te paso el código
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("W9:W598"), Target) Is Nothing Then Exit Sub 'Si no es la W se va
If Evaluate("Countif(W9:W598," & Target.Value & ")") > 1 Then
MsgBox "Duplicado"
Else
MsgBox "Todo Bien"
End If
End Sub
Aunque yo lo haría son mensajes y haría que te avise de otra forma; una forma posible es seleccionar el rango (ej: W9:W598) y luego vas al menu formato > Formato Condicional;
sobre la izquierda pones Fórmula y sobre la derecha pon
=CONTAR.SI($W$9:$W$598;W9)>1
Y presiona el botón formato y pones (Ej/en fuente Negrita, color Rojo, Fondo Amarillo, etc)
(Asumo que estás en la celda W9)
De esta forma cuando ingreses un código duplicado te va a poner el la celda de otro color y lo vas a identificar de esta forma.
La ventaja de la última forma es que no usas código.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("W9:W598"), Target) Is Nothing Then Exit Sub 'Si no es la W se va
If Evaluate("Countif(W9:W598," & Target.Value & ")") > 1 Then
MsgBox "Duplicado"
Else
MsgBox "Todo Bien"
End If
End Sub
Aunque yo lo haría son mensajes y haría que te avise de otra forma; una forma posible es seleccionar el rango (ej: W9:W598) y luego vas al menu formato > Formato Condicional;
sobre la izquierda pones Fórmula y sobre la derecha pon
=CONTAR.SI($W$9:$W$598;W9)>1
Y presiona el botón formato y pones (Ej/en fuente Negrita, color Rojo, Fondo Amarillo, etc)
(Asumo que estás en la celda W9)
De esta forma cuando ingreses un código duplicado te va a poner el la celda de otro color y lo vas a identificar de esta forma.
La ventaja de la última forma es que no usas código.