Autofilter Kullanarak Rapor Alma (sorunu cözdüm)

[programer]

Ama Bazı hatalar var. Bunlar bir firmaya satmadığım ürünü seçtiğimde rapor sayfasında alakasız ürünler gözüküyor. Bunun için ne yapmam gerekiyor. Bide comboboxlara autofilter özelliği ekliyebilirmiyiz.

Ã?rnek:

ComboBox2=Firma adı
ComboBox3=Ürün adı

Firmayı seçtikten sonra ComboBox3'e işlemler sayfasında bu firmaya sattığım ürünlerin listesinin gelmesi mümkünmü.

Dosya ekte

 

[programer]

Arkadaşlar aşağıdaki kodu nasıl değiştirmem gerekiyor
ComboBox1 ve ComboBox2 deki veriye göre rapor alabilirim


Private Sub CommandButton3_Click()
If ComboBox1 = "" Then
MsgBox "Dikkat Ay Seçmelisiniz"
Exit Sub
End If
Sheets("Raporlar").Select
Range("A3:H55000").ClearContents
Sheets("İşlemler").Select
Range("C2").AutoFilter Field:=3, Criteria1:=ComboBox2.Value, Operator:=xlAnd, Criteria2:=ComboBox1.Value
A = WorksheetFunction.CountA(Sheets("İşlemler").Range("A2:A65000"))
Sheets("İşlemler").Range("A2:H" & A + 2).Copy
Sheets("Raporlar").Range("A3").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Selection.AutoFilter
b = WorksheetFunction.CountA(Sheets("Raporlar").Range("A3:A65000"))
For c = 3 To b + 2
Cells(c, 1) = c - 2
Next c
Range("A1").Select
Detay_Rapor.Hide
Sheets("Raporlar").Select
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

[akgüvercin]

zor bir soru ve cevap da daha zor hunter.....
benim çalışmalarım hala devam ediyor...

 

[programer]

arkadaşlar ne denediysem olmadı bi yardım edecek kimse yokmu

Range("c2").AutoFilter Field:=3, Criteria1:="ComboBox2.Value", Operator:=xlAnd, Field:=2, Criteria2:="ComboBox1.Value"

böyle bi kod denedim gene olmadı yardımlarınızı bekliorum

 

[Levent Menteşoğlu]

Range("c2").AutoFilter Field:=3, Criteria1:="ComboBox2.Value", Operator:=xlAnd, Field:=2, Criteria2:="ComboBox1.Value"

Bu yazım şekli hatalıdır, her kritere göre süzmeyi ayrı satırda yapmalısınız. Kodda field:=? ifadesinde alanı belirtmeyi unutmayın. Yani combobox1 deki veri ile hangi sütundaki bilgiler süzülecek onu yazmalısınz. Ayrıca Range("c2") yazımıda hatalıdır. Burada süzülecek alanın tamamını tanımlamalısınız. Ã?rneğin;

[vb:1:9a19029e32][a1:g50].AutoFilter Field:=1, Criteria1:=ComboBox1.Value
[a1:g50].AutoFilter Field:=2, Criteria1:=ComboBox2.Value
[/vb:1:9a19029e32]

 

[programer]

Ama Bazı hatalar var. Bunlar bir firmaya satmadığım ürünü seçtiğimde rapor sayfasında alakasız ürünler gözüküyor. Bunun için ne yapmam gerekiyor. Bide comboboxlara autofilter özelliği ekliyebilirmiyiz.

Ã?rnek:

ComboBox2=Firma adı
ComboBox3=Ürün adı

Firmayı seçtikten sonra ComboBox3'e işlemler sayfasında bu firmaya sattığım ürünlerin listesinin gelmesi mümkünmü.

Dosya ekte

 

[Levent Menteşoğlu]

Dosyanızın raporlama bölümünde bazı düzenlemeler yaptım inceleyiniz.

 

[aduhan22]

ya arkadaşlar bana bi program yapacak arkadaş yok mu yahu; basit bi ilaç katılım payı programı, personel ismini manuel gireceksin, akabinde veri sayfasından eczanenin bilgilerini alacak, ve bana özet rapor çıkartacak, hangi personelin kaç ytl ilaç katılım payı borcu var ve hangi eczanenin ne kadar alacağı var yardımcı olursanız sevinirim... :idea: