هذا اليوم ADD لا يمكن الترحيل إلية ؟ هل من مساعدة !

[أبو جديد]

بسم الله الرحمن الرحيم

الإخوة الأفاضل

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

استطعت في هذا الملف ترحيل المعلومات إلى كل خلية تخصها من القائمة

المنسدلة بالأيام وما فيها أي مشكلة ما عدى هذا اليوم ADD

لا يمكن الترحيل إلية !

هل من مساعدة ؟

وهل طريقة ترحيلي للمعلومات صحيحة ؟ أم يوجد طريقة أسهل من ذلك ؟

ولكم كل تقدير واحترام........!

الملف مرفق......@

Testing55555550000.rar

[عبدالله باقشير]

السلام عليكم

صحح هذا الكود بهذه الاضافة:

Sub FillList4()

If ورقة5.[C10] = "ADD" Then B = 33 Else B = 1 + ورقة5.[C10]

ActiveSheet.Cells(11, B) = ورقة5.[C11]
ActiveSheet.Cells(12, B) = ورقة5.[C12]
ActiveSheet.Cells(14, B) = ورقة5.[C14]
ActiveSheet.Cells(15, B) = ورقة5.[C15]
ActiveSheet.Cells(17, B) = ورقة5.[C17]
ActiveSheet.Cells(18, B) = ورقة5.[C18]
ActiveSheet.Cells(20, B) = ورقة5.[C20]
ActiveSheet.Cells(21, B) = ورقة5.[C21]
ActiveSheet.Cells(23, B) = ورقة5.[C23]
ActiveSheet.Cells(24, B) = ورقة5.[C24]

End Sub

[أبو جديد]

أخي/ خبور خير

جزأك الله ألف ألف خير وجعله الله في ميزان حسناتك

أشكرك على اهتمامك وسرعة ردك.

وغفر الله لك ولوالديك وجعل الله مثواكم الجنة.

[محمد فيروز]

ممكن مساعدة

كيف يتم عمل ترحيل من ورقة لورقة أو من ملف لملف

يعنى

كيف تتم عملية الترحيل

[أبو جديد]

الأخ / محمد فيروز

السلام عليكم

شوف الملف المرفق تم الشرح على نفس الملف

إن أصبت فالحمد لله وإن أخطات فالمعذرة

Testing50.rar

تم تعديل يونيو 18, 2008 بواسطه مزلزل