Son "Boş Satır"

[ERMAN SAYINALP]

Merhaba,

*** A Sütunu Tarih Sütunudur.
*** A1 : K1000 aralığındaki tüm hücreler Formüllendirilmiştir.
*** A1 : K1000 aralığındaki hücreler ilgili formüller sayesinde Kısmen Veri almıştır.
*** Satır veri almamışsa Axx sütununda Tarih oluşmaz.


SORU: Axx Sütununda Tarih oluşmayan ve Veri almayan Son Boş Satır esas olmak üzere, A1 den (Son Boş Satır ) Kxx alanının Seçili hale getirilmesine ihtiyaç duymaktayım.

Yardımlarınız lütfen. (Makro)

 

[Korhan Ayhan]

"A" sütununda kullandığınız formülü paylaşabilirmisiniz.

 

[ERMAN SAYINALP]

Korhan beycim merhaba,

Alakanıza teşekkür ederek, ÖRNEK Dosyayı ekte gönderiyorum.

Görüşmek üzere...

 

[Korhan Ayhan]

Deneyiniz.

Sub Alan_Sec()
    Son = Evaluate("=LOOKUP(2,1/(A1:A5000<>""""),ROW(A1:A5000))")
    Range("A2:K" & Son).Select
End Sub

 

[ERMAN SAYINALP]

Korhan beycim merhaba,

Emeğinize ve zarif yanıtınıza çok teşekkür ederim.

Görüşmek üzere...