(12/12/2011, 20:37)schworse yazdı: Merhaba;

Dim Son As Integer



satirsayisi = WorksheetFunction.CountA(Sheets("Sayfa1").Columns("A"))



satirsayisi = satirsayisi + 1



Son = 5 // Yazdırılacak olan satir sayisi yazılmalı



For i = satirsayisi To Son



Sheets("Sayfa1").Range("A" & i) = "Yazılacak Değer"



Next

excel'de son satıra ben bu şekilde yazdırıyorum.

Kolay gelsin.

(12/12/2011, 15:25)alpeki99 yazdı: B2 değeri yerine değişken kullanıp For döngüsü içinde +1 arttırmanız gerekmektedir.

alan = 2

For i = 1 To 10



 sayfa.Sheets("Sayfa1").range("B" & alan+1) = yazılacak değer.



Next i

Buna benzer bir yapı kurmalısınız.

Bu ikisindede sonuca ulaşamadım acaba hata bendemi ?