birbirine baglı comboboxa benzersiz veri almak

[fedeal]

ekteki calışmamda birbirine baglı 3 combobox var. comboboxa benzersiz kayıtalmayı daha önce ögrenmiştim.sorun combobox1e göre veri alan combobox2ye benzersiz veri almak.dosyam ekte yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Dosyanız ekte.

Public Sub ComboBox1_Change()

Cmb1 = ComboBox1.Value
ComboBox2.Clear
For i = 2 To 1000
deger = Format(Sheets("DATA").Cells(i, 16), Text)
If deger = Cmb1 Then
    If WorksheetFunction.CountIf(Sheets("DATA").Range(Cells(2, 17), Cells(i, 17)), _
    Sheets("DATA").Cells(i, 17).Value) = 1 Then


ComboBox2.AddItem Cells(i, 17)
ArrSatir(ComboBox2.ListCount - 1) = i
End If
End If
Next
End Sub

 

[fedeal]

çok teşekkürler evrenbey emeginize saglık

 

[Orion1]

çok teşekkürler evrenbey emeginize saglık

Rica ederim.
İyi çalışmalar.