Makro ile Koşullu Yazdırma

[karslan18]

Private Sub CommandButton1_Click()
Sheets("VERİ").PrintOut Copies:=2
End Sub


Yukarıda yazmış olduğum kod ile Excel Çalışma Kitabında, VERİ ismini verdiğim
sayfadan 2 adet yazdırabiliyorum.

Benim istediğim bu kod ile 1. kopyayı yazdıktan sonra 2. kopyayı yazdırırken
E1, E2 ve E3 hücrelerini yazdırmasın. 2.Kopyada bu hücrelerdeki değerler bulunmasın...

Yardımı olacak herkese şimdiden Teşekkürler.........

 

[programer]

Aşağıdaki kodu bi deneyin.

Sheets("VERİ").PrintOut Copies:=1

Range("E1:E3").Select
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

Sheets("VERİ").PrintOut Copies:=1
    
    Range("E1:E3").Select
    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With

 

[karslan18]

Malesef olmuyor

Run-time error '9':
Subscript out of range hatası veriyor ben E1, E2 ve E3 demiştim ama yazdırmamasını istediğim
hücreler E1, F1 ve G1 olacaktı yardımcı olursanız sevinirim....

 

[programer]

bu CommandButton veri sayfasındamı yoksa başka sayfadanmı çalıştırıyorsunuz

 

[programer]

Kodları aşağıdaki ile değiştirin.

Set sh = Sheets("VERİ")

sh.PrintOut Copies:=1
sh.[E1,F1,G1].Font.ThemeColor = xlThemeColorDark1

sh.PrintOut Copies:=1
sh.[E1,F1,G1].Font.ThemeColor = xlThemeColorLight1

 

[karslan18]

Çok teşekkür ederim emeğine saglık...

 

[karslan18]

Bu sefer oldu fakat çalışma sayfasını koruma altına aldığımda


Run-time error '1004':
Application-defined or object-defined error

şeklinde hata veriyor ben bu çalışma sayfasını ve kitabını korumalı olarak kullanmak istiyorum bunun bir
çözümü var mı ???