Como validar para que Excel avise si 2 datos se repiten en un rango
Tengo mi tabla en Excel, en una columna son los Nº FACTURA(C) y en otra es el NOMBRE PROVEEDOR(D), necesito decirle Si (C) y (D) de esa fila son exactamente iguales en otra fila que de error. Pero los valores no pueden coincidir por separado, por ejemplo que me de error si en (C) se repite el mismo Nº FACTURA ó que en (D) se repita el mismo NOMBRE PROVEEDOR.
1 Respuesta
Respuesta de Dante Amor
1
Si estás capturando los dato directamente en la hoja, pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("C:D")) Is Nothing Then
If Cells(Target.Row, "C") <> "" And Cells(Target.Row, "D") <> "" Then
Set r = Columns("C")
Set b = r.Find(Cells(Target.Row, "C"), lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Address
Do
If b.Row <> Target.Row Then
If Cells(b.Row, "D") = Cells(Target.Row, "D") Then
MsgBox "Factura y proveedor repetidos, en la fila " & b.Row, vbExclamation
Target.Select
Exit Do
End If
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
S a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
