son dolu hücre

[vivident]

merhaba

İlk sorum range ile son satırı bulabiliyoruz
Cells ile bu işlem nasıl yapılıyor

Sub sırano2()
'Range("A" & Rows.Count).End(xlUp).Select
[COLOR="Red"]Cells("x,1" & Rows.Count).End(xlUp).Select[/COLOR]
End Sub

İkinci sorum
Aşağıdaki gibi bir çalışma yaptım. Boşa eşit olmayan hücrenin satır numarasını almak istiyorum. sürekli 2 değeri veriyor neden?

Sub sırano()
Dim i As Integer, no As Integer
For i = 1 To 5
    If Cells(i, 1).Value <> "" Then
    no = Cells(i, 1).Rows.Count + 1
    End If
Next i
MsgBox no
End Sub

 

[Asri]

2. soru için.

Burada amacınız nedir tam anlamadım ancak, ilk satırdan hücrelerin dolu olduğunu var sayar isek, aradaki ilk boşluğa kadar kontrol edip ilk boşluktan sonra baktığı son dolu hücreyi verecektir.

Sub sırano()
Dim i As Integer, no As Integer
For i = 1 To 5
    If Cells(i, 1).Value = "" Then
    Exit For
    End If
Next i
If i - 1 = 0 Then MsgBox "Dolu hücre yok" Else MsgBox "son dolu hücre " & i - 1
End Sub

 

[halit3]

Alternatif

Cells(Rows.Count, "A").End(xlUp).Select

Sub sırano()
Dim i As Integer, no As Integer
For i = 1 To 5
    If Cells(i, 1).Value <> "" Then
 
    MsgBox i
    End If
Next i

End Sub

 

[vivident]

sayın asri kodunuz çalıştı. Ok

sayın halit ilk cevap için kodunuz çalıştı. Ok Lakin ikinci cevaptaki kod arka arkaya mesajlar verdiği için çok sıkıntı yarattı. Lakin msgbox'ı Next i'nin altına aldığımda da i=1 to 5'den dolayı cevabı 6 olarak verdi