Tek tıkla bir kaç sayfa yazdırma

[avla123]

İyi günler 5 çalışma sayfasından oluşan bir Excel var 1. Çalışma sayfasında bulunan butona bastığında 3.sayfadan 5 adet 4. Sayfadan 1 adet çıktı vermesini istiyorum, sorum açık ve net makro kodlarından anlamıyorum nasıl yapabilirim

 

[alicimri]

Örneğin Sayfa1 sekmesinin üzerinde sağ tıklayın Kod Görüntüleyi seçin Açılan Modüle aşağıdaki kodları yapıştırın

Sub yazdır1()
Sheets("Sayfa3").PrintOut Copies:=5
Sheets("Sayfa5").PrintOut Copies:=1
Range("A1").Value =  Range("A2")
Range("B1").Value =  Range("B2")
End Sub

 

[avla123]

Örneğin Sayfa1 sekmesinin üzerinde sağ tıklayın Kod Görüntüleyi seçin Açılan Modüle aşağıdaki kodları yapıştırın

Sub yazdır1()
Sheets("Sayfa3").PrintOut Copies:=5
Sheets("Sayfa5").PrintOut Copies:=1
End Sub

Teşekkür ederim son çıkan sayfadan sonra B1deki yazıyı A1 e b2deki yazıyı a2 yazdırma işlemini nasıl yaparım

 

[alicimri]

Konuyu doğru anladımsa, #2 Nolu Mesajdaki kodu değiştirdim.