Skip to main content

AccessTr.neT


Excele aktarım hakkında

Excele aktarım hakkında

Çözüldü #1

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Excele aktarım hakkında - Yazar: drummers - 28/01/2013, 13:28
Cvp: Excele aktarım hakkında - Yazar: Kur@l - 28/01/2013, 15:29
Task