Sütundaki ilk boş hücreyi seçme

[volkan5454]

Arkadaşlar yazdığım formül ile A1 sütunundaki ilk boş hücreyi seçiyorum fakat bazen il boş hücre 1000. satırda yada daha fazla olabiliyor bu şekilde çok zaman alıyor boş hücreyi bulmak, bu formülün daha kısası varmıdır?

Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'-----------------

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub ilkboş()
Cells(Rows.Count, "A").End(3).Offset(1).Select
End Sub

 

[volkan5454]

Bu şekilde deneyiniz.

Sub ilkboş()
Cells(Rows.Count, "A").End(3).Offset(1).Select
End Sub

Allah razı olusn hocam çok güzel oldu, teşekkür ederim

 

[veyselemre]

Yukarıdan aşağı ilk boş satırı almak istiyorsanız aşağıdaki şekilde kullanın. Diğer şekilde birden fazla boşluk varsa en son boşluğu dikkate alacaktır.

Sub ilkboş()
    Range("A1").End(4).Offset(1).Select
End Sub

 

[Tevfik_Kursun]

Merhaba,
Alternatif olsun. Arada boşluk varsa ilk boşluk için (bu da Veysel Emre'nin)

Sub ilk_Bos()
    Range("A1:A" & Rows.Count).Find("", searchorder:=xlByRows, searchdirection:=xlNext).Activate
End Sub

İyi çalışmalar

 

[Seyit Tiken]

Veysel bey yazdığınız kod bende istenileni gerçekleştirmedi.
Bu kod gerçekleştirdi.

[a1].End(xlDown).Offset(1).Select