İçinde Formül olan Hücrelerde Son Dolu Hücreye Gitme

[Radikal16]

Merhaba. Bi Çalışma sayfam var diğer sayfalardan veri çekiyor. Bu sayfayı açtığım zaman son satıra gitmek istiyorum. Bunun için Forumda arama yaptım şu kodu buldum.

Private Sub Worksheet_Activate()
Range("L65536").End(3)(2, 1).Select
End Sub

ama bendeki tabloda diğer sayfalardan veri aldığım için hücreler boş gözüksede
içlerinde formül var o yüzden tablonun dışına çıkıyor.
Bu şekilde nasıl en son dolu hücrenin bi altındaki boş hücreye gidebilirim.

2. Sorum da yine aynı sayfada buton ile son satıra gitmek istiyorum

Sub SonSatıraGit()
'
' SonSatıraGit Makro
'

'
    Range("b2000").End(xlUp).Offset(1, 0).Select
End Sub

bu kodda da hücrelerin içi formüllü olduğu için tablonun dışına çıkıyor. 2 Koduda
en son dolu hücrenin bi altındaki boş hücreye göre ayarlarmısınız.

Teşekkür Ederim Yardımlarınız için.

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub Worksheet_Activate()
    Dim son As Long, sat As Long
    son = Cells(Rows.Count, "L").End(xlUp).Row
    sat = Evaluate("=LOOKUP(2,1/(L1:L" & son & " <> """"),ROW((L1:L" & son & ")))") + 1
    Cells(sat, "L").Select
End Sub

''''''''

Sub SonSatıraGit()
    Dim son As Long, sat As Long
    son = Cells(Rows.Count, "B").End(xlUp).Row
    sat = Evaluate("=LOOKUP(2,1/(B1:B" & son & " <> """"),ROW((B1:B" & son & ")))") + 1
    Cells(sat, "B").Select
End Sub

 

[Radikal16]

Tam istediğim gibi oldu. Sorunum Çözülmüştür.

Çok Teşekkür ederim.

Merhaba,

Deneyiniz.
Kod:
Private Sub Worksheet_Activate()
Dim son As Long, sat As Long
son = Cells(Rows.Count, "L").End(xlUp).Row
sat = Evaluate("=LOOKUP(2,1/(L1:L" & son & " <> """"),ROW((L1:L" & son & ")))") + 1
Cells(sat, "L").Select
End Sub

''''''''

Sub SonSatıraGit()
Dim son As Long, sat As Long
son = Cells(Rows.Count, "B").End(xlUp).Row
sat = Evaluate("=LOOKUP(2,1/(B1:B" & son & " <> """"),ROW((B1:B" & son & ")))") + 1
Cells(sat, "B").Select
End Sub