UserForm'da süzme işlemi

[imdatsaral]

Selam Arkadaşlar ,

Ekte gönderdiğim "örnek" dosyasıda UserForm kullanarak verileri süzmek sonucu UserForm'da görmek istiyorum. Forumda arama yaptım bazı örnekler buldum ama istediğim şekilde değiller. kendim yapmaya çalıştım beceremedim yardıma ihtiyacım var.
yardımcı olabilecek arkadaşlara teşekkür ederim.

İyi çalışmalar

 

[hakan_demirkan]

arkadaşım benim yaptığım kasa programı herkese hitap eden bir çalışma bir bak bakalım ona bugün koydum bu siteye bak bakalım.
konu başlığı: "İşte Buyrun Arkadaşlar Kasa Programı" bugün ekledim

 

[imdatsaral]

Sayın Hakan Demirkan Arkadaş,

Ellerine emeğine Sağlık çalışman güzel olmuş. Bu çalışma içinden kodları seçip kendi sayfama eklemem için öncelikle bir-iki fırın ekmek yemem gerekiyor. Makrolar konusunda pek bilgim yok forumdan takip edebildiğimce öğrenmeye çalışıyorum. Gönderdiğim Örnek üzerinde çalışma yaparsanız benim için daha iyi olur. Yinede yol gösterdiğin için teşekkür ederim.
iyi çalışmalar.

 

[imdatsaral]

Excel.web.tr

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
Dim SAT As Integer
ComboBox2.Clear
For SAT = 2 To Cells(65536, "I").End(xlUp).Row
If Cells(SAT, "I") = ComboBox1 Then
ComboBox2.AddItem Cells(SAT, "J").Value
End If
Next
End Sub
Private Sub ComboBox2_Change()
Dim SAT As Integer
ComboBox3.Clear
For SAT = 2 To Cells(65536, "J").End(xlUp).Row
If Cells(SAT, "J") = ComboBox2 Then
ComboBox3.AddItem Cells(SAT, "D").Value
End If
Next
End Sub
Private Sub ComboBox3_Change()
Dim SAT As Integer
ComboBox4.Clear
For SAT = 2 To Cells(65536, "D").End(xlUp).Row
If Cells(SAT, "D") = ComboBox3 Then
ComboBox4.AddItem Cells(SAT, "E").Value
End If
Next
End Sub
Private Sub ComboBox4_Change()
Dim SAT, i As Integer
ListBox1.Clear
ListBox1.ColumnCount = 5
For SAT = 2 To Cells(65536, "I").End(xlUp).Row
If Cells(SAT, "I") Like ComboBox1 Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SAT, "A")
ListBox1.List(S, 1) = Cells(SAT, "B")
ListBox1.List(S, 2) = Cells(SAT, "F")
ListBox1.List(S, 3) = Cells(SAT, "G")
ListBox1.List(S, 4) = Cells(SAT, "H")
S = S + 1
End If
Next
On Error Resume Next
S = 0
For i = 2 To Cells(65536, "A").End(3).Row
ListBox1.List(S, 0) = Format(Cells(i, "A"), "DD.MM.YYYY")
S = S + 1
Next
End Sub
Private Sub UserForm_Initialize()
Dim SAT As Integer
For SAT = 2 To Cells(65536, "I").End(xlUp).Row
If Not WorksheetFunction.CountIf(Range("I2:I" & SAT), Cells(SAT, "I")) > 1 Then
ComboBox1.AddItem Cells(SAT, "I")
End If: Next
End Sub

 

[imdatsaral]

N.Ziya Hiçdurmaz hocam çok teşekkür ederim.

 

[imdatsaral]

sayın hocam,
ListBox daki verile müşterinin bütün molleleri için gelen kumaşları veriyor benim istediğim Excelde süzme işleminde yaptığımız gibi müsteri/model/kumaş/renk seçildikten sonra bulunan sonuçlar ListBox'da yazsın

 

[imdatsaral]

arkadaşlar bu konuda yardımcı olurmusunuz ek dosya #7 mesajda var.
ListBox daki verile müşterinin bütün molleleri için gelen kumaşları veriyor benim istediğim Excelde süzme işleminde yaptığımız gibi müsteri/model/kumaş/renk seçildikten sonra bulunan sonuçlar ListBox'da yazsın

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox4_Change()
Dim SAT, i As Integer
ListBox1.Clear
ListBox1.ColumnCount = 5
For SAT = 2 To Cells(65536, "I").End(xlUp).Row
If Cells(SAT, "I") Like ComboBox1 And Cells(SAT, "J") Like ComboBox2 _
And Cells(SAT, "D") Like ComboBox3 And Cells(SAT, "E") Like ComboBox4 Then
ListBox1.AddItem
ListBox1.List(S, 0) = Cells(SAT, "A")
ListBox1.List(S, 1) = Cells(SAT, "B")
ListBox1.List(S, 2) = Cells(SAT, "F")
ListBox1.List(S, 3) = Cells(SAT, "G")
ListBox1.List(S, 4) = Cells(SAT, "H")
S = S + 1
End If
Next
On Error Resume Next
S = 0
For i = 2 To Cells(65536, "A").End(3).Row
ListBox1.List(S, 0) = Format(Cells(i, "A"), "DD.MM.YYYY")
S = S + 1
Next
End Sub

 

[cems]

Selamlar,
Listbox'da gelen sonuçların print'ini nasıl alabiliriz ?

 

[imdatsaral]

N.Ziya Hiçdurmaz hocam teşekkür ederim.

 

[imdatsaral]

sayın hocam,
yardımlarınız için teşekkür ederim. bir sorum daha olacak. ListBox menüsündaki değerleri harf sırasına göre sıralayabilirmiyiz