Τι να πω τώρα! Κάθ' ένας τη δουλειά του Σπύρο....άμεσα και στοχευμένα...χίλια ευχαριστώ...
Ο κώδικας είναι διαμάντι και για μένα βέβαια κάτι σαν κινέζικα. Δεν είμαι εντελώς άσχετος αλλά από κώδικα
Αυτό που θέλω να ρωτήσω κάνοντας κατάχρηση τον κόπο σας είναι ότι έχοντας συγχωνεύσει μερικά κελιά, η λίστα στέκετε σε 3-4 κελιά λόγω σχεδίασης, μου βγάζει το εξής μήνυμα και δεν λειτουργεί,ο κώδικας:
Run-time error '1004':
Δεν είναι δυνατή η αλλαγή τμήματος ενός συγχωνεμένου κελιού.
Κάνοντας αλλαγή τον κώδικά σου σε:
Παράθεση:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Len(Target.Value) > 0 Then
If Evaluate("Countif(Α:Α," & Target.Address & ")") > 1 Then
MsgBox "Η Εγγραφή «" & Target.Value & "» Υπάρχει ήδη .", _
vbInformation, "Διαπιστώθηκε διπλότυπο!"
End If
End If
End Sub
|
...το πρόβλημα λύθηκε χωρίς βέβαια να σβήνει η διπλή εγγραφή. Απλά μου βγάζει ένα μήνυμα ότι η συγκεκριμένη εγγραφή υπάρχει ήδη και την αφήνει να συνυπάρχει. Αυτό σίγουρα συνέβει γιατί δεν έγινα πιο συγκεκριμένος! Αλλά είναι αυτό που ζητούσα από την αρχή! Μιλάμε τέλεια πράγματα! Σπύρο μου έφτιαξες τη μέρα..τη νύχτα θέλω να πω.
Αυτό που θέλω βέβαια να ρωτήσω όπως αναφέρω πιο πάνω είναι πως μπορεί ο κώδικας να χρησιμοποιηθεί σε συγχωνευμένα κελιά!
Ότι και να απαντήσετε δεκτό! Να είστε πάντα καλά.