Açılışta bir kere açılan sayfa

[hakki83]

Merhaba

Örnek dosyada birden fazla sayfa vardır.

İstediğim şudur:

Dosyayı gönderdiğim firmada, dosyayı açtıkları zaman,
ilk açılışta "AÇILIŞ" adlı sayfayla açılsın,

ikinci ve sonraki dosyayı açmak istediklerinde ise "HESAPLAR" adlı sayfa açılsın.

(Kendileri daha sonra bakmak isterlerse manuel olarak AÇILIŞ sayfasına girebilirler.)

Not: Herhangi bir sayfanın silinmesi, gizlenmesi, şifrelenmesi gibi işlemler olmamalıdır.

 

[Korhan Ayhan]

Deneyiniz.

ThisWorkbook (BuÇalışmaKitabı) ;

Option Explicit

Private Sub Workbook_Open()
    Dim Test As Variant
  
    On Error Resume Next
    Test = Empty
    Test = ActiveWorkbook.Names("Kontrol").Name
    On Error GoTo 0

    If Test = Empty Then
        Sheets("AÇILIŞ").Select
        ActiveWorkbook.Names.Add Name:="Kontrol", RefersToR1C1:="X"
        ActiveWorkbook.Save
    ElseIf Test = "Kontrol" Then
        Sheets("HESAPLAR").Select
    End If
End Sub

 

[hakki83]

Korhan hocamız emeğinize sağlık. Acaba ben mi yapamadım. Hep açılış sayfası açılıyor.

 

[Korhan Ayhan]

Dosyayı açtıktan sonra kaydetmeden mi çıkıyorsunuz?

 

[hakki83]

Yok hocam, o hep aklımda olduğu için kaydediyorum.
Hatta, denemek için, ikinci açışımda HESAPLAR sayfası üzerindeyken kaydediyorum, ama yine de AÇILIŞ sayfası ile açılıyor.

 

[Korhan Ayhan]

Kodu nereye uyguluyorsunuz.

 

[hakki83]

BuÇalışmaKitabı bölümüne Korhan hocam.

 

[Korhan Ayhan]

Kodu revize ettim. Ayrıca dosyada ekledim.

Not: Dosyayı paylaşmadan önce AD TANIMLAMA menüsünden "Kontrol" isimli seçeneği silmelisiniz.

 

[hakki83]

Korhan hocam bildirim gelmediği için şimdi gördüm, emeğinize sağlık. Çok güzel olmuş. İlerki zamanlarda açılışla ilgili yine benzer konularım olabilir.