combo box listemdeki kod eksiği hk

[cenderus]

değerli hocalarım ;

ekli çalışmamda sizlerin sayesinde çok aşama katettim yardımınızı istediğim soru ise şu

kodlarda nasıl bir değişiklik yapmalıyımki

combobox4 ürün tipi seçtiğinde tüm sütunda yer alan verilerde aynı olanları tekrarlamasın yani ürün tipi seçtiğimde a-b-c-d varsa bunları a-a-a-a-b-b-c-c-c şeklinde değil de aynı olan tipleri daraltarak sadece a-b-c-d olarak göstermesi konusunda nasıl bir kod değişikliği yapmalıyım

 

[Korhan Ayhan]

Selamlar,

Combobox2 ye ait Change kodunu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub ComboBox2_Change()
    Dim col As New Collection
    Set sh = Sheets(ComboBox2.Value)
    ComboBox3.Clear: ComboBox4.Clear: ComboBox5.Clear: ComboBox6.Clear: ComboBox7.Clear:
    If ComboBox2.ListIndex >= 0 Then
        With sh
        
            For j = 5 To .Cells(4, 250).End(xlToLeft).Column Step 4
            ComboBox3.AddItem .Cells(4, j)
            Next j
            ComboBox3.ListIndex = -1
            
            For i = 29 To .Cells(65536, 4).End(xlUp).Row
            [COLOR=red]If WorksheetFunction.CountIf(.Range("D29:D" & i), .Cells(i, 4)) = 1 Then[/COLOR]
            ComboBox4.AddItem .Cells(i, 4)
            [COLOR=red]End If
[/COLOR]            Next i
            ComboBox4.ListIndex = -1
      
            For i = 29 To .Cells(65536, 1).End(xlUp).Row
            ComboBox5.AddItem .Cells(i, 1)
            Next i
            ComboBox5.ListIndex = -1
                       
            For i = 29 To .Cells(65536, 3).End(xlUp).Row
            ComboBox6.AddItem .Cells(i, 3)
            Next i
            ComboBox6.ListIndex = -1
            On Error Resume Next
            For j = 5 To .Cells(28, 256).End(xlToLeft).Column
            col.Add CStr(.Cells(28, j)), CStr(.Cells(28, j))
                If Err > 0 Then
                    Err = 0
                Else
                    ComboBox7.AddItem .Cells(28, j)
                End If
            Next j
            On Error GoTo 0
            ComboBox7.ListIndex = -1
        End With
    End If
End Sub

 

[cenderus]

Korhan Hocam Teşekürler

Korhan hocam teşekkürler sen olmasan ben ne yapacağım tum kritik sorularıma cevap urettin inan şuan bunu yazarken çok utanıyorum ama son bir sorum var hocam

aynı ornekte combo box 4 seçim yaptığında combo box 6 neden seçimini ,combo box 4 e göre daraltmıyor,

ornek üzerinde konuşursak ürün tipi seçtiğimde sadece o tip ürünler yerine tüm ürünler görünüyor , combo6 yı combo 2 ve combo 3 bağlı olduğu gibi combo 4 e dede nasıl bağlıcam aynı kodları deniyorum ama sonuç alamadım hocam hatam nerde ?