
06-02-13, 15:03
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 05-02-2010
Μηνύματα: 196
| |
Σύγκριση τιμών ComboBox από το ίδιο το ComboBox.
Έχω μια αναπτυσσόμενη λίστα στην όπια θα ήθελα να συγκρίνω τις τιμές της με των εαυτό της δηλαδή να αποκλείσω διπλό έγραφες.
Παράλληλα να εγράφη μια νέα τιμή και να κάνη Refresh. Κώδικας: Dim i As Long
i = Φύλλο16.Range("c" & Rows.Count).End(xlUp).Row
If i > 2 Then Φύλλο16.Range("c" & i + 1).Value = ComboBox2
If ComboBox2.ListIndex = ComboBox2 Then Φύλλο16.Range("c" & i + 1).Value = ""
|