Yardım Sayfaya gitmeden sayfanın başlığını kaldırma

ASLAN7410 · 28 Ocak 2023

Merhaba.
Dosyayı ilk açılışta 3.sayfaya gitmeden sayfanın başlığını kaldırmak istiyorum.
Aşağıdaki BuÇalışmaKitabı'ndaki kod ile yapmaya çalışıyorum.

Sheets("Sayfa3").DisplayHeadings = False Debug hatası vererek bu kısmı sarıya boyuyor.

Kod:

Private Sub Workbook_Open()
    Sheets("Sayfa3").DisplayHeadings = False
    Sırala
    Makro1
    Application.Goto Sheets("Sayfa2").Range("J2")
End Sub

Yardımcı olur musunuz?

muygun · 10 Şub 2023

Merhaba;

Sub kapat()
dosya_adı = ActiveWorkbook.Name
Sayfa_Adı = ActiveSheet.Name 'yada "Sayfa3"
Workbooks(dosya_adı).Worksheets(Sayfa_Adı).Activate
ActiveWindow.DisplayHeadings = False
End Sub

False yi True olarak değiştirirseniz işlemi eski haline getirmiş olursunuz.
Not: Sayfa_Adı yazan yere direk "Sayfa3" yazabilirsiniz.
İyi çalışmalar.

ASLAN7410 · 11 Şub 2023

Sayın muygun, ilginiz için çok teşekkür ediyorum.

Aşağıdaki gibi yaptım.

Kod:

Private Sub Workbook_Open()
dosya_adı = ActiveWorkbook.Name
Sayfa_Adı = "Sayfa3" 'yada "Sayfa3"
Workbooks(dosya_adı).Worksheets(Sayfa_Adı).Activate
ActiveWindow.DisplayHeadings = False
Application.Goto Sheets("Sayfa2").Range("J2")
End Sub

Workbooks(dosya_adı).Worksheets(Sayfa_Adı).Activate bu kısmı sarıya boyuyor.

muygun · 11 Şub 2023

Merhaba makro kodlarını nereye uyguladınız bilmiyorum ama ekler size fikir verecektir.
İyi çalışmalar.

ASLAN7410 · 11 Şub 2023

Sayın muygun, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

Yardım Sayfaya gitmeden sayfanın başlığını kaldırma

Daha fazla seçenek

ASLAN7410

muygun

ASLAN7410

muygun

Ekli dosyalar

ASLAN7410