kodun en başına " Application.ScreenUpdating = False " ekleyin
en sonuna da " Application.ScreenUpdating = True" kodunu
Not: çalışmanıza yeni bir kod daha ekledim yeni kodun düzgün çalışabilmesi için sıraNo ların olduğu "A" sütununun, 3. satırdan itibaren boş olması gerekmektedir
excel dosyasındaki sıra no sütununa girdiğiniz tüm sıranoları silin aşağıdaki kod SıraNoları kendisi ekliyor
WbHedef.Range("A" & x).Value = WbHedef.Range("A" & x - 1).Value + 1 '<-- bu satır A sütununu kontrol eder eğer sıra numarası girilmemişse
sıra numarası ekleyip veriyi kopyalar
Sub VeriKopyala()
Dim WbKaynak, WbKaynak2, WbKaynak3, WbKaynak4 As Worksheet
Dim WbHedef As Worksheet
Dim SonSatir As Long
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Application.ScreenUpdating = False
Set WbHedef = ThisWorkbook.Worksheets("Veri")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(ActiveWorkbook.Path)
For Each oFile In oFolder.Files
On Error GoTo 10
If Mid(oFile.Name, InStrRev(oFile.Name, "."), 3) <> ".xl" Then GoTo 10
If oFile.Name = ThisWorkbook.Name Or oFile.Name = "~$" & ThisWorkbook.Name Then GoTo 10
Workbooks.Open ActiveWorkbook.Path & "\" & oFile.Name, True, True
Set WbKaynak = Workbooks(oFile.Name).Worksheets("VERİ GİRİŞİ")
Set WbKaynak2 = Workbooks(oFile.Name).Worksheets("09-Personel_Envanteri")
Set WbKaynak3 = Workbooks(oFile.Name).Worksheets("10-İŞ BAŞVURU FORMU-2")
SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "A").End(xlUp).Offset(1).Row
If SonSatir = 3 Then x = 4 Else x = SonSatir
WbHedef.Range("A" & x).Value = WbHedef.Range("A" & x - 1).Value + 1 '<-- bu satır A sütununu kontrol eder eğer sıra numarası girilmemişse sıra numarası ekleyip veriyi kopyalar
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
Workbooks(oFile.Name).Close
10
Next oFile
Application.ScreenUpdating = True
End Sub