Her hangi bir sayfada Ctrl+P yaptığımda ana sayfa için mesaj versin

[ASLAN7410]

Merhaba.

Ekte gönderdiğim excel dosyamda Ctrl+P ile ilgili kod mevcut.

Yapmak istediğim Ana Sayfadayken klavyeden Ctrl+P yaptığımda YAZDIR BUTONUNU Kullanın şeklinde mesajın gelmesini,
diğer sayfalardayken klavyeden Ctrl+P yaptığımda ANA SAYFA üzerindeki YAZDIR BUTONUNU Kullanın mesajının gelmesini istiyorum.

Yardımcı olur musunuz?

 

[Korhan Ayhan]

Deneyiniz.

Not: ANA SAFYA isminizi düzeltmelisiniz.

Sub Yazdırİptal()
    If ActiveSheet.Name <> "ANA SAYFA" Then
        MsgBox "ANA SAYFA üzerindeki" & vbCrLf & Chr(10) & "YAZDIR BUTONUNU Kullanın.", vbInformation, "A S L A N"
    Else
        MsgBox "YAZDIR BUTONUNU Kullanın.", vbInformation, "A S L A N"
    End If
End Sub

 

[ASLAN7410]

Sayın Korhan Bey, tam istediğim gibi oldu, ellerinize sağlık çok teşekkür ediyorum.

uyarısı içinde teşekkür ediyorum.

Hayırlı günler diliyorum.

 

[ASLAN7410]

Korhan Bey, aşağıdaki kodu

    If ActiveSheet.Name <> "ANA SAYFA" Then

    If ActiveSheet.Name <> Sayfa1 Then

bu şekilde değiştirdiğimde hata verdi.

Sayfa1 olarak nasıl yazabilirim?

 

[Korhan Ayhan]

Bahsettiğiniz isim nerede ki isim?

 

[ASLAN7410]

VBA tarafındaki Sayfa1

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz...

If ActiveSheet.CodeName <> "Sayfa1" Then

 

[ASLAN7410]

Sayın Korhan Bey, tam istediğim gibi oldu, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı günler diliyorum.