(12/12/2011, 10:29)alpeki99 yazdı: [ -> ]sayfa.Sheets("Sayfa1").range("B2") = TextBox1.Text + 1
şeklinde olmayacak. Range("B2") bölümünde eğer B3,B4,B5 gibi +1 arttırırsanız alt satıra geçecektir.
sayfa.Sheets("Sayfa1").range("B2 + 1") = TextBox1.Text
Böylemi olacak
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.
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, 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 ?
Dim alan As Integer
Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
dosya.Visible = True
alan = 2
For i = 1 To 10
sayfa.Sheets("Sayfa1").range("B" & alan + 1) = TextBox1.Text
sayfa.Sheets("Sayfa1").Activate()
Next i
Böyle yapıyorurum eklediğim verileri excelde hep üstü üste aynı satıra yazıyor. Yani veri yazıldıktan sonra sonraki satıra geçip ekleme yapmıyor.
Sadece bu işi yapan formlarınızı ekleyin o şekilde kontrol edelim. Benim yazdığımı kafadan hızlıca yazdığım için eksik var. For döngüsü içinde B sütunundan sonraki sayı 1 artacağı için ben orada katmayı unutmuşum. Schworse hocamın yazdığı kodda ki gibi döngüde sütun yanındaki sayıyı arttıracak bir sayı gelecek. Schworse hocam For'un parametresini vermiş o şekilde kullanabilirsiniz.