Soru Excel Sayfasına Tıklayınca En Son Dolu Satıra Gitme

[TURKOLOG]

Merhaba şöyle bir sorunum var.
Birden fazla sayfadan oluşan excel kitabım var.
Hangi excel Excel Sayfasına Girsem o sayfanın En Son Dolu Satırına gitmek istiyorum makro ile.

 

[Necdet]

Merhaba,

Aşağıdaki Kodları BuÇalışmaKitabı'nın Kod bölümüne kopyalayıp deneyinz. Bu kod son dolu hücreyi seçer.
Siz kodları değiştirerek sütun ya da satıra ayarlayabilirsiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, Cells.Find("*", , , , xlByColumns, xlPrevious).Column).Select

End Sub

 

[TURKOLOG]

Merhaba,

Aşağıdaki Kodları BuÇalışmaKitabı'nın Kod bölümüne kopyalayıp deneyinz. Bu kod son dolu hücreyi seçer.
Siz kodları değiştirerek sütun ya da satıra ayarlayabilirsiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, Cells.Find("*", , , , xlByColumns, xlPrevious).Column).Select

End Sub

Hocam elinize sağlık . Peki bunu A sütunu son dolu hücre nasıl yapabiliriz

 

[Necdet]

A sütunu? son dolu?
son dolu hücrenin A sütununa karşı gelen mi?

Yoksa A sütunun da son dolu hücre mi?

ikisin farklı şey

 

[TURKOLOG]

Hocam A sütunundaki son dolu satır
yani misal A sütunu 755. satırı son dolu satır ise
A sütunu 755 hücreyi göstersin

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Cells(Rows.Count, 1).End(3).Select
End Sub

 

[Necdet]

Merhaba,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    Range("A" & Cells(Rows.Count, "A").End(3).Row).Select
    
End Sub

 

[TURKOLOG]

Sayın Hocalarım @Necdet ve @Korhan Ayhan elinize emeğinize sağlık iki kodda çalıştı Çok teşekkür ederim. Allah ikinizden de razı olsun.