AccessTr.neT

Dim dosya As New Excel.Application

                    Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(System.Windows.Forms.Application.StartupPath & "\drmkayıt v2.xls")

                    dosya.Visible = False

                    Dim sonsatir As Integer

                    sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("makbuz listesi").Columns("B"))

                    sonsatir = sonsatir + 2

                    sayfa.Sheets("makbuz listesi").Range("B" & sonsatir) = TextBox1.Text  ' ad soyad

                    sayfa.Sheets("makbuz listesi").Range("C" & sonsatir) = TextBox12.Text ' muh ücreti



                    sayfa.Save()

                    sayfa.Close()

                    dosya.Quit()

Bu kod ile Textboxlara girilen değerleri sayfanın "B" sütununa ekliyorum. Yeni veri girildiğinde en alt satırıa ekleme yapıyor.

Sorum şudur: Ben bu veri girişinin "B" sütunundan değilde belirli bi hücresinden başlamasını istiyorum. Mesela "B10" hücresinden başlasın ve veri girildikçe bir alt satıra geçsin

Teşekkürler.

B9 hücresinden başlaması için aşağıdaki değişikliği yaparak deneyiniz.
Kolay Gelsin.

Dim dosya As New Excel.Application

                    Dim sayfa As Excel.Workbook = dosya.Workbooks.Open(System.Windows.Forms.Application.StartupPath & "\drmkayıt v2.xls")

                    dosya.Visible = False

                    Dim sonsatir As Integer

                    sonsatir = dosya.WorksheetFunction.CountA(sayfa.Sheets("makbuz listesi").Columns("B"))

sonsatir=9

              

if sonsatir> 9 then 

      sonsatir = sonsatir + 2

end if

                    sayfa.Sheets("makbuz listesi").Range("B" & sonsatir) = TextBox1.Text  ' ad soyad

                    sayfa.Sheets("makbuz listesi").Range("C" & sonsatir) = TextBox12.Text ' muh ücreti



                    sayfa.Save()

                    sayfa.Close()

                    dosya.Quit()