Excel VBA - SON SATIR

Excel VBA son satırın bulunması
Excel VBA yeni satırın bulunması
Excel VBA eklenecek satırın bulunması
Excel VBA döngü değerinin bulunması

Sub EKLEME()
Dim satir As Long

Dim SONSATIR As Long

Dim yeni As String


'SONSATIR = WorksheetFunction.CountA(ThisWorkbook.Sheets("CARİHESAP").Range("A:A"))

'SONSATIR = ThisWorkbook.Sheets("CARİHESAP").Range("a" & Rows.Count).End(xlUp).Row

'SONSATIR = ThisWorkbook.Sheets("CARİHESAP").Range("a1").End(xlDown).Row

'SONSATIR = ThisWorkbook.Sheets("CARİHESAP").Cells(1, 1).End(xlDown).Row

SONSATIR = ThisWorkbook.Sheets("CARİHESAP").Cells(Rows.Count, 1).End(xlUp).Row

yeni = InputBox("kod girin")

ThisWorkbook.Sheets("CARİHESAP").Cells(SONSATIR + 1, 1).Value = yeni

MsgBox SONSATIR

For satir = 2 To SONSATIR
If Sheets("CARİHESAP").Cells(satir, 1).Value = "C0009" Then
Rows(satir).EntireRow.Delete
End If
Next satir


End Sub

Faruk Çubukçu - Bilgi Teknolojileri Danışmanlık

[huseyinferahl]

Merhaba Hocam sonsatir = ThisWorkbook.Sheets("Sayfa1").Cells(Rows.Count, 1).End(xlUp).Row burda alttan kontrol ederek son satırı buluyor. Son Satırda kontrol hücresi boş olduğunda bir önceki satırı baz alacaktır bu durumda ne yapmalıyız.