Veri Aktarma Sorunu

[mc_exrem]

Merhabalar Üstadlar

KASA DEFTERİ sayfasında "BuGünüYazdır" butonu ile içinde bulunduğum günün çıktısını aldırırken F1 hücresindeki veriyi D3 hücresine aktarıyor ve ertesi güne hazır hale geliyor ancak aynı gün içinde yeni veri girince tekrar çıktı almak istediğimde F1'i D3'e aktardığı için F1 deki sonuç yanlış çıkıyor. Bu aksaklığı nasıl giderebilirim. Yardımlarınız için teşekkür eder saygılar sunarım.

 

[Hepgel]

Merhaba @mc_exrem

Deneyiniz.

MODULE16'daki SuzYaz isimli makronun son kısmındaki
Call EŞİTLE
satırını, aşağıdaki gibi If .... End If satırları arasına alarak koşula bağlayın.

If Sheets("     KASA DEFTERİ     ").[F3] <> Date Then
    Call EŞİTLE
End If

 

[mc_exrem]

Merhaba @mc_exrem

Deneyiniz.

MODULE16'daki SuzYaz isimli makronun son kısmındaki
Call EŞİTLE
satırını, aşağıdaki gibi If .... End If satırları arasına alarak koşula bağlayın.

If Sheets("     KASA DEFTERİ     ").[F3] <> Date Then
    Call EŞİTLE
End If

Sub SuzYaz()
a = Sheets("     KASA DEFTERİ     ").Cells(Rows.Count, "F").End(3).Row
gun = Sheets("     KASA DEFTERİ     ").Cells(a, "F").Value
    Sheets("     KASA DEFTERİ     ").Range("$A$3:$F$" & a).AutoFilter Field:=6, Criteria1:=gun
    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & a
   
    Sheets("     KASA DEFTERİ     ").PrintOut Copies:=1, ActivePrinter:="Ne00: üzerindeki P-3025 MFP KX", Collate:=True, _
        IgnorePrintAreas:=False
Sheets("     KASA DEFTERİ     ").Range("$A$3:$F$" & a).AutoFilter
Sheets("     KASA DEFTERİ     ").Range("$A$3:$F$" & a).AutoFilter
ActiveSheet.PageSetup.PrintArea = ""
If Sheets("     KASA DEFTERİ     ").[F3] <> Date Then
    Call EŞİTLE
End If
End Sub

Kodu bu şekilde düzelttim ancak bu sefer devri yapmıyor yani F1 i D3e aktarmıyor. Bugünü yazdır butonuyla çıktı alınca hem bugünü yazdırıyor hem de F1 i D3e aktarıyordu.

 

[Hepgel]

Tarih olmayan veriler var F sütununda
Filtreyi açınca tarih olmayanları görebilirsiniz.
Bir de D nin toplamı ile E nin toplamını birbirinden çıkarınca Devir'in bulunması lazım değil mi,

 

[mc_exrem]

Merhaba @mc_exrem

Deneyiniz.

MODULE16'daki SuzYaz isimli makronun son kısmındaki
Call EŞİTLE
satırını, aşağıdaki gibi If .... End If satırları arasına alarak koşula bağlayın.

If Sheets("     KASA DEFTERİ     ").[F3] <> Date Then
    Call EŞİTLE
End If

Sub SuzYaz()
a = Sheets(" KASA DEFTERİ ").Cells(Rows.Count, "F").End(3).Row
gun = Sheets(" KASA DEFTERİ ").Cells(a, "F").Value
Sheets(" KASA DEFTERİ ").Range("$A$3:$F$" & a).AutoFilter Field:=6, Criteria1:=gun
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & a

Sheets(" KASA DEFTERİ ").PrintOut Copies:=1, ActivePrinter:="Ne00: üzerindeki P-3025 MFP KX", Collate:=True, _
IgnorePrintAreas:=False
Sheets(" KASA DEFTERİ ").Range("$A$3:$F$" & a).AutoFilter
Sheets(" KASA DEFTERİ ").Range("$A$3:$F$" & a).AutoFilter
ActiveSheet.PageSetup.PrintArea = ""
If Sheets(" KASA DEFTERİ ").[F3] <> Date Then
Call EŞİTLE
End If
End Sub

Kodu bu şekilde değiştirdim yine devri yapmıyor.

 

[mc_exrem]

Tarih olmayan veriler var F sütununda
Filtreyi açınca tarih olmayanları görebilirsiniz.
Bir de D nin toplamı ile E nin toplamını birbirinden çıkarınca Devir'in bulunması lazım değil mi,

Sol tarafa veri girişi yapılınca tarih otomatik olarak atıyor.
Evet dediğiniz gibi D den E yi çıkarınca Fye DEVRİ veriyor.