Çözüldü Yazdırma Sayfa-Adeti Belirleme

[gicimi]

Merhaba;

Çalışma sayfasından hangi Sheet kaç adet çıktı alınmasını sormasını istiyorum. Kod hakkında yardımcı olur musunuz.


SAYFA ADINI BELİRTİNİZ.
ÇIKTI ADETİNİ BELİRTİNİZ.

 

[muygun]

Merhaba;

Sub yazdırr()
Application.ScreenUpdating = False
On Error Resume Next
sayfaadı = InputBox("Sayfa adını girin.", "Excel'i sevmeyen nezle olsun")
Copiess = InputBox("Kopya sayısını girin.", "Excel.web.tr")
Sheets(sayfaadı).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=Copiess, Collate:=True
End Sub

kodlarını deneyin.
İyi çalışmalar.

 

[gicimi]

Sn. @muygun teşekkür ederim.