Süz ile ilgili

[uvahusrev]

Sayfa1 deki A sütunundaki kodların ComboBox1'e tekrarsız olarak gelmesi ComboBox1'de seçilecek değere göre süzme işlemi yapıldıktan sonra ComboBox2'ye B sütunundaki değerlerin tekrarsız olarak gelmesi
ComboBox2'de seçilecek değere göre süzme işlemi yaıldıktan sonra ComboBox3'e C sütunundaki değerlerin tekrarsız olarak gelmesi şeklinde devam eden bir uygulama yapmaya çalışıyorum. Günlerdir aramama rağmen net bir sonuca ulaşamadım yardımcı olursanız çok sevinirim teşekkürler.....!

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyiniz.

Private Sub ComboBox1_Change()
On Error Resume Next
[A1].Select
ActiveCell.AutoFilter Field:=1, Criteria1:=ComboBox1
End Sub
Private Sub ComboBox2_Change()
On Error Resume Next
[B1].Select
ActiveCell.AutoFilter Field:=2, Criteria1:=ComboBox2
End Sub
Private Sub ComboBox3_Change()
[C1].Select
ActiveCell.AutoFilter Field:=3, Criteria1:=ComboBox3
End Sub

Private Sub UserForm_Initialize()
For SUTA = 1 To Cells(65536, "A").End(3).Row
If WorksheetFunction.CountIf(Range("A1:A" & SUTA), Range("A" & SUTA)) = 1 Then
ComboBox1.AddItem Cells(SUTA, "A").Value
End If
Next
For SUTB = 1 To Cells(65536, "B").End(3).Row
If WorksheetFunction.CountIf(Range("B1:B" & SUTB), Range("B" & SUTB)) = 1 Then
ComboBox2.AddItem Cells(SUTB, "B").Value
End If
Next
For SUTC = 1 To Cells(65536, "B").End(3).Row
If WorksheetFunction.CountIf(Range("C1:C" & SUTC), Range("C" & SUTC)) = 1 Then
ComboBox3.AddItem Cells(SUTC, "C").Value
End If
Next
End Sub

 

[uvahusrev]

Sayın uzman çok teşekkür ederim. Gayet güzel oldu.
:aha:
Fakat diğer Combobox lara hep 150 koduna göre süzüyor oysa diğer kodlara göre de süzmeli. Eğer kodun yanındaki textbox'a G sütunundaki karşılığı yazılabilirse çok memmun olurum.
Saygılarımla..