tarih içeren veri aktarımı

[metinavci23]

ekte sunulan dosyada "Rapor" adındaki makroda çek/senet vade sutununda filtre olarak verince dikkate almıyor.bir çok örnek buldum forumda ,hepsini uyguladım ama olmadı.yardımınızı bekliyorum.şimdiden teşekür ederim

 

[metinavci23]

arkadaşlar yok mu yardım eden????

 

[metinavci23]

tarihi neden yazdıramıyorum

arkadaşlar lütfen yardım ediniz.

 

[Korhan Ayhan]

Selamlar,

Dosyanızda kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub RAPOR()
    Application.ScreenUpdating = False
    Dim TARİH As Date
    Set SK = Sheets("VERITABANI")
    Set SR = Sheets("RAPOR")
    SR.[A6:N65536].Clear
    SK.Select
    TARİH = SR.[K2]
    If SR.[A2] <> "" Then SK.[A2].AutoFilter Field:=1, Criteria1:=SR.[A2]
    If SR.[B2] <> "" And SR.[B3] <> "" Then SK.[A2].AutoFilter Field:=2, Criteria1:=">=" & CDate(SR.[B2]), Operator:=xlAnd, Criteria2:="<=" & CDate(SR.[B3])
    If SR.[C2] <> "" Then SK.[A2].AutoFilter Field:=3, Criteria1:=SR.[C2]
    If SR.[D2] <> "" Then SK.[A2].AutoFilter Field:=4, Criteria1:=SR.[D2]
    If SR.[E2] <> "" Then SK.[A2].AutoFilter Field:=5, Criteria1:=SR.[E2]
    If SR.[F2] <> "" Then SK.[A2].AutoFilter Field:=6, Criteria1:=SR.[F2]
    If SR.[G2] <> "" Then SK.[A2].AutoFilter Field:=7, Criteria1:=SR.[G2]
    If SR.[H2] <> "" Then SK.[A2].AutoFilter Field:=8, Criteria1:=SR.[H2]
    If SR.[I2] <> "" Then SK.[A2].AutoFilter Field:=9, Criteria1:=SR.[I2]
    If SR.[J2] <> "" Then SK.[A2].AutoFilter Field:=10, Criteria1:=SR.[J2]
    If SR.[K2] <> "" Then SK.[A2].AutoFilter Field:=11, Criteria1:=TAR&#304;H
    If SR.[L2] <> "" Then SK.[A2].AutoFilter Field:=12, Criteria1:=SR.[L2]
    If SR.[M2] <> "" Then SK.[A2].AutoFilter Field:=13, Criteria1:=SR.[M2]
    If SR.[N2] <> "" Then SK.[A2].AutoFilter Field:=14, Criteria1:=SR.[N2]
    SK.[A2].CurrentRegion.Copy SR.[A5]
    SK.[A2].AutoFilter
    SR.Select
    Cells.EntireColumn.AutoFit
    Application.ScreenUpdating = True
    MsgBox "RAPORLAMA &#304;&#350;LEM&#304; TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[metinavci23]

teşekürler

teşekürler sayın Cost_Control.vallahi mükemmelsiniz.ellerinize sağlık.eskişehirden selamlar