Yazdırma

[mars2]

İyi Pazarlar;

her aya (Ocak, şubat, mart, ...) ait sayfam bulunmakta (sayfa adları ay adıdır) olup 13 sayfada ise tablom bulunmaktadır. bu aylara ait toplamları aldığımda yazdırmak istememem halinde, bulunduğumuz aya ait sayfa (Örneğin bu aya kasım olduğu için kasım ayına) gitmesi için Sheets("....").Activate kodu yerine hangi kodu eklemek gereklidir.

Sub Yazıcı ()
If MsgBox("YAZDIRMA İŞLEM YAPILACAK MI?", vbYesNo + 32, "DİKKAT !") = vbNo Then

MsgBox "Yazdırma İşlemi İptal Edildi !", vbExclamation, "UYARI"
Sheets("....").Activate

Else
....
..
end sub

 

[Muzaffer Ali]

Merhaba.

Worksheets(Format(Now, "mmmm")).Activate

 

[mars2]

Sayın Muzaffer Ali;

ilgi ve yardımlarınız için teşekkürler. Kodu hata vermeden çalıştı.