برجاء المساعده في طريقه تصدير بيانات عمود بورقه العمل الأولى لباقي صفحات العمل

[معاذ الشمري]

برجاء المساعده في كيفيه نسخ بيانات عمود كامل بورقه العمل الأولى وليكن اسماء موظفين 50 اسم إلى باقي اوراق العمل ولتكن 50 بحيث يظهر الأسم الأول بورقه العمل الثانيه ( العمود الأول الصف الأول ) والأسم الثاني بورقه العمل الثالثه وهكذا

[عبد الفتاح كيرة]

استخدم الكود التالى

For i = 1 To 50

Sheets(1).Cells(i, 1).Copy Sheets(i + 1).Range("a1")

Next i

المرفق

copy 1 to 50.zip

[معاذ الشمري]

اخي خبير اكسل اولا مشكور للرد بس ياليت شوي تفصيل لطريقه كتابه هذا الكود ويجزاك الله خير

[عبد الفتاح كيرة]

أخى معاذ

عندنا 51 شيتا

الأول به عمود البيانات

من الصف الأول و العمود الأول

وحتى الصف الخمسين من نفس العمود

عندنا حلقة تكرار من 1 إلى خمسين فى المتغير i

بداية ستكون قيمة i = 1

إذن سينفذ الآتى

شيت رقم 1

انسخ الخلية التى رقم صفها = i = 1 و عمودها =1

يعنى a1

انسخها إلى

مكان اللصق

شيت رقم 2 ( i+1)

فى الخلية a1

,

بتكرار الحلقة

ستزيد قيمة i

بمقدار 1 كل مرة حتى خمسين

و بزيادتها يتغير كل من

رقم صف الخلية المنسوخة

رقم الشيت المنسوخ إليه

أرجو أن أكون أفدتك

[معاذ الشمري]

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

[عبد الفتاح كيرة]

فوق علامة تبويب الصفحة أسفل الشيت

كليك يمين

ثم

عرض التعليمات البرمجية

افتح الحدث

change

من النافذة اليمنى

الصق هذا الكود داخل الحدث

[معاذ الشمري]

مشكور اخي الخبير بالله حببتني في الأكسل.. لكن ظهرت لي مشكله أخري اثناء تصدير الأعمده ( بعض اعمدة الجدول بهامعادلات جمع وطرح وضرب بين ال بييانات بعض الأعمده وبعضها ) لورقات العمل المختلفه ظهر الخطأ التالي:-

#VALUE!

#REF!

برجاء المساعده وارجو الا اكون اثقلت عليك

[عبد الفتاح كيرة]

هذا شىء آخر

هناك معادلات تعتمد على القيم فى الخلايا المصدر إليها فهذه تتأثر

لو أرسلت الشيت الذى تظهر به الأخطاء ربما نساعدك بإذن الله

تم تعديل يناير 17, 2011 بواسطه kemas

[معاذ الشمري]

خبيرنا العزيز بالمرفقات الملف واعذرني ع التأخير بالله ما كنت اتوقع انك تكون موجود.. الملف بالمرفقات ويجزاك الله خير

officna.rar

[عبد الفتاح كيرة]

تفضل

ملفك بعد إصلاحه

و جيد محاولتك تعديل الكود حسب طلبك

officna-kemas.zip

[معاذ الشمري]

خبيرنا العزيز:برجاء ملاحظه أن البيانات لم تنقل مظبووط بها( لاحظ insurance ) بورقه العمل الثانيه والثالثه خطأ وسؤالي هو ما هو الكود الذي يمكنا من نقل اليصيغ ذات الأرتباطات من ورقه العمل الأولى لباقي اوراق العمل

[عبد الفتاح كيرة]

تصورى أن هذا ما تريده

officna-kemas2.rar

[معاذ الشمري]

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

[معاذ الشمري]

خبيرنا العزيز: نسقت جدول ( له حدود) بورقه العمل الثانيه ولكن عند تطبيق البرنامج السابق ( لنسخ البيانات من ورقه العمل الأولى لباقي ورقات العمل ) لوحظ ان تنسيقات ورقه العمل الأولى يتم نسخها هي ايضا لباقي اوراق العمل برجاء توضيح كيفيه تجنب ذلك اي اني اريد ان يتم نسخ البيانات فقط ( حسب الكود الذي تفضاتم بشرح سابقا )من ورقه العمل الأولى لباقي اوراق العمل دون نقل تنسيقات ورقه العمل الأولى - يعني ان لا تتأثر التنسيقات الخاصه ( حدود جدول والخط -.....) بورقورقه العمل الثانيه والثالثه وباقي الأوراق

ومره ثانيه وتالثه مشكووووووووووووووووووووووووووووووور ويجزاك الله كل خير

[عبد الفتاح كيرة]

ممكن ترسل الملف الذى صممته؟

[معاذ الشمري]

أخي الخبير مرفق بطيه الملف المطلوب وبرجاء الأجابه على الأستفسارات التاليه:-

1- كيفيه نقل البيانات من الورقه الأولى لباقي اوراق العمل دون تغيرالتنسيق الذي أعددته في الورقه الثانيه والثالثهز

2- أذا اردنا طباعه مثلا ورقه العمل الأولى والثانيه والثالثه في ورقه طباعه واحده ( لتوفير ورق الطباعه وكما تلاحظ ان البيانات بالورقه قليله وباقي الورقه فارغ ).. فما هو الحل ؟؟؟

ويجزاك الله خير ع صبرك الكبير معي

For Oficna.rar

[عبد الفتاح كيرة]

تم تعديل الكود كى لا يؤثر على تنسيق الواجهة

الخاصية الموجودة طباعة الملف كله

يمكنك تجميع الشيتات فى شيت واحد

هذا ما يحضرنى الآن على الأقل

For Oficnakemas.zip

[معاذ الشمري]

خبيرنا العزيز مشكووووووووووووووووووووور وبطبق وارجع للك تاني والله يجزاك خير على معلوماتك

[معاذ الشمري]

خبيرنا العزيز اشكرك فهمت الجزء الأول ولكن ما فاهم الجزء الثاني وهو تجميع الشيتات كلها وطباعتها في شيت واحد

[معاذ الشمري]

خبيرنا الكريم: على حسب ما تعلمنا منك هو عمل ورقه عمل نهائيه خاصه ونعمل كود لنسخ اوراق العمل( بدءا من الثانيه )لهذه الورقه النهائيه ولنسميها التقارير على ان يتميكون هناك فاصل صفين بين كل عمليه نسخ والثانيه ولكن الكود ما يضبط معي.. برجاء المساعده ومشككككككور

[عبد الفتاح كيرة]

أقصد أن تفعل ذلك يدويا

نسخ و لصق يدوي

فى شيت فارغ

[معاذ الشمري]

أوك خبيرنا .... باقي طريقه حمايه محتويات الأعمده التي تحتوي على معادلات بالشيت الأول ( فقط الأعمده التي بها معادلات)

واتمنى ان لا اكون ازعجتك ومشكور على معلوماتك الغزيرة