iki tarih arası filtreleme

[sananezaa]

Arkadaşlar elimde kullanmakta olduğum bir kayıp programı var. Programın boyutu büyük olduğu için upload ettim. İçerisini editledim fakat modülleri hiç oynamadım. şimdi benim sorularım şunlar ;

1-) Anasayfadaki "iç zimmet" tıklanınca gidilen sayfada "AC1" hücresine yazılan tarihteki verileri aktarmaktadır. Aynı şekilde "dış zimmet" te ise "AN1" e yazılan tarihteki verileri getirmektedir. "iç zimmet" modül4, "dış zimmet" modül5'te ki macrolar ile çalışıyor. iç zimmet te AC1 ile yanındaki AB1 hücresine iki tarih arasındaki verileri getirebilir mi? Aynı şekilde dış zimmet'te AN1 ve AO1 ile olabilir mi? İki tarih arası veri süzmeyi sitede bularak macroya uyguladım ancak çok anlamadığım için beceremedim.

2-) Ana menüde yazışma sayfalarına gidilince buton ile AJ - 1-28 satır ve sütunları arasındaki yazdırma alanını iki nüsha olarak yazdırmaktadır. Yazdırma kodu ise modüle2'dedir. Burada birinci nüshayı 1-26 satırları; ikinci nüshayı ise 1-28 satıları arası yazdıracak bir kod uygulanabilir mi?

Bu iki konuda bana yardımcı olabilirseniz çok memnun olacağım.Benim için çok önemli, teşekkürler.

Örnek dosya linki:
http://www.fileden.com/files/2007/12/23/1658575//evrak kayıt.rar

 

[sananezaa]

yukarıdaki link öldüğü için ilgilenebilecek arkadaşlar için yeniden upload ettim, yeni link burada,

https://rapidshare.com/files/2775657401/evrak_kay...rar

ayrıca bir iki ekleme düzeltme yapmak istiyorum ;

iç zimmete tıklandığında gidilen sayfa 100 de tek tarih yazılıyor ve kayıttaki 6 sayfadaki aynı tarihli veriler getiriliyor, kayıt sayfalarında ise yapılan kayıtlar her sayfada AA-AD sütunlarına düşeyara ile getiriliyor, dış zimmette ise AG-AN hücrelerine... yani iç ve dış zimmetteki filtrelenen veriler her sayfada AA ile başlayan sütunlardan getirilmektedir.

Yukarıda ilk mesajımda belirttiğim bunun bir örneği sitede var demiştim.Bu örnekte tek sayfadan getirilebilecek şekilde iki tarih arası filtreleme var.Bu örneğide ekliyorum.Şimdiden ilgilenen tüm arkadaşlara teşekkür ederim kolay gelsin.

 

[f_desat]

Çalışmanız ektedir

Sub SIRALAMAYAP()
Dim sat As Long
Dim satilan
Dim k As Range
Application.ScreenUpdating = False
satilan = Sheets("Sayfa1").Range("c1").Value

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
sat = Cells(65536, "A").End(xlUp).Row
Range("A3:E" & sat).AutoFilter
ActiveSheet.Range("$A$3:$E$" & sat).AutoFilter Field:=2, Criteria1:= _
">=" & CLng(CDate(Range("B1"))), Operator:=xlAnd, Criteria2:="<=" _
& CLng(CDate(Range("B2")))

Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Set k = Range("a4:a100").Find(satilan, , xlValues, xlWhole)
If k Is Nothing Then

MsgBox ("Aradığınız ürün bulunamadı")
ActiveSheet.AutoFilterMode = False
Exit Sub
End If

Selection.AutoFilter Field:=1, Criteria1:=satilan

If satilan = Empty Then
MsgBox ("Satilan ürün giriniz C1'e")
ActiveSheet.AutoFilterMode = False
Exit Sub
End If

Range("A3:E" & sat).CurrentRegion.Copy Sheets("Sayfa2").Range("A1")
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Sheets("Sayfa2").Select


Application.ScreenUpdating = False
End Sub

 

[sananezaa]

f_desat kardeş mesajınızdan birşey anlamadım, siteden indirdiğim örnekteki kodu mesaja yapıştırmışsınız, ben sorunumu birinci ve ikinci mesajda belirtmiştim

 

[f_desat]

sen kendi projeni incele sonra benim gönderdiğimi ... aynımı h

 

[sananezaa]

örnek xls nin konu ile doğrudan ilgisi yok, mevzubahis olan burada son olarak rapide yüklediğim excel 100 ve 101 sayfalarındaki 6 sayfadan gelen filtrelemenin iki tarih arası olmasıdır.örnek xls ise tek sayfa olarak bunun mümkün olduğunun bir örneğidir aslında.yinede ilgi ve alakanıza teşekkür ederim.

 

[f_desat]

ben yanlış yapmışım gönderiğim çalışmada c1 tabak yazarsan a sutunundaki tabakları bulur tarih aralığında varsa örnek çalışıyor sen sadece E sutuna göre uyarlaman gerekiyor, yada sen meyveleri a sütrununa taşı fazla uğraşmadan problem çözülmüş olur.......