(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 ?
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla