Skip to main content

AccessTr.neT

Kayıt Ol

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

Ado İle Kapalı Dosyadan Veri Almak Hk.

ByChilavert
ByChilavert
Excel Cevaplanmış Soruları
33
4985

Ado İle Kapalı Dosyadan Veri Almak Hk.

#13
ByChilavert
Aktif Üye
ByChilavert
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 42
Konum:
Ofis Versiyonu:
Son Oturumu: 15/01/2022,10:30
Yorumları: 82
Konuları: 14
Kayıt Tarihi: 06/08/2019
Teşekkür Puanı: 0
Hafta sonu deneyeceğim bakalım neler olacak. Teşekkür ederim.
Cevapla
#14
ByChilavert
Aktif Üye
ByChilavert
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 42
Konum:
Ofis Versiyonu:
Son Oturumu: 15/01/2022,10:30
Yorumları: 82
Konuları: 14
Kayıt Tarihi: 06/08/2019
Teşekkür Puanı: 0
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]
Cevapla
#15
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:23
Yorumları: 8.506
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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?
Cevapla
#16
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:23
Yorumları: 8.506
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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
Cevapla
#17
ByChilavert
Aktif Üye
ByChilavert
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 42
Konum:
Ofis Versiyonu:
Son Oturumu: 15/01/2022,10:30
Yorumları: 82
Konuları: 14
Kayıt Tarihi: 06/08/2019
Teşekkür Puanı: 0
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
Cevapla
#18
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:23
Yorumları: 8.506
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
(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)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task