Skip to main content

AccessTr.neT M.

Konu

Çözüldü #1

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
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.

drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
B9 hücresinden başlaması için aşağıdaki değişikliği yaparak deneyiniz.
Kolay Gelsin.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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()

komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da