كود خاص بالترحيل يعمل بشكل الي ... كيف اجعله يعمل عن طريق زر فقط

[skyblue]

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

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

تحياتي لكم

Intersect.rar

[محمد يحياوي]

الاخ الكريم اعذرني لكن كيف يعمل هذا الملف لانه لم يعمل عندي ارجوا مراجعة الكود

[عبدالله المجرب]

اخي skyblue

وبعد اذن استاذنا الفاضل يحياوي

جرب وضع الكود التالي في زر امر لعل هذا ما تطلب

Dim cl As Range

For Each cl In Sheets(1).[c5:f7]

t = cl.Value

If t = "" Then Exit Sub

a = cl.Address

If a = "$C$5" Then Sheets(2).[H7] = t

If a = "$D$5" Then Sheets(2).[I7] = t

If a = "$E$9" Then Sheets(2).[J13] = t

If a = "$F$9" Then Sheets(2).[K13] = t

Next cl

[skyblue]

اخي عبدالله في الملف المرفق تم وضع الكود الخاص بكم وهو يعمل بشكل جيد .

ولكن هل يمكن التعديل على الكود بحيث اذا كانت الخلية فاضية يرحل الخلية الفاضية

تحياتي

Intersect.rar

[محمد يحياوي]

الاخ الكريم لاحظ المرفق

Intersect2.rar

[ياسر الحافظ]

الاعزاء / الاساتذة ابو احمد - يحياوي

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

وفقكم الله

ابو الحارث

[skyblue]

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

جزاكم الله كل خير وادعوا الله ان يعيد علينا وعليكم رمضان اعواما عديده مليئة بالخير .

والشكر ايضا موصول للاستاذ ياسر الحافظ

[alhudhud]

Ok