بطء شديد في تنفيذ الماكرو

[hayyan alaa]

صباح  الخير يا اساتذتنا

عملت كود عبارة عن بحث بطريقة index  و match

بواسطة vba

ولكن هناك بطء شديد في التنفيذ

ما المشكلة و ما الحل 

ارفقت الملف

شكرا سلفا

حركات معدل1.xlsm

[احمد بدره]

مساء الخير 

تمت المعالجة

حركات معدل1.xlsm

[hayyan alaa]

استاذ احمد بدره

تستاهل الف الف الف اعجاب

لا تؤاخذوني على التاخير في شكركم استاذ احمد بدره يا رائع

[احمد بدره]

أشكر أستاذنا الأفاضل الأستاذ / أحمد يوسف والأستاذ / عبدالله الصاري على مرورهم الكريم

أستاذ  hayyan alaa أولاً أشكرك على كلمات الرقيقة ثانيًا  لا يهمك حيث كل شخص منا له ظروفه الخاصة  المهم أنه تم العمل على الوجه الأكمل بفضل من الله  

تم تعديل نوفمبر 22, 2019 بواسطه احمد بدره

[سليم حاصبيا]

انا لا افهم ما لزوم الحلقات التكرارية في الكود وهي التي تجعل الملف ثقيلاُ (2000 حلقة)

يكفي هذا الماكرو

Sub SALIM()
Application.ScreenUpdating = False
Dim ws As Worksheet
Set ws = Worksheets("min")

Dim Ro_D%, Ro_A%
Ro_D = Cells(Rows.Count, "D").End(3).Row
Ro_A = Cells(Rows.Count, "A").End(3).Row
With ws
  .Range("g:f").ClearContents
  .Cells(2, "f").Resize(Ro_D - 1).Formula = _
  "=INDEX($J$2:$J$2000,MATCH(D2,$I$2:$I$2000,0))"
  .Cells(2, "G").Resize(Ro_A - 1).Formula = _
  "=INDEX($Q$1:$Q$6,MATCH(A2,$P$1:$P$6,0))"
  .Range("g:f").Value = .Range("g:f").Value
End With
Application.ScreenUpdating = True
End Sub