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
4110

Ado İle Kapalı Dosyadan Veri Almak Hk.

#14
ByChilavert
Aktif Üye
ByChilavert
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 41
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Ado İle Kapalı Dosyadan Veri Almak Hk. - Yazar: ByChilavert - 31/10/2019, 10:57
Task