AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Ado İle Kapalı Dosyadan Veri Almak Hk.

1 2 3 4 5 6
30/10/2019, 17:06

ByChilavert

Hafta sonu deneyeceğim bakalım neler olacak. Teşekkür ederim.
31/10/2019, 10:57

ByChilavert

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.


31/10/2019, 11:18

berduş

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?
31/10/2019, 11:20

berduş

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-ex...-error-400
31/10/2019, 11:45

ByChilavert

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
31/10/2019, 12:30

berduş

(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[attachment=30799]
1 2 3 4 5 6