Soru buton ile gizli sayfayı yazdırma ve if-else kullanımı

[ustunguven]

merhabalar, üstatlar çok özür dileyerek bir soru sormak istiyorum. aşağıda bir kod yazdım ama istediğim gibi çalışmadı. Yardımcı olabilir misiniz rica etsem.
İstediğim şey şu:
SÖZLEŞME sayfasında B4 hücresi, VAR ise SÖZLEŞME sayfası 2 KOPYA, başka bir şey ise SÖZLEŞME sayfası 2 kopya ve EK sayfası 1 KOPYA olarak yazdıracak. Yalnız EK sayfası gizli..
gizli olması sıkıntı çıkartıyor ve if-else yapısını da kullanamadım.

Private Sub CommandButton1_Click()
If Sheets("SÖZLEŞME.CELL(2, 4)") = "VAR" Then
Sheets("SÖZLEŞME").PrintOut Copies:=2
Else
Sheets("SÖZLEŞME").PrintOut Copies:=2
Sheets("EK").PrintOut Copies:=1
End Sub

 

[recepkull]

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
If Sheets("SÖZLEŞME.CELL(2, 4)") = "VAR" Then
Sheets("SÖZLEŞME").PrintOut Copies:=2
Else
Sheets("SÖZLEŞME").PrintOut Copies:=2
Sheets("EK").Visible = True
Sheets("EK").PrintOut Copies:=1
Sheets("EK").Visible =False
End Sub

 

[recepkull]

Düzeltme
If komutunda da yanlışlık fark ettim aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
If Sheets("SÖZLEŞME").Range("B4") = "VAR" Then
Sheets("SÖZLEŞME").PrintOut Copies:=2
Else
Sheets("SÖZLEŞME").PrintOut Copies:=2
Sheets("EK").Visible = True
Sheets("EK").PrintOut Copies:=1
Sheets("EK").Visible = False
End If
End Sub

 

[veyselemre]

Private Sub CommandButton1_Click()
    Sheets("SÖZLEŞME").PrintOut Copies:=2
    If Not Sheets("SÖZLEŞME").Cells(4, 2) = "VAR" Then
        Sheets("EK").Visible = True
        Sheets("EK").PrintOut Copies:=1
        Sheets("EK").Visible = False
    End If
End Sub

 

[ustunguven]

Düzeltme
If komutunda da yanlışlık fark ettim aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()
If Sheets("SÖZLEŞME").Range("B4") = "VAR" Then
Sheets("SÖZLEŞME").PrintOut Copies:=2
Else
Sheets("SÖZLEŞME").PrintOut Copies:=2
Sheets("EK").Visible = True
Sheets("EK").PrintOut Copies:=1
Sheets("EK").Visible = False
End If
End Sub

çok teşekkür ederim üstat çalıştı. zihnine sağlık