[kostakis123]

Καλησπέρα σας. θα ήθελα την βοήθεια σας σχετικά με την εύρεση διπλότυπων εγγραφών από ένα φύλλο excel. ο κώδικας που βρήκα με την βοήθεια του Spyrosgr που τον ευχαριστώ που τον είχε δημοσιεύσει για προηγούμενο θέμα είναι αυτός:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Len(Target.Value) > 0 Then
If Evaluate("Countif(A:A," & Target.Address & ")") > 1 Then
MsgBox "Η Εγγραφή «" & Target.Value & "» υπάρχει ήδη και θα διαγραφεί.", _
vbInformation, "Διαπιστώθηκε Διπλότυπο!"
Range(Target.Address).ClearContents
End If
End If
End Sub

Ο συγκεκριμένος είναι πολύ καλή λύση για τις διπλότυπες εγγραφές αλλά στην δική μου περίπτωση θέλω να βρίσκω διπλότυπες εγγραφές όταν τηρούνται 2 κριτήρια από 2 στήλες.

Ευχαριστώ εκ των προτέρων. Συνεχίστε την καλή δουλειά.

Επισυνάπτω ένα παράδειγμα αυτού που θέλω να κάνω. Οι στήλες που θέλω να ελέγχονται είναι οι C και D.