[VBA] ComboBox φίλτρο

[anestaki]

Καλησπέρα σε όλους
Θα ήθελα την Βοήθεια σας στο ComboBox της φόρμας πρέπει να εμφανίζονται μόνο τα ονόματα της στήλη (Β) όταν στην στήλη (Ε) είναι TRUE.

[Thanosp]

Καλημέρα
Κοίτα το συνημμένο
Θανάσης

[anestaki]

Καλημέρα Θανάση
Σε ευχαριστώ

[anestaki]

Καλησπέρα Θανάση
Μου προέκυψε ένα πρόβλημα ενώ θέλω να βλέπω το Customer όταν επιλεγεί να μου επιστέφει Customer.Row-1 είναι δυνατόν αυτό

[Thanosp]

Καλησπέρα
Ανέβασε αρχείο δεν κατάλαβα τι εννοείς

[anestaki]

Ενώ βλέποντας .AddItem Customer.Value να επιλεγώ .AddItem Customer.Row

[kapetang]

Καλησπέρα

Γιώργο, δες το επισυναπτόμενο αρχείο.

Ελπίζω να κατάλαβα το ζητούμενο

Γιώργος

[anestaki]

Για να αλλάξω την γραμμή εμφάνισης από (ΒΙΘΥΝΙΑΣ 29 2) σε (1 ΒΙΘΥΝΙΑΣ 29) τι πειράζω


Dim rngCheck As Range, rngSource As Range
Dim i As Long, j As Long, numRows As Long
numRows = 1000
Set rngCheck = Worksheets("pelates").Range("E2").Resize(numRows)
Set rngSource = Worksheets("pelates").Range("B2").Resize(numRows)
ReDim x(1 To numRows) As String
ReDim y(1 To numRows) As Long
For i = 1 To numRows
If rngCheck.Cells(i) = True Then
j = j + 1
x(j) = rngSource.Cells(i)
y(j) = rngSource.Cells(i).Row
End If
Next
ReDim Z(1 To j, 1)
For i = 1 To j
Z(i, 0) = x(i): Z(i, 1) = y(i)
Next
ComboBox1.List = Z

[kapetang]

x(j) = j & " " & rngSource.Cells(i)

[anestaki]

Η σειρά εμφάνισης στην γραμμής αυτή δεν είναι (Z(i, 0) = x(i)= ΒΙΘΥΝΙΑΣ 29 : Z(i, 1) = y(i) – 1=ID πως την αλλάζω σε ID ΒΙΘΥΝΙΑΣ 29