sütundaki boş hücreye sırayla gitme

[burhancavus61]

K sütunundaki boş hücreye aşağı doğru sırayla gitmek istiyorum. son boş hücreye gidince tekrar baştan aynı işleme başlamak istiyorum. her tıklamada sonraki boş hücreye bu şekilde devam edecek. Tekrar başa dönecek döngü böyle devam etmeli.

 

[Korhan Ayhan]

Benzer konu...

Sütundaki Boş Hücreleri Bulma

Merhabalar; Butona bastıkça A sütunu üzerinde bulunan boş hücreleri bulsun istiyorum. Ancak sütun veri yapısı standart değil yani 10 satırda veya 20 satırda bir boşluk yok. Bazen 11 satır bazen 30 satırda bir boşluk var. İlk boş hücreyi bulabiliyorum ama stepleme konusunda takıldım. Bu konuda...

www.excel.web.tr

 

[burhancavus61]

Hocam inceledim ama içinden çıkamadım. Hücrenin mesajını veriyor.
Şu şekilde aktif sütunda dolu hücrelerde gezebiliyorum kısmen işimi görüyor ama aktif sütunda iş görüyor.

Sub BosSatir()
    Selection.End(xlDown).Select
End Sub

 

[Korhan Ayhan]

Talebinizde ki amaç nedir?

 

[burhancavus61]

sütundaki boş hücreleri doldurmak için sırayla bulmak

 

[Korhan Ayhan]

Neyle dolduracaksınız?

 

[burhancavus61]

hocam sütunda dolu ve boş hücreler var tıklayıp ilk boş hücreyi bulacağım el ile dolduracağım sonra diğer boş hücreyi bulacağım.son boş hücreye kadar böyle gideceğim

 

[alicimri]

Arama yaptığınız hücrelerin A sütununda olduğunu farz ettim.

  Columns("A:A").SpecialCells(xlCellTypeBlanks)(1).Select

 

[Korhan Ayhan]

Deneyiniz.

Sub Bos_Sec()
    Dim Satir As Integer
    Satir = Evaluate("=MIN(IF(K1:K1000="""",ROW(K1:K1000)))")
    Cells(Satir, "K").Select
End Sub

 

[burhancavus61]

zahmet verdim hocam elinize sağlık çok iyi oldu

 

[alicimri]

Çalıştığınız sayfanın kod modülüne aşağıdaki kodu yapıştırın. Boş hücrelerin A sütununda olduğunu farz ettim. A sütununda herhangi bir hücrede çift tıklayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.Column = 1 Then
  Columns("A:A").SpecialCells(xlCellTypeBlanks)(1).Select
  End If
End Sub

 

[burhancavus61]

Teşekkür ederim Ali bey bu yöntemde güzel.