Aktif ayın kayıt yapılacak son boş satırı

[serif11]

Arkadaşlar merhaba.
Elimde manuel olarak veri girdiğim 12 aya ait sayfaların bulunduğu bir dosya var.
İsteğim şu:
Hangi sayfada kapatırsam kapatayım, açıldığında veri girilecek ayın (örneği bu ay Nisan) veri girilecek son boş satırında açılmasını istiyorum.
Umarım anlatabilmişimdir.
Şimdiden teşekkürler.

 

[hamitcan]

Sub AyinSonSatiriniSec()
    Sheets(Format(Date, "mmmm")).Select
    SonSatir = [a65536].End(3).Row + 1
    Cells(SonSatir, 1).Select
End Sub

 

[serif11]

Hamitcan arkadaşım. Öncelikle ilgi ve emeğinize teşekkür ederim..
Modül içerine mi yapıştıracağım kodları, her sayfaya ayrı ayrı mı?
Thisworkbook içine yapıştırdım çalışmadı

 

[hamitcan]

Çalışma kitabını her açtığınızda çalışssın isterseniz, ThisWorkBook kısmına aşağıdaki başlık içine yazabilirsiniz.

 Private Sub Workbook_Open()
end sub

 

[serif11]

İşte bu kadar.
Çok teşekkür ederim..
İlginize, bilginize, emeğinize, en önemlisi yüreğinize sağlık.