Yazdır Butonu

[yuzun23]

Arkadaşlar ekteki belgede, Birinci sayfadaki YAZDIR BUTONUNA bastığımda sırasıyla, Haziran, Temmuz, Ağustos, Eylül, Ekim, Kasım ve Aralık aylarından 1 sayfa döksün ŞİDİDEN TEŞEKKÜRLER ALLAH RAZI OLSUN

 

[alicimri]

Sayın yuzun23 ilk ayı "İlk"i bir hücre ya metin kutusundan aldırırsanız daha esnek olur

Sub s()
ilk = 6
'ilk = Range("A1").value
For i = ilk To 12
Sheets(MonthName(i)).PrintOut
Next
End Sub

 

[yuzun23]

Üstadlarım beceremedim. kodu seçtiğim kodu nereye kopyalacam ne tür işlemler yapmam gerekiyor. lütfen yardımcı olurmusunuz bu kod işlemlerinde acemiyim çünkü TŞK. ALLAH RAZI OLSUN

 

[vardar07]

Yazdır butonu üzerinde sağ tıklayıp Makro ata'yı seçiniz >> çıkan pencerede Düğme1_Tıklat seçeneğini seçerek düzenle yazısını tıklayıp nasıl olduğunu görebilirsiniz.

Sub Düğme1_Tıklat()
For i = 2 To Sheets.Count
a = Sheets(i).Name
Sheets(a).PrintOut
Next
End Sub

 

[yuzun23]

Teşekkür ederim