Soru Dolu olan son satıra gitmek

[coşkun79]

Forumdan yararlanarak bazı makroları denedim. Ama benim istediğim gibi bir örnek makro bulamadım. Ekte gönderdiğim dosyada örnek tablo var. Bu tabloda dolu olan son satıra gidecek makroya ihtiyacım var. Dolu olan son hücre A15 hücresi. Dolayısı ile 15. satıra gitmek istiyorum. Forumda daha önce hazırlanmış bir makroyu denedim ama o makro ile tablonun son satırına ulaşılıyor. Örnek tablo üzerinde söylemek gerekirse 20. satıra gidilebiliyor. (denediğim makro dosyanın içinde var) Ayrıca A sütununda formül var. Buna göre yapmak istediğim eğer satırlarda formül olsa bile tablonun içinde dolu olan ( formül içerse bile hücre değeri/ sonucu boş olmayan) son satıra gitmek.

 

[çıtır]

Sonsatır vba kod deneyiniz.

sonsatır = [SumProduct((ÖRNEK!a1:a1000<>"")*(ÖRNEK!A1:A1000<>0))]

 

[Haluk]

Sub Test()
    NoA = Columns("A").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row
    Range("A" & NoA).Select
End Sub

Veya;

Sub Test2()
    i = 1
    Do While Cells(i, 1).Offset(1, 0).Value <> ""
        Cells(i, 1).Offset(1, 0).Select
        i = i + 1
    Loop
End Sub

.

 

[coşkun79]

Kodlama yapabilen kişilere hayranım. Ben de yapabilmeyi isterdim. İkinize de çok teşekkür ediyorum