AccessTr.neT
Ado İle Kapalı Dosyadan Veri Almak Hk. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ado İle Kapalı Dosyadan Veri Almak Hk. (/konu-ado-ile-kapali-dosyadan-veri-almak-hk.html)

Sayfalar: 1 2 3 4 5 6

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - ByChilavert - 30/10/2019

Hafta sonu deneyeceğim bakalım neler olacak. Teşekkür ederim.

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - ByChilavert - 31/10/2019

Kod:
Sub VeriKopyala()
Dim WbKaynak, WbKaynak2, WbKaynak3, WbKaynak4 As Worksheet
Dim WbHedef As Worksheet
Dim SonSatir As Long

  '
  Workbooks.Open ActiveWorkbook.Path & "\Veri Tabanı.xlsx"
  Set WbKaynak = ThisWorkbook.Worksheets("VERİ GİRİŞİ")
  Set WbKaynak2 = ThisWorkbook.Worksheets("09-Personel_Envanteri")
  Set WbKaynak3 = ThisWorkbook.Worksheets("10-İŞ BAŞVURU FORMU-2")

  Set WbHedef = Workbooks("Veri Tabanı.xlsx").Worksheets("Veri")
   
   
  '2. Find first blank row in the destination range based on data in column A
  'Offset property moves down 1 row
  SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "B").End(xlUp).Offset(1).Row
If SonSatir = 3 Then x = 4 Else x = SonSatir

WbHedef.Range("b" & x).Value = WbKaynak.Range("G4").Value
WbHedef.Range("c" & x).Value = WbKaynak.Range("G5").Value
WbHedef.Range("d" & x).Value = WbKaynak.Range("G6").Value
WbHedef.Range("f" & x).Value = WbKaynak.Range("G7").Value
WbHedef.Range("bz" & x).Value = WbKaynak.Range("G8").Value
WbHedef.Range("ca" & x).Value = WbKaynak.Range("I8").Value
WbHedef.Range("g" & x).Value = WbKaynak.Range("G9").Value
WbHedef.Range("h" & x).Value = WbKaynak.Range("G10").Value
WbHedef.Range("i" & x).Value = WbKaynak.Range("G11").Value
WbHedef.Range("j" & x).Value = WbKaynak.Range("I11").Value
WbHedef.Range("k" & x).Value = WbKaynak.Range("G12").Value
WbHedef.Range("l" & x).Value = WbKaynak.Range("G13").Value
WbHedef.Range("m" & x).Value = WbKaynak.Range("G14").Value
WbHedef.Range("bb" & x).Value = WbKaynak.Range("G15").Value
WbHedef.Range("bc" & x).Value = WbKaynak.Range("G16").Value
WbHedef.Range("bd" & x).Value = WbKaynak.Range("G17").Value
WbHedef.Range("be" & x).Value = WbKaynak.Range("G18").Value
WbHedef.Range("bf" & x).Value = WbKaynak.Range("G19").Value
WbHedef.Range("bg" & x).Value = WbKaynak.Range("G20").Value
WbHedef.Range("bh" & x).Value = WbKaynak.Range("G21").Value
WbHedef.Range("bi" & x).Value = WbKaynak.Range("G22").Value
WbHedef.Range("bj" & x).Value = WbKaynak.Range("G23").Value
WbHedef.Range("bk" & x).Value = WbKaynak.Range("G24").Value
WbHedef.Range("bk" & x).Value = WbKaynak.Range("G25").Value
WbHedef.Range("bm" & x).Value = WbKaynak.Range("G26").Value
WbHedef.Range("bn" & x).Value = WbKaynak.Range("G27").Value
WbHedef.Range("bo" & x).Value = WbKaynak.Range("G28").Value
WbHedef.Range("bp" & x).Value = WbKaynak.Range("G29").Value
WbHedef.Range("bq" & x).Value = WbKaynak.Range("G30").Value
WbHedef.Range("br" & x).Value = WbKaynak.Range("G31").Value
WbHedef.Range("s" & x).Value = WbKaynak.Range("G33").Value
WbHedef.Range("bs" & x).Value = WbKaynak.Range("G35").Value
WbHedef.Range("bt" & x).Value = WbKaynak.Range("G37").Value
WbHedef.Range("bu" & x).Value = WbKaynak.Range("M37").Value
WbHedef.Range("au" & x).Value = WbKaynak.Range("j17").Value
WbHedef.Range("av" & x).Value = WbKaynak.Range("j20").Value
WbHedef.Range("aw" & x).Value = WbKaynak.Range("j24").Value
WbHedef.Range("ax" & x).Value = WbKaynak.Range("I29").Value
WbHedef.Range("ay" & x).Value = WbKaynak.Range("J29").Value
WbHedef.Range("az" & x).Value = WbKaynak.Range("K29").Value
WbHedef.Range("bw" & x).Value = WbKaynak.Range("I38").Value
WbHedef.Range("bx" & x).Value = WbKaynak.Range("G39").Value
WbHedef.Range("by" & x).Value = WbKaynak.Range("G38").Value
WbHedef.Range("cb" & x).Value = WbKaynak.Range("D42").Value
WbHedef.Range("cc" & x).Value = WbKaynak.Range("D43").Value
WbHedef.Range("cd" & x).Value = WbKaynak.Range("D44").Value
WbHedef.Range("ce" & x).Value = WbKaynak.Range("J42").Value
WbHedef.Range("cf" & x).Value = WbKaynak.Range("J43").Value
WbHedef.Range("cg" & x).Value = WbKaynak.Range("J44").Value
WbHedef.Range("ch" & x).Value = WbKaynak.Range("E50").Value
WbHedef.Range("ci" & x).Value = WbKaynak.Range("E51").Value
WbHedef.Range("cj" & x).Value = WbKaynak.Range("E52").Value
WbHedef.Range("ck" & x).Value = WbKaynak.Range("E53").Value
WbHedef.Range("t" & x).Value = WbKaynak.Range("E54").Value
WbHedef.Range("cl" & x).Value = WbKaynak.Range("J50").Value
WbHedef.Range("cm" & x).Value = WbKaynak.Range("J51").Value
WbHedef.Range("cn" & x).Value = WbKaynak.Range("J52").Value
WbHedef.Range("co" & x).Value = WbKaynak.Range("J53").Value
WbHedef.Range("cp" & x).Value = WbKaynak.Range("E55").Value
WbHedef.Range("cq" & x).Value = WbKaynak.Range("E56").Value
WbHedef.Range("cr" & x).Value = WbKaynak.Range("E57").Value
WbHedef.Range("cs" & x).Value = WbKaynak.Range("E58").Value
WbHedef.Range("ct" & x).Value = WbKaynak.Range("J55").Value
WbHedef.Range("cu" & x).Value = WbKaynak.Range("J56").Value
WbHedef.Range("cv" & x).Value = WbKaynak.Range("J57").Value
WbHedef.Range("cw" & x).Value = WbKaynak.Range("J58").Value
WbHedef.Range("cx" & x).Value = WbKaynak.Range("E60").Value
WbHedef.Range("cy" & x).Value = WbKaynak.Range("E61").Value
WbHedef.Range("cz" & x).Value = WbKaynak.Range("E62").Value
WbHedef.Range("da" & x).Value = WbKaynak.Range("E63").Value
WbHedef.Range("db" & x).Value = WbKaynak.Range("J60").Value
WbHedef.Range("dc" & x).Value = WbKaynak.Range("J61").Value
WbHedef.Range("dd" & x).Value = WbKaynak.Range("J62").Value
WbHedef.Range("de" & x).Value = WbKaynak.Range("J63").Value
WbHedef.Range("df" & x).Value = WbKaynak.Range("E65").Value
WbHedef.Range("dg" & x).Value = WbKaynak.Range("E66").Value
WbHedef.Range("dh" & x).Value = WbKaynak.Range("E67").Value
WbHedef.Range("di" & x).Value = WbKaynak.Range("E68").Value
WbHedef.Range("dj" & x).Value = WbKaynak.Range("J65").Value
WbHedef.Range("dk" & x).Value = WbKaynak.Range("J66").Value
WbHedef.Range("dl" & x).Value = WbKaynak.Range("J67").Value
WbHedef.Range("dm" & x).Value = WbKaynak.Range("J68").Value
WbHedef.Range("dn" & x).Value = WbKaynak.Range("E71").Value
WbHedef.Range("do" & x).Value = WbKaynak.Range("E72").Value
WbHedef.Range("dp" & x).Value = WbKaynak.Range("E73").Value
WbHedef.Range("dq" & x).Value = WbKaynak.Range("E74").Value
WbHedef.Range("dr" & x).Value = WbKaynak2.Range("A24").Value
WbHedef.Range("ds" & x).Value = WbKaynak2.Range("E24").Value
WbHedef.Range("dt" & x).Value = WbKaynak2.Range("I24").Value
WbHedef.Range("du" & x).Value = WbKaynak2.Range("X24").Value
WbHedef.Range("dv" & x).Value = WbKaynak2.Range("A25").Value
WbHedef.Range("dw" & x).Value = WbKaynak2.Range("E25").Value
WbHedef.Range("dx" & x).Value = WbKaynak2.Range("I25").Value
WbHedef.Range("dy" & x).Value = WbKaynak2.Range("X25").Value
WbHedef.Range("dz" & x).Value = WbKaynak2.Range("A26").Value
WbHedef.Range("ea" & x).Value = WbKaynak2.Range("E26").Value
WbHedef.Range("eb" & x).Value = WbKaynak2.Range("I26").Value
WbHedef.Range("ec" & x).Value = WbKaynak2.Range("X26").Value
WbHedef.Range("ed" & x).Value = WbKaynak2.Range("A27").Value
WbHedef.Range("ee" & x).Value = WbKaynak2.Range("E27").Value
WbHedef.Range("ef" & x).Value = WbKaynak2.Range("I27").Value
WbHedef.Range("eg" & x).Value = WbKaynak2.Range("X27").Value
WbHedef.Range("eh" & x).Value = WbKaynak2.Range("A31").Value
WbHedef.Range("ei" & x).Value = WbKaynak2.Range("E31").Value
WbHedef.Range("ej" & x).Value = WbKaynak2.Range("I31").Value
WbHedef.Range("ek" & x).Value = WbKaynak2.Range("X31").Value
WbHedef.Range("el" & x).Value = WbKaynak3.Range("G3").Value
WbHedef.Range("em" & x).Value = WbKaynak2.Range("A32").Value
WbHedef.Range("en" & x).Value = WbKaynak2.Range("E32").Value
WbHedef.Range("eo" & x).Value = WbKaynak2.Range("I32").Value
WbHedef.Range("ep" & x).Value = WbKaynak2.Range("X32").Value
WbHedef.Range("eq" & x).Value = WbKaynak3.Range("G4").Value
WbHedef.Range("er" & x).Value = WbKaynak2.Range("A33").Value
WbHedef.Range("es" & x).Value = WbKaynak2.Range("E33").Value
WbHedef.Range("et" & x).Value = WbKaynak2.Range("I33").Value
WbHedef.Range("eu" & x).Value = WbKaynak2.Range("X33").Value
WbHedef.Range("fg" & x).Value = WbKaynak2.Range("E39").Value
WbHedef.Range("ev" & x).Value = WbKaynak3.Range("G5").Value
WbHedef.Range("ew" & x).Value = WbKaynak2.Range("A34").Value
WbHedef.Range("ex" & x).Value = WbKaynak2.Range("E34").Value
WbHedef.Range("ey" & x).Value = WbKaynak2.Range("I34").Value
WbHedef.Range("ez" & x).Value = WbKaynak2.Range("X34").Value
WbHedef.Range("fa" & x).Value = WbKaynak3.Range("G6").Value
WbHedef.Range("aw" & x).Value = WbKaynak3.Range("M37").Value

End Sub
Veri aktarımı yapmak istediğimde resimdeki hatayı veriyor.

[Resim: r0DapV.png]

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - berduş - 31/10/2019

doğrudan sizin kullandığınız kodu yazdım hata vermedi
ofis sürümünüzü öğrenebilir miyim?
personel veri.xlsx dosyasını .xlsm olarak kaydedip deneyebilir misiniz?

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - berduş - 31/10/2019

aşağıdaki bağlantıda (maalesef İngilizce) 400 sorunun sebepleri ve çözüm önerileri yer almakta
dilerim çözüm olur
http://www.repairmsexcel.com/blog/fix-excel-vba-error-400

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - ByChilavert - 31/10/2019

personel veri.xls dosyası değişken olmayacak mı? sabit olan dosya Veri Tabanı.xls murat.xls, ahmet.xls, mehmet.xls gibi personel dosyaları olacak ben bunlardanki veriyi almak istiyorum. Office 2016 kullanıyorum. Bende çalışmayıp sizde çalışlması enteresan bir durum

Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - berduş - 31/10/2019

(31/10/2019, 11:45)ByChilavert yazdı: personel veri.xls dosyası değişken olmayacak mı? sabit olan dosya Veri Tabanı.xls murat.xls, ahmet.xls, mehmet.xls gibi personel dosyaları olacak ben bunlardanki veriyi almak istiyorum. Office 2016 kullanıyorum. Bende çalışmayıp sizde çalışlması enteresan bir durum
ali.xlsx yerine -->ali.xlsm yada ali.xls olacak
.rar excelden excel veri aktarımı_hy.rar (Dosya Boyutu: 955,88 KB | İndirme Sayısı: 15)