Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Excele aktarım hakkında

drummers
drummers
Visual Basic .NET Cevaplanmış Soruları
1
2194

Excele aktarım hakkında

Çözüldü #1
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 30/01/2025,16:50
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125 

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
Kur@l
AccessTR.Net
Kur@l
Bul
Uzman
Adı Soyadı:
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 23/03/2025,01:30
Yorumları: 2.048
Konuları: 59
Kayıt Tarihi: 05/11/2008
Teşekkür Puanı: 1.663
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()
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
Task