Makro ve düğme ile yazdırma

[jerfinby]

Selamlar;
küçük bir site yöneticisiyim. yakıt paylaşımımız daire başına farklı bende bunu bu excel ile yaptım . Fakat makbuz yazdırırken iki farkı düğme kullıyorum sonra yazdır butonuna basıyorum. sizden ricam yazdır butonu ile düğmeler birleşir mi ve yapan olursa sevinirim.
düğmeler makbuz no arttırıyor. diğeri daire no artırıyor. ben istiyorum ki yazdır butonu ile bu iki düğme çalışşsın ve sonra daire ve makbuz no artsın.

KUZEY_EVLERI_OTM_MART.xlsm dosyasını indir - download

KUZEY_EVLERI_OTM_MART.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Korhan Ayhan]

Deneyiniz.

Sub Makbuz_Yazdir()
    Dim Onay As Byte, X As Long
   
    If Onay = MsgBox("Makbuzları yazıdrmak istiyor musunuz?", vbCritical + vbYesNo + vbDefaultButton2) = vbNo Then
        MsgBox "Yazdırma işlemi iptal edilmiştir.", vbInformation
        Exit Sub
    End If
   
    For X = Range("K7").Value + 1 To 27
        Range("K7").Value = X
        Range("AH6").Value = Range("AH6").Value + 1
        ActiveSheet.PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
    Next
   
    MsgBox "Makbuzlar yazıcıya gönderilmiştir.", vbInformation
End Sub

 

[jerfinby]

Ayhan bey çok ama çok teşekkürler
beni büyük bir zahmetten kurtardınız.