Hücrede yazılı olan sayfa adını yazdırma.

[burhancavus61]

Sayfa adları D14 hücresinde yazılı bu yazdırdığımda o sayanın çıktısını almak istiyorum. Sayfa adı yoksa uyarı versin.
Aşağıdaki gibi denedim ama olmadı.

Sub Yazdır()

Sheets [D14].Visible = True
Sheets [D14].Select
ActiveSheet.Unprotect ""

mesaj = MsgBox("Yazdırmak için = EVET " & Chr(10) + Chr(13) & "Baskı Önizleme İçin = HAYIR" & Chr(10) + Chr(13) & "Diğeri de İPTAL zaten", vbYesNoCancel + vbQuestion, "Sayfa Yazdırılsın mı?")
If mesaj = vbCancel Then Exit Sub
If mesaj = vbYes Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End If
If mesaj = vbNo Then
ActiveWindow.SelectedSheets.PrintPreview
End If

ActiveSheet.Protect ""
Sheets("Giriş").Select
Sheets [D14].Visible = False

End Sub

 

[Ömer]

Merhaba,

Sorunuzu anlayamadım, detay vererek ve örnek dosya ekleyerek açıklar mısınız.

 

[Korhan Ayhan]

Burada yazım hatası var.

Sheets [D14].Visible = False

Sayfa adı parantez ve çift tırnak içinde yazılmalıdır.

Sheets(Range("D14").Text).Visible = False

 

[burhancavus61]

Hocam seçilecek sayfa kodunu bu şekilde yazdım Sheets("D14").Select ama hata verdi sanırım burayıda yanlış yazdım

 

[burhancavus61]

Tamam hocam çözdüm ben yanlış yapmışım sağolun.