Birden Fazla Aralıktaki Son Dolu Satır Bulma

[buyocan]

İyi akşamlar.

Forumda çok aradım ama benim işimi gören makro bulamadım.
Sıkıntım şöyle sayfamda gizli satırlarda var. Gizli satırlardan hariç Son dolu satırı seçme konusunda ama;
örneğin M sütunundaki son dolu satırı seçerken M sütunundaki (M5:M100;M110:M205;M215:M310) gibi 31 adet farklı aralık var.
Bu aralıklardaki son dolu satırı seçmek istiyorum. Yardımlarınızdan ötürü şimdiden teşekkürler.
Dosyam ektedir.

İndir Yardım

Dosyayı indir Yardım

dosya.co

 

[Korhan Ayhan]

Merhaba,

F5 menüsü (Özel Git) işinize yarayabilir.

 

[HücrelereFısıldayanAdam]

Dosya ile sorun algılandı, bu dosya açılamaz hatası verdi, excel. Ayrıca tüm sütunlardaki en son dolu satırı mı bulmaya çalışıyorsunuz?

 

[veyselemre]

Sub test()
    Dim i, rng As Range
    For i = 3155 To 5 Step -105
        Set rng = Cells(i, "M").Resize(96)
        If WorksheetFunction.CountA(rng) > 0 Then
            rng.Cells(96).Offset(1).End(3).Select
        End If
    Next i
End Sub

 

[buyocan]

Sub test()
    Dim i, rng As Range
    For i = 3155 To 5 Step -105
        Set rng = Cells(i, "M").Resize(96)
        If WorksheetFunction.CountA(rng) > 0 Then
            rng.Cells(96).Offset(1).End(3).Select
        End If
    Next i
End Sub

Usta emeğine sağlık. Ama 400 - 500 satırları dolduruyorum. Ama hep M189'da kalıyor.