Süzme işlemi

[venediko]

Öncelikle herkese merhaba,

Benim sorunum şu:

Bir çok sayfadan ten oluşan bir excel programım var. Bu sayfaların tamamı bir sayfada rapor halinde bana döküm veriyor. Ayrıca bu sayfaların her birinde ay adlı bir sütün var. Bu sütünda Ocak, Şubat... vs. gibi aylar görülmekte. Yine tüm sayfalar ay sütününa göre süzme işlemi yapılmakta.

Acaba, rapor sayfasında süzme işlemini bir hareketle tüm sayfalara nasıl yaptırabilirim? Fikri olup yardımcı olabilecek arkadaşlara şimdiden teşekkürlerimi iletiyorum.

Saygılarımla,

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[venediko]

Levent Bey Merhaba,

Örnek dosyayı yazı ekinde gönderiyorum. İlgi ve alakanız için öncelikle teşekkürlerimi sunarım.

Saygılarımla,

 

[Levent Menteşoğlu]

Rica ederim. Aşağıdaki kodu denermisiniz.

Sub suz()
On Error Resume Next
For a = 2 To Sheets.Count
Sheets(a).[e2].AutoFilter Field:=1, Criteria1:=sheets("ÖZET TABLO").[b5]
Next
End Sub

 

[venediko]

Levent Bey,

İlginize çok teşekkür ederim. Denettiğiniz kodlarla sorunum çözülmüş oldu.

Saygılarımla,

 

[ileriexcel]

örnek yokken bir deneme yapmıştım boşa gitmesin.

Private Sub CommandButton1_Click()
Sheets("rapor").Select
Range("a1:k500").ClearContents
For i = 2 To Sheets.Count
Sheets(i).Select
Range("A2").Select
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1 & "*"
Next
For c = 2 To Sheets.Count
Sheets(c).Select
Range("A2").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("rapor").Select
say = WorksheetFunction.CountA([a1:A65000]) + 1
Range("a" & say).PasteSpecial
Next
End Sub