مساعدة في كود ترحيل من شيت لشيت بشرط التاريخ

[simsim]

السلام عليكم ورحمة الله وبركاته

برجاء المساعدة في كود ترحيل من شيت لشيت بشرط التاريخ المكتوب في الخلية  Q1

يرحل كل الموجود بهذا التاريخ من عمود J

برجاء توضيح ما الخطأ فى الكود الموجود بالشيت

Payment Requests1.xlsm

[mohamed_omar]

اول خطا هو عدم اقفال الحلقة الاولى for i = 1 to 5000

ثاني خطا هو اقفال الحلقة الثانية قبل اقفال جملة if التي هي بداخل حلقة for

[simsim]

اشكرك على الاهتمام والرد

هل من الممكن التوضيح بصورة او شيت اكسيل