son dolu hücre adresini yazdırma

[Carpintero]

Merhabalar,
B C D ve E kolonlarına bakıp en son dolu hücre hangisi ise
bu hücrenin adresini A1 e yazdırmak istiyorum.

Kendim uzun yoldan bir şeyler yaptım satır numaralarının büyüklüğüne göre
sildiriyorum ama daha pratik bir yolu vardır illaki.
Paylaşımda bulunulursa çok sevinirim. İyi çalışmalar.

 

[Hexafluramon]

Merhaba, yine excel.web.tr 'den bulduğum bir formül. Benim çalışmamda işe yaradı. Çok güzel oldu. Sizde kendinize göre düzelterek kullanabilirsiniz.
=ARA(2;1/(A2:A65536<>"");A2:A65536)
Bu formülde A2:A65536 arasındaki yani A kolonundaki son dolu hücre değerini veriyor.

 

[çıtır]

Sub Sondolu()
satir = Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sütun = Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column
[A1] = Cells(satir, sütun).Address
End Sub

 

[Carpintero]

Alakanız için teşekkür ederim lakin kod istediğim gibi değil maalesef.

B C D ve E kolonlarının verilerine bakılacak.
üstteki kolon haricindeki kolonlarla işimiz yok.

 

[Ziynettin]

Merhaba,

B:E kolonları son dolu satır adresini verir.

Sub son_satir()
    satir = Range("B:E").Find("?", , , , xlByRows, xlPrevious).Address(0, 0)
    MsgBox satir
End Sub

 

[Carpintero]

Teşekkür ederim sn Ziynettin.
İşe yaradı. Ellerinize sağlık.