Veri Aktarma Süresinin Kısaltılması.

[Akyürek1]

Merhabalar,

Aşağıdaki kod ile önce üretim sayfasından iş emri sayfasına daha sonrada isemri sayfasından plan sayfasına isemri no ve operasyon no eşit ise koşuluna göre veri aktarıyorum. Veriler doğru aktarılıyor fakat işlem makronun süresi biraz uzun bu kodda çalışma süresi kısaltılabilirmi.

Selamlar.




Sub karsilastir()
uretim_son = Sheets("uretim").Range("B2").End(xlDown).Row
plan_son = Sheets("plan").Range("A2").End(xlDown).Row
isemri_son = Sheets("isemri").Range("B2").End(xlDown).Row

For k = 2 To isemri_son

isemri_no_ara = Sheets("isemri").Cells(k, 2).Value
isemri_op_ara = Sheets("isemri").Cells(k, 3).Value
For c = 2 To uretim_son
uretim_no_sonuc = Sheets("uretim").Cells(c, 2).Value
uretim_op_sonuc = Sheets("uretim").Cells(c, 3).Value
If isemri_no_ara = uretim_no_sonuc And isemri_op_ara = uretim_op_sonuc Then
Sheets("isemri").Activate
Sheets("isemri").Cells(k, 13).Value = Sheets("uretim").Cells(c, 7).Value

End If
Next
Next
For i = 2 To plan_son
ara = Sheets("plan").Cells(i, 1).Value
ara_2 = Sheets("plan").Cells(i, 2).Value
For j = 2 To isemri_son
sonuc = Sheets("isemri").Cells(j, 2).Value
sonuc_2 = Sheets("isemri").Cells(j, 3).Value
If ara = sonuc And ara_2 = sonuc_2 Then
Sheets("plan").Activate
Sheets("Plan").Cells(i, 20).Value = Sheets("isemri").Cells(j, 4).Value
Sheets("Plan").Cells(i, 21).Value = Sheets("isemri").Cells(j, 5).Value
Sheets("Plan").Cells(i, 22).Value = Sheets("isemri").Cells(j, 6).Value
Sheets("Plan").Cells(i, 23).Value = Sheets("isemri").Cells(j, 7).Value
Sheets("Plan").Cells(i, 24).Value = Sheets("isemri").Cells(j, 8).Value
Sheets("Plan").Cells(i, 25).Value = Sheets("isemri").Cells(j, 9).Value

Sheets("plan").Cells(i, 20).Select
GoTo Devam
End If
Next
Devam:
Next

End Sub