Boş Hücreye Gitme

[Seyit Tiken]

Merhaba,
B sütununda yukarıdan aşağıya doğru bir sürü veri var. Butona tıklandığında dolu hücrelerden sonra ilk boş hücreye geçiş yapılabilir mi?
Teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:33cfcca830][b65536].End(3).Offset(1, 0).Select
[/vb:1:33cfcca830]

 

[Necdet]

Alternatif olarak :
B sütununda iken End tuşuna bastıktan sonra aşağı oka basarsanız ilk boş hücreden önceki dolu hücreye gider. tekrar aşağı oka basarsanız ilk boş hücreye gitmiş olursunuz.
Aşağı satırlarda iken End tuşuna bastıktan sonra Yukarı Ok tuşuna basarsanız yukarıda anlattığımın tersi işler.

Keza satırın sonunda yada başında da bunu deneyebilirsiniz o zaman sağ ve sol oklarını kullanmanız gerekir.
Ã?rneğin 5. satırda iken End Tuşu sonra Sağ Ok tuşuna basarsınız o satırın sonundaki boş hücreden önceki dolu hücreye (Başka bir deyişle son dolu hücreye) gitmiş olursunuz.

Edit :
Soru makro bölümünde sorulmuş bunun farkına sonradan vardım. Ama olsun ek bilgi ek bilgidir

 

[ahbalci]

Private Sub CommandButton1_Click()
range("b1").select
Do While Not IsEmpty(ActiveCell)
'aktif hücre doluysa alttaki ilk boş hücreyi seç
ActiveCell.Offset(1, 0).Select
Loop
End Sub

 

[adobul]

Sn. ahbalci , bu kodu arıyordum ben de, tablomda kullandım işe yaradı. Teşekkür ederim.

 

[hunter123]

Çok teşekkürler. İşime yaradı...

 

[myefsane]

Private Sub CommandButton1_Click()
range("b1").select
Do While Not IsEmpty(ActiveCell)
'aktif hücre doluysa alttaki ilk boş hücreyi seç
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Süper çok işime yaradı

 

[Korhan Ayhan]

Bu kod veri sayısı çoğaldıkça yavaş çalışacaktır.