İlk boş hücre

[YUSUF44]

Sub Düğme1_Tıklat()
Range("c1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
'-----------------
'C1 dolu ise C2 yi seçecektir, oda dolu ise C3 ü ...
'Kaydınızı sıra ile kaydedebilirsiniz.
End Sub

Yukardaki Kod ile C sütunundaki ilk boş hücreye gidiyorum ama bu kod o sütundaki tüm dolu hücreleri dolaştıktan sonra istediğim hücreye geliyor. Şu anda 500 satır var ve toplamda 6000 satırım olacak. Her seferinde bu kadar satır dolaşmaktansa daha hızlı bir şekilde ilk boş hücreye gitmenin bir yolu var mıdır?

 

[Korhan Ayhan]

Merhaba,

Aralarda boş hücreleriniz yoksa aşağıdaki kodu kullanabilirsiniz.

Sub BOŞ_HÜCRE()
    If Range("C1") = "" Then
        Range("C1").Select
    Else
        Cells(Rows.Count, "C").End(3).Offset(1, 0).Select
    End If
End Sub

Siz seçtirme işlemi kullandığınız için bende kodu o şekilde düzenledim. Eğer kayıt için bu şekilde kullanıyorsanız hücre seçmedende boş hücrelere veri kaydı yapabilirsiniz.

 

[Ömer]

Merhaba,

Alternatif olarak aşağaki gibi kullanılabilir.

Set c = [C:C].Find("")
If Not c Is Nothing Then c.Select

 

[YUSUF44]

Teşekkürler Korhan Bey. Ancak maalesef tablomu office 2007'nin tablo biçimi olarak biçimlendirdiğimden, biçimlendirilmiş hücreleri içi boş olsa da dolu olarak görüyor ve doğrudan 6001. satıra atlıyor.

 

[YUSUF44]

Merhaba,

Alternatif olarak aşağaki gibi kullanılabilir.

Set c = [C:C].Find("")
If Not c Is Nothing Then c.Select

Ömer Bey, süper, teşekkürler.