Günlük Mesai Cetvelinin Tüm Sayfalarını yazdırmak

[aksoy53]

Ekte gönderdiğim dosya'da 12 ay tek bir yazdır butonuyla yazdırma formülü konusunda yardımcı olurmusunuz memnun olurum.
Şimdiden teşekkür ederim.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub yazdır()
For i = 1 To 12
Sheets(i).Select
Sheets(i).PrintOut
Next
End Sub

Ayrıca sayfalarda tatil günlerinin otomatik renklenmesi için C5:E35 aralığını seçip aşağıdaki formülü Koşullu biçimlendirme formülü olarak kullanır ve biçim ayarını yaparsanız B sütunundaki tarihe göre imza hücreleri renklenir:

=HAFTANINGÜNÜ($B5;1)<3

 

[aksoy53]

Çok teşekkür ederim fakat basıt olan ama beceremediğim koşullu biçimlendirmeyi yapamadım tatil günleri PAZAR VE PAZARTESİ olanları imza kısımlarını renklendirmek

 

[YUSUF44]

C5:E35'i seçin
Koşullu biçimlendirmeyi açın
Formül kullanmayı seçin
Formül yerine yukarda verdiğim formülü yazın
Biçim düğmesine basarak Dolgu rengini ayarlayın

 

[aksoy53]

Olmuyor dosya üzerine yapabilirmisniz

 

[YUSUF44]

Mart ve Aralık aylarında uyguladım:

https://drive.google.com/file/d/0B43WMUs21VpfeXFxc1VwNGFWR2c/view?usp=sharing

 

[aksoy53]

Çok teşekkür ederim. Hata bende ben yazıyı renklendiriyordum dolgu seçememiştim kusura bakmayınız.