Bir sonraki boş hücreyi bir colunm içinde bulma

Question

Çalışma sayfamda birkaç yüz girdiye sahip bir çalışma kitabım var, & Bir sütunda bir sonraki boş hücreyi bulmak için kodum var. Kod bir sayfa üzerinde çalışıyor, ancak diğerinde değil. Bunun basit bir şey olduğunu biliyorum ama yanlış olduğunu anlayamıyorum.

Private Sub CommandButton_Click() 
Dim ws As Worksheet 

Set ws = ActiveSheet 

For Each cell In ws.Columns(1).Cells 
    If Len(cell) = 0 Then cell.Select: Exit For 
Next cell 
End Sub 

Answer 1

kullanmak olacaktır modül bir sıradaki bir sonraki boş hücreyi bulur. İşte bu kodu Sub Macro_FIND_NEXT_BLANK_SPACE() If IsEmpty(ActiveCell.Offset(1)) Then ActiveCell.Offset(1).Select Else ActiveCell.End(xlDown).Offset(1).Select End If End Sub kodlayın ve sonra alt komutu çalıştırmak için kodu yazdım. Private Sub CommandButton14_Click() Call Macro_FIND_NEXT_BLANK_SPACE End Sub Yardımlarından dolayı gruba teşekkür ediyorum.

Answer 2

Sen önceki tıklama bulunan son boş hücreyi "hatırlamak" için bir yol gerekir:

Public iROW As Long 

Sub CommandButton_Click() 
Dim ws As Worksheet 

Set ws = ActiveSheet 

For Each cell In ws.Columns(1).Cells 
    If cell.Row > iROW Then 
     If Len(cell) = 0 Then 
      cell.Select 
      iROW = cell.Row 
      Exit For 
     End If 
    End If 
Next cell 
End Sub 

alternatif bir yaratılmış Find() ve FindNext()