Excele aktarım hakkında
Tarih
28/01/2013 13:28
Konu Sahibi
drummers
Yorumlar
1
Okunma
1217
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
29/11/2016,13:56
Çözüldü 

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
15/11/2016,02:32
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 263 31/08/2016, 15:33 emir ustaoğlu
Çözüldü ListView1 Listeleme Hakkında drummers 7 1.824 23/05/2015, 12:45 alpeki99
Çözüldü ExecuteReader Fonksiyon Hakkında drummers 2 1.670 30/09/2014, 08:54 drummers
Çözüldü reportviewer hakkında umutakkaya 4 1.505 29/09/2014, 10:24 alpeki99
Çözüldü Datagridview üzerinden kayıt güncelleme Hakkında umutakkaya 3 1.280 04/05/2014, 16:31 umutakkaya


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