Açılış Sayfasını Açılış Makrosu Nasıl Bulur

[kykbt]

Arkadaşlar Merhaba

Yaklaşık 40 50 sayfadan oluşan bir çalışma kitabım var bunların içinde 12 sayfa aylara ait ve bu bilgi
C1 hücresinde 01.AY ÜRETİM Diye her ay için ayrı sayfada var.
Biz çalışma kitabı açılırken tüm sayfaları kontrol ettirip hangi sayfanın C1 hücresinde bulunulan aya ait ise o sayfanın aktif olmasını nasıl sağlayabiliriz.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Private Sub Workbook_Open()
    On Error GoTo Hata
    AY = Format(Now, "mm") & ".AY ÜRETİM"
    Sheets(AY).Select
    Exit Sub
Hata:
End Sub

 

[kykbt]

Arkadaşım merhaba
Sanırım biraz yanlış anlattım.
Sayfa adlarına bakmayacak sayfaların içindeki C1 hücresine bakarak sayfayı bulacak

 

[Necdet]

Merhaba Sayın Yüksel bey,

Ben bu soruyu bir kaç kere okudum ama anlamadığım için yanıt veremedim. Bakalım arkadaşımız ne diyecek?

 

[Necdet]

Arkadaşım merhaba
Sanırım biraz yanlış anlattım.
Sayfa adlarına bakmayacak sayfaların içindeki C1 hücresine bakarak sayfayı bulacak

Bende onu demeye çalışıyorum, her sayfanın C1 hücresine bakacak ama baktığını ne ile karşılaştıracak?

 

[uzmanamele]

Arkadaşım merhaba
Sanırım biraz yanlış anlattım.
Sayfa adlarına bakmayacak sayfaların içindeki C1 hücresine bakarak sayfayı bulacak

merhaba
syn kykbt,
sorunuzu anladım ama kullandığınız yöntemi anlamsız buldum.
bence her sayfanın C1 hücresine tarih yazmaktansa her sayfanın adına tarih yazın.

istediğiniz şekilde tabiiki olur ama kısacık bir kod ile daha kolay sonuca ulaşırsınız, hem dosyanız daha kullanışlı olur.



başım çatlayacak düzeyde ağrıyor (dün akşam fazla mı kaçırdım ne?) üstelik saat 12'yi geçmiş ve ben soruyu anlayabilmişim.
kendimden korkmaya başladım :hihoho:

 

[kykbt]

Nejdet Bey Merhaba

C1 hücresinde baktığı örneğin 05.AY ÜRETİM ise buradan ilk iki sayıyı alacak 05 sonra güncel ay olan mesela bugün 25.05.2009 içindeki aya tekabül eden 05 ile karşılaştıracak.
Acaba anlatabildimmi?

 

[kykbt]

Merhaba Sayın Uzmanamele

Burada sayfa adları ocak şubat diye gidiyor. Olabilirse c1 hücresine bakarak yapması benim için daha önemli

 

[uzmanamele]

Merhaba Sayın Uzmanamele

Burada sayfa adları ocak şubat diye gidiyor. Olabilirse c1 hücresine bakarak yapması benim için daha önemli

merhaba
sayfa adları ay adı olarak kullanılmışsa aşağıdaki şekilde deneyin

Private Sub Workbook_Open()
    On Error GoTo Hata
    AY = Format(Now, "mmmm")
    Sheets(AY).Select
    Exit Sub
Hata:
End Sub

 

[kykbt]

Hocam ne amelesi süper ustad demelisin kendine,
Teşekkürler bu şekilde problemimi cözüme kavuşturdu. Sağol

 

[uzmanamele]

Hocam ne amelesi süper ustad demelisin kendine,
Teşekkürler bu şekilde problemimi cözüme kavuşturdu. Sağol

merhaba

kodlar biryerlerden (ç)alıntıdır, güle güle kullanın.
siz yinede bana uzmanamele diye hitap edin