Forum - Excel07 Αυτόματη συμπλήρωση λίστας.

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Excel07] Αυτόματη συμπλήρωση λίστας. (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4355-aytomati-symplirosi-listas.html)

Αυτόματη συμπλήρωση λίστας.

Καλημέρα σας,
θα ήθελα να με βοηθήσετε στο εξής θέμα,σε ένα κουτάκι (C3) φέρνω τους πελάτες από μια λίστα που έχω δημιουργήσει ως εδώ μια χαρά , θα ήθελα όμως γράφοντας καινούργιο πελάτη να ενημερώνεται και η λίστα μου αυτόματα.
Ευχαριστώ για το χρόνο σας.

Θεωρούμε ότι η λίστα πελατών, είναι στην στήλη Α, από 4 γραμμή και κάτω.

Κώδικας:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cust As Range

    Set cust = Me.Cells(3, 3)
 

    If Intersect(Target, cust) Is Nothing Then Exit Sub
 

    Dim Nr As Long

    Nr = Me.Cells(Rows.Count, 1).End(xlUp).Row
 

    Dim c As Range, iRng As Range

    Set iRng = Me.Range("a4:a" & Nr)
 

    For Each c In iRng

    If Application.WorksheetFunction.CountIf(iRng, cust.Value) > 0 Then

            End

        Else

            Me.Cells(Nr + 1, 1).Value = cust.Value

            End

        End If
 

    Next c

End Sub

Ο κώδικας στο φύλλο, συμβάν Change.

Αν αυτό που επιλέγω ή πληκτρολογώ στο c3, υπάρχει στην λίστα:
Καμία ενέργεια
Αν αυτό που επιλέγω ή πληκτρολογώ στο c3, δεν υπάρχει στην λίστα:
Η λίστα συμπληρώνεται με το νέο όνομα.

Σε ευχαριστώ πάρα πολύ Σπύρο.