(13/12/2011, 23:58)schworse yazdı: Merhaba;
Örneği inceledim For a gerek yok altta bulunan kodu yazın ve txt leri b,c,d diye değiştirip çoğatabilirsiniz.
Kolay gelsin.
Kod:Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
dosya.Visible = True
Dim sonsatir As Integer
sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("Sayfa1").Columns("A"))
sonsatir = sonsatir + 1
sayfa.Sheets("Sayfa1").Range("A" & sonsatir) = TextBox1.Text
End Sub
Merhaba;
Çalışan örnek ekte yer almaktadır.
Kolay gelsin.
Teşekkürler. Tamamdır