listboxtaki bilgileri comboboxta süzme

[kan-nas]

ekteki dosyadaki açıklamaya göre yardıma ihtiyacım var.

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bir örnekte benden

Private Sub ComboBox1_Change()
Dim sat, s As Integer
ListBox1.Clear
ListBox1.ColumnCount = 10
For sat = 4 To Cells(6553, "b").End(xlUp).Row
If Cells(sat, "b") = ComboBox1 Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "b")
ListBox1.List(s, 1) = Cells(sat, "c")
ListBox1.List(s, 2) = Cells(sat, "d")
ListBox1.List(s, 3) = Cells(sat, "e")
ListBox1.List(s, 4) = Cells(sat, "f")
ListBox1.List(s, 5) = Cells(sat, "g")
ListBox1.List(s, 6) = Cells(sat, "h")
ListBox1.List(s, 7) = Cells(sat, "ı")
ListBox1.List(s, 8) = Cells(sat, "j")
ListBox1.List(s, 9) = Cells(sat, "k")
s = s + 1
End If: Next
TextBox1 = Empty
For sat = 4 To Cells(65536, "l").End(xlUp).Row
If Cells(sat, "b") Like ComboBox1 Then
TextBox1 = Val(TextBox1) + Cells(sat, "l")
End If: Next
TextBox2 = Empty
For sat = 4 To Cells(65536, "l").End(xlUp).Row
If Cells(sat, "b") Like ComboBox1 Then
TextBox2 = Val(TextBox2) + Cells(sat, "g")
End If: Next
On Error Resume Next
s = 0
For sat = 4 To Cells(65536, "c").End(3).Row
ListBox1.List(s, 1) = Format(Cells(sat, "c"), "DD.MM.YYYY")
s = s + 1
Next
End Sub
Private Sub UserForm_Initialize()
Dim sat, s As Integer
For sat = 4 To Cells(65536, "b").End(xlUp).Row
If Not WorksheetFunction.CountIf(Range("b4:b" & sat), Cells(sat, "b")) > 1 Then
ComboBox1.AddItem
ComboBox1.List(s, 0) = Cells(sat, "b")
s = s + 1
End If: Next
End Sub

 

[kan-nas]

arkadaşlar çok teşekkür ederim ellerinze sağlık...