skyblue قام بنشر سبتمبر 12, 2011 مشاركة قام بنشر سبتمبر 12, 2011 الاعضاء الافاضل عندي ملفين الملف الاول وهو ss1 hg hg الكود فيه يعمل بشكل جيد . ولكن عندما غيرت المدى في الملف الثاني ss2 gl dulg hgl لم يعمل الكود معي علما انني سجلت المدى بشكل صحيح في الكود . ارجوا المساعدة ؟ ss1.rar ss2.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 13, 2011 مشاركة قام بنشر سبتمبر 13, 2011 اخي الفاضل الخطاء في الكود الثاني هو في كتابة عنوان الخلايا بالحروف الانجليزية الصغيرة ("$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 رابط هذا التعليق شارك More sharing options...
skyblue قام بنشر سبتمبر 13, 2011 الكاتب مشاركة قام بنشر سبتمبر 13, 2011 اخي عبدالله شكرا لك على المساعدة والحل اكثر من رائع تقيبل مني هذه حفظك الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.