İki Tarih arası rapor alma mantığı

[DeliBalta58]

Arkadaşlar Benim gibi excele yeni başlayanlar için büyük bir problem iki tarih arası rapor alma.

Forumda sağolsun arkadaşlar birçok örnek koymuş.
Ancak mantığının nasıl olduğu hakkında bilgimiz olmadığı için örnetleri kendimize uyarlamakta güçlük çekilmekte.

Bu konuya el atılabilirmi acaba
Yani kodların ne manaya geldiği hususunda.
Bir Örnek vereyim.Anladığım kadarıyla.Eğer yanlışsa düzeltiniz.

Sheets("sayfa5").Select   ' Sayfa5'i seç
Cells.Select                             'Tüm hücreleri seç
Selection.ClearContents            'Seçilenleri Temizle
Selection.ColumnWidth = 11.86  'Tüm Sutun genişliklerini 11.86 yap
Range("A1").Select                  'A1'i seç ( Bu Seçimden Çıkmak için kullaılmıştır.)
Sheets("sayfa9").Select           'Sayfa9'u seç
Range("A2").Select                 'A2 hücresini seç
Selection.AutoFilter                'Otomatik filitre uygula
Selection.AutoFilter field:=20, Criteria1:=ComboBox20.Text ' Filitre Seçimi 20.Sütunda olacak Kriterde ComboBox20 'e yazılı olanla aynı olacak
ActiveCell.CurrentRegion.Select ' Süz sonrasındakileri Seç
Selection.Copy                      'Seçimi kopyala                   
Range("A1").Select                 ' A1 hücresini seç
Sheets("sayfa5").Select           'Sayfa5. seç
ActiveSheet.Paste                  'Kopyalananları yapıştır
'..............................................
Sheets("sayfa9").Select           'Sayfa9'u seç
Range("A1").Select                  'A1'i şeç
Selection.AutoFilter               'Otomatik filitremeden çık
Sheets("sayfa5").Select        ' Sayfa5'i Seç
Cells.Select                       'Tüm hücreleri seç
Selection.Interior.ColorIndex = xlNone ' Dolgu renklerini temizle

Arkadaşlar iki tarih arası Birime göre Rapor alma olayını bu şekilde anlatabilirmiyiz

Yapacağımız örnekte;
Verilerimiz Sayfa9 da kayıtlı olsa
Sayfa5'e İki tarih arasında Birime göre rapor alsa
Birim Adları T sütununda olsa;
Tarihlerde G Sütununda olsa

Ne dersiniz arkadaşlar?

Hem Ustalarımızın fikirlerinden yararlanarak bilgimiz artar. Hemde bu işin mantığını öğrenelim

 

[tahsinanarat]

Bir örnek dosya gönderirseniz, onun üzerinde çalışıp yardımcı olabiliriz sanıyorum. İyi çalışmalar dilerim.