Sütundaki Boş Hücreleri Bulma

[bhdr]

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 yardımcı olacak var mı acaba ?

Teşekkürler.

 

[Seyit Tiken]

Bulunan boş hücrelere ne yapılacak?

 

[bhdr]

Bulunan boş hücrelere ne yapılacak?

Bulunan hücrenin satır sayısı kadar for döngüsü çalıştırılacak.

 

[bhdr]

Bulunan hücrenin satır sayısı kadar for döngüsü çalıştırılacak.

Daha doğrusu şöyle diyeyim. For i=2 to "....." kısmına ilk boş hücrenin adresini vermek amacım.

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    MsgBox Evaluate("=MIN(IF(A1:A1000="""",ROW(A1:A1000)))")
End Sub

 

[bhdr]

Sub Test() MsgBox Evaluate("=MIN(IF(A1:A1000="""",ROW(A1:A1000)))") End Sub

Hocam günaydın, öncelikle teşekkür ederim. Ancak bu sonucu msgbox olarak değilde bir "i" sabitinin cevabı olarak nasıl yazabiliriz. yani i= yazdığınız formülün cevabı olacak şekilde.

 

[Necdet]

Hocam günaydın, öncelikle teşekkür ederim. Ancak bu sonucu msgbox olarak değilde bir "i" sabitinin cevabı olarak nasıl yazabiliriz. yani i= yazdığınız formülün cevabı olacak şekilde.

İsteğinizden sanki bir döngüde bu hücreleri görmek istiyorsunuz.
Aşağıdaki kodu inceleyiniz, kendinize uyarlayınızb.

Sub Makro1()
    
    Dim Hcr As Range
    
    For Each Hcr In Columns("A:A").SpecialCells(xlCellTypeBlanks)
        MsgBox Hcr.Address
    Next Hcr
    
End Sub

 

[Korhan Ayhan]

Aşağıdaki gibi olabilir.

Sub Test()
    Dim Satir As Integer
    Satir = Evaluate("=MIN(IF(A1:A1000="""",ROW(A1:A1000)))")
    For i = 2 To Satir
        Rem Kodlarınız...
        Rem Kodlarınız...
        Rem Kodlarınız...
        Rem Kodlarınız...
        Rem Kodlarınız...
    Next
End Sub

 

[bhdr]

Aşağıdaki gibi olabilir.

Sub Test()
    Dim Satir As Integer
    Satir = Evaluate("=MIN(IF(A1:A1000="""",ROW(A1:A1000)))")
    For i = 2 To Satir
        Rem Kodlarınız...
        Rem Kodlarınız...
        Rem Kodlarınız...
        Rem Kodlarınız...
        Rem Kodlarınız...
    Next
End Sub

Teşekkür ederim.

 

[bhdr]

İsteğinizden sanki bir döngüde bu hücreleri görmek istiyorsunuz.
Aşağıdaki kodu inceleyiniz, kendinize uyarlayınızb.

Sub Makro1()
   
    Dim Hcr As Range
   
    For Each Hcr In Columns("A:A").SpecialCells(xlCellTypeBlanks)
        MsgBox Hcr.Address
    Next Hcr
   
End Sub

Teşekkür ederim.