seçili Comboxlarda Rapor Alma

[Kemal Demir]

Iyı Akşamlar arkadaslar yollayacağım dosya ıcerısınde tıkandığım nokta

Turuncu Renkli Boyalı olan ComboBox'larda seçilecek verilere göre verilerin rapor sayfasına aktarmada tıkandım dosyayı yolluyorum yardımcı olursanız sevinirimsaygılar
iyi geceler

 

[danersin]

ilk sorunuzla ilgili bu kodları bir deneyin ama sortlatma ile ilgili sorunuzu anlayamadım.


[vb:1:008f66f67a]Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Sheets("rapor").Range("a1:f65536").ClearContents
Range("A1").Select
Selection.AutoFilter
If ComboBox1.Value <> "" Then Selection.AutoFilter Field:=1, Criteria1:=ComboBox1.Value
If ComboBox2.Value <> "" Then Selection.AutoFilter Field:=2, Criteria1:=ComboBox2.Value
If ComboBox3.Value <> "" Then Selection.AutoFilter Field:=3, Criteria1:=ComboBox3.Value
If ComboBox4.Value <> "" Then Selection.AutoFilter Field:=4, Criteria1:=ComboBox4.Value
If ComboBox5.Value <> "" Then Selection.AutoFilter Field:=5, Criteria1:=ComboBox5.Value
If ComboBox6.Value <> "" Then Selection.AutoFilter Field:=6, Criteria1:=ComboBox6.Value
Selection.CurrentRegion.Copy
Sheets("rapor").Range("A1").PasteSpecial
Selection.AutoFilter
End Sub[/vb:1:008f66f67a]

 

[danersin]

Eklemeyi unuttum bu kodları "kayıt" sayfası aktif sayfa olacak şekilde yazdım.

 

[danersin]

combobox2 ile ilgili gruplandırma yaptığınızı gece 4'te rüyamda hatırladım

onunla ilgili satırlarda aşağıdaki şekilde tüm şartları yazın.

[vb:1:4c8f17255b]
If ComboBox2.Value = "0-10" Then
Selection.AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd, _
Criteria2:="<11"
End If

If ComboBox2.Value = "11-18" Then
Selection.AutoFilter Field:=2, Criteria1:=">10", Operator:=xlAnd, _
Criteria2:="<19"
End If[/vb:1:4c8f17255b]


ayrıca aynı prosedürün sonunada aşağıdaki kodları ekleyip listbox'a alın.

[vb:1:4c8f17255b]ListBox1.ColumnCount = 6
ListBox1.RowSource = "rapor!A1:H5000"
ListBox1.ColumnWidths = "70;80;110;75;75;90"[/vb:1:4c8f17255b]

 

[Kemal Demir]

Combobox Rapor (Sn Danersin , ve tum arakadaslar)

Başlık için uzgunum Tum arakadaslar şimdi ucağa binicem izmire gidiyorum saat 10 da ucağım kalkacak

***kendım duzenleyemıcem cok ozurdılerım
,,
1.Rapor alınacak değer kayıt sayfasından okuyacak rapor sayfasına verileri atacak
2.textbox1'i combobox2 ye göre kıyaslayacak,aynı durum textbox2'i combobox5'e göre kıyaslayacak ıstenılen verileri (veri sheet)'ıne atacak yalnız bu verileri kayıt sheet'ınden okuyacak yardım edersenız cok sevınırım


İlginiz için teşekkur ederim
SaygılaR.

 

[Kemal Demir]

Teşekkur Ederim Yaptım Ellerine Sağlık Danersin ve İlgilene arkadaslara