boş satırı seçmek

[ipkins]

merhaba arkadaşlar benim elimde bir dosya var ve burada oluşturduğum bir userform var buda işlemlerimi yaptıktan sonra bilgileri yazdırırken yapmış olduğum işlemi başka başka bir sayfaya bu kodlarla aktarıyorum ama sorunum şu hep ilk satıra yazıyor bir alttaki satıra yazmıyor ben boş olam satıra yazmasını istiyorum bana yardımcı olursanız çok sevinirim kolar şunlar
If mesaj = vbYes Then a = WorksheetFunction.CountA(Sheets("a").Range("a2:a65536"))
Sheets("veri").Range("A" & a + 2) = a + 1
Sheets("veri").Range("b" & a + 2) = [a2]
Sheets("veri").Range("c" & a + 2) = [v12]
Sheets("veri").Range("d" & a + 2) = [r21]

 

[metinozlu]

boş satırı bulmakla ilgili kod
kendinize göre ayarlıyabilirsiniz.

Sub Düğme1_Tıklat()
Dim i As Integer
For i = 1 To 5000
Range([A65536].End(xlUp).Offset(1, 0).Address).Select
ActiveCell.Value = i
ActiveCell(1, 2).Value = i + 20
ActiveCell(1, 3).Value = i + 25

Next i
End Sub

 

[Levent Menteşoğlu]

If mesaj = vbYes Then a = WorksheetFunction.CountA(Sheets("a").Range("a2:a65536"))

yukarıdaki satırı aşağıdaki gibi değiştirmenizde yeterlidir.

If mesaj = vbYes Then a = WorksheetFunction.CountA(Sheets("veri").Range("a2:a65536"))

 

[Cemil1]

If mesaj = vbYes Then a = WorksheetFunction.CountA(Sheets("veri").Range("a2:a65536"))+1

 

[ipkins]

arkadaşlar teşekkürler sorunum çözüldü :hey:

 

[salahattin]

ARKADAÞLAR BU Ã?RNEKTE OLDUÐU GİBİ ARADAKİ BOÞ OLAN SATIR NASIL SİLİNİR ?

 

[bedersu]

Merhaba,
Aşağıdaki kodlara bir bakın.

ActiveCell.EntireRow.Delete Shift:=xlUp