UserForm ComboBox1,ComboBox2,ComboBox3 Göre ListBox' a Veri Gelmesi

[Hantor]

Göndermiş olduğum Dosyada ComboBox1,ComboBox2,ComboBox3 te seçtiğim verilere göre ListBoxta gözükmesi ve ComboBox ta gözüken veriler çift kayıt ise tek olarak gözükmesi mümkünmüdür.

 

[halit3]

Benzer bir sürü sorunuz var dosyaları indiriyorum içinde söylediğiniz nesneler yok
aşağıdaki linkde de benzer sorunuz var ama dosyanın içinde ComboBox1,ComboBox2,ComboBox3 yok
Dosyada ComboBox1,ComboBox2,ComboBox3

https://www.excel.web.tr/threads/us...ombobox3-goere-listbox-a-veri-gelmesi.173640/

 

[Hantor]

Teşekkürler Hocam ilginizden dosyayı tekrar yükledim

 

[halit3]

Formunuzdaki kodları silin ve bunları ekleyin

Private Sub deneme_Click()
ListBox1.RowSource = Empty
ListBox1.Clear

sayf2 = "TümAnaData"
For r = 3 To Worksheets(sayf2).Cells(Rows.Count, "c").End(3).Row
aranan1 = Worksheets(sayf2).Cells(r, "c").Value
aranan2 = Worksheets(sayf2).Cells(r, "d").Value
aranan3 = Worksheets(sayf2).Cells(r, "u").Value
'If aranan1 = ComboBox1.Text And aranan2 = ComboBox2.Text And aranan3 = ComboBox3.Text Then

If UCase(LCase(aranan1)) Like UCase(LCase(ComboBox1.Text)) & "*" And UCase(LCase(aranan2)) Like UCase(LCase(ComboBox2.Text)) & "*" And UCase(LCase(aranan3)) Like UCase(LCase(ComboBox3.Text)) & "*" Then

liste = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(liste, 0) = aranan1
ListBox1.List(liste, 1) = aranan2
ListBox1.List(liste, 2) = aranan3

End If
Next r
End Sub

Private Sub ComboBox1_Click()
deneme_Click
End Sub

Private Sub ComboBox2_Click()
deneme_Click
End Sub
Private Sub ComboBox3_Click()
deneme_Click
End Sub

Private Sub UserForm_Initialize()

sayf2 = "TümAnaData"
For r = 3 To Worksheets(sayf2).Cells(Rows.Count, "c").End(3).Row
If WorksheetFunction.CountIf(Worksheets(sayf2).Range(Worksheets(sayf2).Cells(3, "c"), Worksheets(sayf2).Cells(r, "c")), Sheets(sayf2).Cells(r, "c").Value) = 1 Then
ComboBox1.AddItem Worksheets(sayf2).Cells(r, "c").Value
End If

If WorksheetFunction.CountIf(Worksheets(sayf2).Range(Worksheets(sayf2).Cells(3, "d"), Worksheets(sayf2).Cells(r, "d")), Sheets(sayf2).Cells(r, "d").Value) = 1 Then
ComboBox2.AddItem Worksheets(sayf2).Cells(r, "d").Value
End If

If WorksheetFunction.CountIf(Worksheets(sayf2).Range(Worksheets(sayf2).Cells(3, "u"), Worksheets(sayf2).Cells(r, "u")), Sheets(sayf2).Cells(r, "u").Value) = 1 Then
ComboBox3.AddItem Worksheets(sayf2).Cells(r, "u").Value
End If
Next r

ListBox1.RowSource = "TümAnaData!B3:Z" & WorksheetFunction.CountA(Worksheets("TümAnaData").Range("B3:Z100000"))
ListBox1.ColumnCount = 25
ListBox1.ColumnWidths = "30;30;50;50;80;40;60;100;70;90;90;157;157;50;50;50;50;50;100;157;157;157;157;100;100"
ComboBox1.SetFocus

End Sub

 

[Hantor]

Hocam Yapıştırdım ama Combobox1 de 2018 seçince ListBox bozuluyor çalışıyor ama verileri göstermiyor. ComboBox1 de 2018 seçtiğimde süzde sadece 3 alan gözüküyor. İlginiz için teşekkür ederim.

 

[halit3]

farklı bir userform ekliyorum turuncu renkli nesnelerden yazarak seçiniz.

 

[Hantor]

Hocam Resmen bir şaheser yaratmışsınız bir sorum olacak sizin hazırladığınız dosyada DÜZELT hanesi var o aktif değil sanırsam yada aktif mi aktif ise nasıl çalışır. Halit Hocam işleyişi biraz anlata bilir misiniz çok harika ve teferatlu olmuş zahmet verdim size ama çok bambaşka bir form var karşım ve afalladım anlatmanız mümkünmüdür. Listele Düzelt Reset Veri Kayıtet ne işe yarar nelerde kullanmalıyım.

 

[halit3]

Listeden seçeceksiniz sonrada altdaki yeşil nesnelerdeki verileri değiştireceksiniz sonrada düzelt düğmesine tıklıyacaksınız. böylece listeden seçili verileri değiştirmiş olacaksınız.

 

[Hantor]

Hocam ellerinize sağlık allah razı olsun Düzelt dediğimde eski veri yerine yeni veri geçiyor demi hocam

 

[halit3]

evet

 

[Hantor]

Halit Hocam emeğinize sağlık teşekkür ederim.