(تمت الاجابة) مشكلة في كود نسخ الصفوف وتكرارها أكثر من مرة

[مدريدي عمان]

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

في السابق قمت بطلب تنفيذ كود لملف اكسل وعندما اردت اعادة تطبيقه على ملف اخر بعدد اكثر من الاعمدة نجحت في ذلك الا ان هناك اخطاء ظهرت لم افهم سببها الى الان ما اريده منكم هو مساعدتي ان استطعتم ذلك في تعديل الملف الاخر والذي بعنوان "study"

الخطأ (1) في هذا الملف يقوم بتنفيذ الكود باكثر من مرة اي يقوم بنسخ نفس الصف عدة مرات

الخطأ (2) بعد عملية اعادة تنفيذ الكود يقوم بالبدء من عند انتهاء نسخ أخر مرة

ارجو منكم احبتي بعد تعديل الملف اخباري عن سبب وقوع هذه الاخطاء بغية التعلم (فقط من يملك الوقت لمساعدتي )

وفقكم الله تعالى الى ما هو خير ودمتم بقلوب صافية

الملف الذي يوجد به اخطاء study.rar

الملف الاخر الذي يعمل بشكل صحيح ksa1-H-A.rar

[رجب جاويش]

أخى الفاضل / مدريدي عمان

يوجد فى الملف المرفق الملف بعد تعديلة

وسبب الخطأ فى السطر التالى

For Each ws In ThisWorkbook.Worksheets

حيث أن هذا السطر يخبر الكود بأن يمر على جميع شيتات الملف لكى يختبر فيها الشروط الموجودة فى السطور التاليه له طبعا يدخل ضمن الشيتات الشيت الذى يتم جلب البيانات اليه وهى الورقة 1 مما يؤدى الى تكرار البيانات وبالتالى لابد من استبعاد هذه الورقة من اختبار الشروط كالاتى جعلت الورقة التى يتم جلب البيانات اليها رقم 3 ثم استبدلت حلقة التكرار السابقة بالحلقة التالية

For i = 1 To 2

وهى كما ترى خاصة بالورقة الاولى والثانية فقط

study1.rar

[جروان]

اخي رجب الحبيب مرورك يعني حل اكيد للمشكلة بارك الله بك وزادك من علمة

[رجب جاويش]

أخى الفاضل / جروان

شكرا جزيلا أخى الحبيب على الكلمات الطيبة وعلى هذه الثقة الغالية

وجزاك الله كل خير

وكل عام وأنتم بخير

[مدريدي عمان]

شكرا جزيلا اخي الحبيب الاستاذ رجب تشكر على مجهوداتك الطيبة بوركت مساعيك

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

سوف اقوم باعادة استخدام بهذه الطريقة

[رجب جاويش]

أخى الفاضل / مدريدي عمان

شكرا جزيلا أخى الحبيب على الكلمات الطيبة وعلى هذا الدعاء الطيب

الذى أسأل الله أن يجزيك مثله أضعافا مضاعفة

وكل عام وأنتم بخير

[مدريدي عمان]

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

بصراحة من خلال قراءة المواضيع ارى ان الصعب عندك سهل

الله تعالى أتاك هذا العلم لانك تستحقه وانت سخرته فيما يرضيه تعالى

لذلك لن اقول الا وفقك الله تعالى واتمنى لك الخير من كل قلبي

دمت ودامت ايامك بود وسعادة