(12/12/2011, 01:20)alpeki99 yazdı: Kaydettiğiniz hücre B10 ise 10 +1, 11 + 1... şeklinde son kısımları +1 ile toplayarak sonraki satıra geçebilirsiniz.
Dim dosya As New Excel.Application
Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(Application.StartupPath & "\deneme.xls")
dosya.Visible = True
sayfa.Sheets("Sayfa1").range("B2") = TextBox1.Text + 1
sayfa.Sheets("Sayfa1").Activate()
Yaptım ama veri aktarımı olmadı