Aktif Sütun'un verisiz son hücresine gitmek..

[EKREM1661]

saygıdeğer sevgili arkadaşlar..tüm forum üyelerine selamlar..

Yine forumdan edinerek aşağıdaki kod kalıbını, hatta daha da kısaltılmış şekillerini kullanıyoruz..(arkadaşlar sağolsun)

Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select

öyle icap etti ki, yukarıdaki kod'da olduğu gibi son boş satır olarak "A" sütunundan başlamak şeklinde değil de;

Fare imleci hangi sütun da (aktif) ise, o sütunun sonuna (verisiz satırına) gitsin.

hayırlı çalışmalar diliyorum..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

ActiveCell.End(3).Offset(1, 0).Select

 

[EKREM1661]

hocam yukarıda verdiğiniz kod satırını ilk etapta bir butona atayarak denedim, nedense hep geri boşluklara doğru gidiyor, yani yukarı doğru..

arada boşluk bile olsa hepsini hiçe sayarak ve düşey olarak, sütunun en sonundaki verisiz hücresine ulaştırması lazım..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub SON_HÜCRE()
    Cells(65536, ActiveCell.Column).End(3).Offset(1, 0).Select
End Sub

 

[EKREM1661]

sayın COST_CONTROL hocam ..

elinize sağlık, çok teşekkür ediyorum, harika olmuş..
hayırlı çalışmalar ve iyi akşamlar diliyorum..