Soru Kod Birleştirme

[mc_exrem]

Merhabalar üstadlar,

eklediğim dosyadaki KASA DEFTERİ sayfasındaki BUGÜNÜ YAZDIR butonu ile o günki verileri yazdırıp DEVİR butonu ile de o günki devri D3 hücresine uyguluyorum. sizden ricam; size zahmet kodları birleştirerek BUGÜNÜ YAZDIR butonuna tıklayınca hep yazsın hem de DEVİR işlemini gerçekleştirsin. Mümkünse DEVİR butonundan kurtulmak istiyorum. Genelde unutuyorum devir yapmayı ertesi gün sıkıntı oluyor. Yardımlarınız için teşekkür eder hayırlı günler dilerim.

 

[u.L.a.s]

yazdır butonu makro kod düzeneği içerisinde End sub dan önce diğer Devir butonu kod düzeneğini Call koduyla getirebilirsiniz

şöyleki;

Sub yazdir()

Range("A1:AK155").PrintOut
Call devir
Range("A1").Select
End Sub

 

[mc_exrem]

teşekkürler ilginiz için
bu hatayı verdi

 

[u.L.a.s]

normal kullanıcı olduğum için hem görüntüyü ben açamıyorum hemde dosyanızı indirip bakamıyorum

kod düzeneğinizi görmem gerekiyor.

 

[işsiz123]

Call EŞİTLE

kodunu ekleyin en alta

 

[mc_exrem]

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:="Ne01: üzerindeki Samsung SCX-4x21 Series (USB003) ", 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 = ""

Sub yazdir()
Range("A1:AK155").PrintOut
Call devir
Range("A1").Select
End Sub

Call EŞİTLE

 

[Mahmut Bayram]

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:="Ne01: üzerindeki Samsung SCX-4x21 Series (USB003) ", 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 = ""
Call EŞİTLE
End Sub

 

[mc_exrem]

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:="Ne01: üzerindeki Samsung SCX-4x21 Series (USB003) ", 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 = ""
Call EŞİTLE
End Sub

teşekkür ederim alltaki devri yapmadı ama bu işimi çözdü. Emeğinize sağlık