Açılışta Aktif Hücre, Tarihe göre Nasıl ayarlanır?

[excelsior]

Selam arkadaşlar,

Çözemediğim bir konu var. Sayfanın açılışında aktif hücrenin otomatik olarak tarihe göre belirlenmesini istiyorum. Örneğin Bugün 4 Mayıs ise aktif hücre B4, 5 Mayıs ise B5 .... şeklinde olsun istiyorum. Yani sayfa açıldığında aktif hücre tarihe göre belirlenecek. Sanırım bir makro ile olur ama bir türlü çözemedim. Yardımlarınızı bekliyorum. Şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

sub auto_open()
sheets("sayfaadı").select
cells(day(date),"b").activate
end sub

Not: Kodu, bir normal modüle kopyaladıktan sonra kod içindeki "sayfaadı" yazan yere dosya açıldığında görünmesini istediğiniz sayfanın adını yazın ve dosyayı kapatıp tekrar açın.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un sayfasına kopyalayınız.

Private Sub Workbook_Open()
Range("B" & Day(Date)).Select
End Sub

 

[excelsior]

Sayın Levent Menteşoğlu ve sayın Necdet Yeşertener,

Her iki kodda gayet güzel çalışıyor. (Levent Bey'in kodlarında en başta sun değil "Sub" olacak sanırım. O şekilde değiştirdim.) Yardımlarınız için teşekkür ederim. Soruyu bir basamak daha geliştirmek istiyorum. Şöyle sorayım: Başlık satırları ne olacak? Yani tablomda bir başlık satırı varsa bu durumda Ayın 4'ü için B4 değilde B5 hücresinin aktif hücre olarak açılması gerekiyor. Resimde de görüldüğü gibi Ayın 1'i için B2,2'si için B3... şeklinde bir basamak kayma oluyor. Böyle bir durumda ne yapabilirim? Tekrar değerli zamanınızı benim bu sorum için ayıracağınız için şimdiden teşekkür ederim.

 

[saytekin]

Necdet Hocamın koduna ekleme yaparak bu şekilde çözdüm.

Private Sub Workbook_Open()
Range("B" & (Day(Date) + 1)).Select

End Sub

 

[Korhan Ayhan]

Selamlar,

Bu durumda önerilen kodu aşağıdaki şekilde kullanabilirsiniz.

Private Sub Workbook_Open()
Range("B" & Day(Date) [COLOR=red]+ 1[/COLOR]).Select
End Sub

 

[excelsior]

Ya, bu kadar basit bir çözüm nasıl aklıma gelmedi benim . Sayın saytekin ve Korhan Ayhan, teşekkür ederim.

 

[tofan]

Hücre değerine göre boş hücre seçmek

Bir Düğme atayarak:
ANA Sayfadaki D26 Hücre Değerine göre(Bu Hangi Ay Olduğunu ifade ediyor),
BİLGİ GİRİŞİ Sayfasındaki 2009/Ocak...Aralık arasındaki Sutunlardan ilk boş hücreyi seçsin istiyorum.
Örneğin : (ANA Sayfadaki D26=1 2009/Ocak Sutunu)
Yardımcı olursanız sevinirim.
Teşekkür ederim.

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

 

[tofan]

Teşekkür ederim dEdE,
Yine hızır gibi imdadıma yetiştin. İnşallah ömrün boyunca darda kalmazsın.

 

[dEdE]

Rica ederim.
Güle güle kullanın.