Buscar datos duplicados seleccionando dos opciones de 2 ComboBox
Buenos días Dante Amor me gustaría saber como puedo encontrar cuantos datos duplicado tengo dentro de una hoja de calculo pero según dos alternativas y que se pinte de amarillo las filas donde se encuentren los datos repetidos. Ejemplo
ComboBox1: Facultad ComboBox2: Curso
Ejemplo:
Facultad: Educacion Curso: Metodologia
Hoja 1:
Juan.........................Metodologia.................... Educacion
Marco.......................Metodologia.......................Educacion
Ana...........................Metodologia.......................Psicologia
Hay 2 cursos repetidos en la facultada de Educación y se marque de amarillo las filas con los datos repetidos. Gracias
1 Respuesta
Pon la siguiente macro en tu formulario
Private Sub ComboBox1_Change()
buscardup
End Sub
Private Sub ComboBox2_Change()
buscardup
End Sub
Sub buscardup()
'Por.Dante Amor
Set h = Sheets("asignaciones")
Set r = h.Range("C2:C" & h.Range("C" & Rows.Count).End(xlUp).Row) 'facultad
Set b = r.Find(ComboBox1, lookat:=xlWhole)
h.Cells.Interior.ColorIndex = xlNone
If Not b Is Nothing Then
ncell = b.Address
Do
If h.Cells(b.Row, "B") = ComboBox2 Then 'curso
h.Rows(b.Row).Interior.ColorIndex = 6
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End Sub
