excellde kursör bugünki tarih hangi hücrede ise oradan açılsın

[frksfu]

değerli arkadaşlarım excell de "1"ci satıra sıra ile tarih attım excell'i ilk açtığmda bugünki tarih ne ise kursörde nerede bırakılırsa bırakılsın bugünkü tarihin yazılı olduğu hücre seçili olarak açılsın, yardımlarınız için şimdiden teşekkür ederim hepinize saygılar.
Örnek dosyam aktedir

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Private Sub Workbook_Open()
Set s1 = Sheets("Sayfa1")
s1.Select
For i = 1 To s1.[IV1].End(1).Column
If Format(s1.Cells(1, i).Value, "dd.mm.yyyy") = Format(Date, "dd.mm.yyyy") Then s1.Cells(1, i).Select
Next
End Sub

 

[frksfu]

Sayın dEdE ilgi ve alakanız için çok teşekkür ederim sağolun peki bu tarih sayfanın neresinde olursa olsun yinede o hücre seçili olarak açılırmı

 

[dEdE]

... peki bu tarih sayfanın neresinde olursa olsun yinede o hücre seçili olarak açılırmı

Merhaba,
Aşağıdaki kod istediğinizi yapar.

Private Sub Workbook_Open()
Sheets("Sayfa1").Select
Set bul = Cells.Find(Date, , xlValues, xlWhole)
If Not bul Is Nothing Then bul.Select
End Sub

 

[frksfu]

sayın dEdE ilgi alakanıza bukadar hızlı cevap vermenize ne diyeyim, kuru bir teşekkürümü lütfen kabul et.

 

[dEdE]

Rica ederim.
İşinize yaradıysa mutlu olurum.
Hoşça kalın.