(تمت الإجابة) سبب عدم عمل الكود في الورقة 2 ولكنه يعمل في الورقة 1؟

[skyblue]

الاعضاء الافاضل عندي ملفين الملف الاول وهو ss1 hg hg الكود فيه يعمل بشكل جيد .

ولكن عندما غيرت المدى في الملف الثاني ss2 gl dulg hgl لم يعمل الكود معي علما انني سجلت المدى بشكل صحيح في الكود .

ارجوا المساعدة ؟

ss1.rar

ss2.rar

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

اخي الفاضل

الخطاء في الكود الثاني هو في كتابة عنوان الخلايا بالحروف الانجليزية الصغيرة ("$m$20") و ("$n$20") و ( "$o$20")

وهذا الكود بعد التعديل

Sub ss()

Dim cl As Range

For Each cl In Sheets(1).[m20:o22]

t = cl.Value

a = cl.Address

If a = "" Then t = ""

If a = "$M$20" Then Sheets(2).[I7] = t

If a = "$N$20" Then Sheets(2).[J13] = t

If a = "$O$20" Then Sheets(2).[K13] = t

Next cl

End Sub

[skyblue]

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

حفظك الله