(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.

Ek Dosyalar

sorum2.rar(416.99 KB)