Excele aktarım hakkında
Tarih
28/01/2013 13:28
Konu Sahibi
drummers
Yorumlar
1
Okunma
1232
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
07/01/2017,15:41
Çözüldü 
Sponsor Reklam

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

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
Dün,01:26
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  DataGridView dan Excele Veri Gönderme emir ustaoğlu 2 304 31/08/2016, 15:33 emir ustaoğlu
Çözüldü ListView1 Listeleme Hakkında drummers 7 1.864 23/05/2015, 12:45 alpeki99
Çözüldü ExecuteReader Fonksiyon Hakkında drummers 2 1.684 30/09/2014, 08:54 drummers
Çözüldü reportviewer hakkında umutakkaya 4 1.535 29/09/2014, 10:24 alpeki99
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.326 04/05/2014, 16:31 umutakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya