Sayfa seçildiğinde Sayfadaki Günün tarihi görünsün

[mozdem]

Merhabalar,

Sayfa1 aktif olduğunda, A sütununda yazılı tarihlerden Bugünün tarihi nerede ise Sayfayı ben aşağı yukarı kaydırmadan otomatik görünmesini istiyorum.
Yardımlarınızı bekliyorum.
Teşekkür ederim.

 

[Ziynettin]

Merhaba,

Private Sub Worksheet_Activate()
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 1) = Date Then Cells(i, 1).Select
Next i
End Sub

 

[mozdem]

Merhaba,

Private Sub Worksheet_Activate()
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 1) = Date Then Cells(i, 1).Select
Next i
End Sub

Teşekkür ederim.

 

[Ziynettin]

Seçilen satırın en üst satırda olması için,

Private Sub Worksheet_Activate()
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(i, 1) = Date Then ActiveWindow.ScrollRow = Cells(i, 1).Row
Next i
End Sub

 

[mozdem]

Teşekkür ederim.

Teşekkür ederim