Tarih aralığına göre sorgu ya da rapor alma

[molla]

Arkadaşlar merhaba....
Ekteki dosyada a1 sütünundaki tarih aralığan göre b1 sütünundaki verilerin sayfa 2 ye aktarılmasını sağlayan bir makro varsa yardımcı olursanız sevinirim.

Verileri sayfa 2 ye de aktarsın ve yazıcıdanda yazdırmak isitiyorum.
şimdiden teşekkür ederim...

 

[mustafaine1]

kopyaladigi bolumu direk yazidiricak mi ?

eger oyleyse boyle bir macro isinizi gorebilir sanirim,

 Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
     Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

 

[molla]

Kardeş denedim ama olmadı
benim istediğim bir tarih aralığı girmeliyim ve o aralığa göre sayfa 2 ye aktarması ve çıktı alması şeklinde olacaktı. Ilgin için teşekkür ederim...

 

[molla]

Evet direk yazdıracak

 

[parametre]

dostum aktarma yapmıyor sadece isaretliyor sayfa ikiye aktaramadım birde istediğimiz tarihi arasını nasıl yapacağız cozemedim aydınlatırsanız sevinirim iyi çalısmalar

 

[mustafaine1]

Arkadaslar ben konuyu ilkten yanlis anlamisim uzerinde calisicam..

 

[mustafaine1]

Evren Bey konuyu cozumlu haline getirmistir incelemek isteyenler eki indirsinler..

 

[Orion1]

evren bey konuyu cozumlu haline getirmistir incelemek isteyenler eki indirsinler..

.....................................

 

[mustafaine1]

Evren Bey konu yazarindan once ben tekrar tesekkur etmek isterim cunku bu kodlardan yararlanip bir cok duzenleme yapicam gibi geliyor sonrasinda

 

[Orion1]

Evren Bey konu yazarindan once ben tekrar tesekkur etmek isterim cunku bu kodlardan yararlanip bir cok duzenleme yapicam gibi geliyor sonrasinda

Rica ederim.
İyi çalışmalar.

 

[molla]

arkadaşlar çok teşekkeür ederim istedğimde tam olarak buydu....