ilk boş satır numarası

[teknikyapı]

merhaba.
Arkadaşlar ,aradığım bir veriyi bulduğum hücreden aşağıya doğru ilk boş hücre satır numarasını nasıl buluyorduk?

 

[Ayhan Ercan]

Merhaba,
Aradığınız verinin "excel.web.tr" olduğunu varsayalım;

MsgBox Cells(65536, Cells.Find("excel.web.tr").Column).End(3).Row + 1

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. A sütunundaki ilk boş hücrenin satır numarasını verir.

Option Explicit
 
Sub BOŞ_SATIR_NO()
    MsgBox IIf([A1].End(4).Row = 65536, [A65536].End(3).Row + 1, [A1].End(4).Row)
End Sub

 

[teknikyapı]

Yardımlarınız için teşekkür ederim,iyi çalışmalar.

 

[Ayhan Ercan]

Tekrar Merhaba,

Sanırım ben soruyu yalnış anladım.

Aşağıya doğru İLK boş hücre için Korhan Hocamın çözümüne alternatif bir kod:

Aradığınız verinin yine "excel.web.tr" olduğunu varsayalım..

Sub bul()
Cells.Find("excel.web.tr").Activate
    Do While ActiveCell.Offset(1, 0) <> ""
        ActiveCell.Offset(1, 0).Activate
    Loop
MsgBox ActiveCell.Row + 1
End Sub