ترحيل أعمدة مختارة من شيت الى أعمدة مختارة في عدة أوراق أخرى

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

الاخوة الافاضل / الاساتذة الاجلاء

في المرفقات في الورقة ( الشيت )المسماة " المطلوب " في الملف المرفق تم توضيح طلبي

الرجاء المساعدة في ترحيل اعمدة مختارة من شيت معين الى اعمدة مختارة في عدة اوراق اخرى - بالكود

برجاء .. رجاء ان امكن ان يكون الترحيل بزر واحد الى 3 اوارق

وكذلك زرترحيل لكل ورقة على حده

اشكركم

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

ابو الحارث

ترحيل.rar

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

اخي ياسر الحافظ (ابوالحارث)

هلا راجعت هذا الرابط

http://www.officena.net/ib/index.php?showtopic=38594

ففيه ما يشابه طلبك (على حد فهمي لطلبك)

ابواحمد

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

اخي ياسر الحافظ (ابوالحارث)

هلا راجعت هذا الرابط

ففيه ما يشابه طلبك (على حد فهمي لطلبك)

ابواحمد

استاذنا " واخي " ابو احمد عبــــــــــــــد الله المجرب

بداية كنت اتوقع انك اول صاحب رد

لجهة الملف المرفق في المشاركة التي ارفقتها ... رائع وكنت قد حملته واطلعت عليه وهو السبب في سؤالي هذا

ولن اجمالك لو قلت ان الملف " كود ترحيل الى اوراق مختارة من قائمة منسدلة " من اجمل اكواد الترحيل التي شاهدتها

ولكن رجائي وطلبي مختلف بعض الشيئ حيث انني ارغب بترحيل " مدى معين " من اعمدة مختارة الى عدة اوراق اخرى بنفس المدى

لو امكن بزر واحد يتم الترحيل للصفحات الثلاث المذكورة ... لقد عملت عدة محاولات وحاولت الاستعانة بالكود الذي جضرتك عملته ولكن !! لم اوفق

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

اشكرك على سرعة ردك ... وانا غير مستغرب ذلك مطلقا

وفقك الله

ابو الحارث

[saad abed]

اخى ياسر

حل مؤقت لحين تدخل احد الاساتذة

عيبه من وجهة نظرى الكود طويل ويمكن اختصاره

وفقك الله

اخوك سعد عابد

ترحيل.rar

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

اخي العزيز والغالي جدا " سعـــــــــــــــــــــــد عابد "

تشكر ... تشكر هو المطلوب

ولكن كما ذكرت ارجو تدخل الاساتذة لاختصار الكود

اكرر شكري الجزيل لحضرتك

وفقك الله

ابو الحارث

[احمدزمان]

يعني انا كنت ناوي اهدي شوية وما ادخل في اي موضوع الا ماندر

اقوم اول ما اجي الاقي موضوع لأخ حبيب وغالي علينا

يبقة لازم ادخل

[احمدزمان]

حل الخ الكريم الفاضل سعد عابد

قرب من الفكرة للحل الي عندي

انته تاخد جزء من الورقة الرئيسية وتحط فية اسماء الشيتات الى تبغة ترحل لها

تعمل كود الترحيل

تخلي كود الترحيل يكرر نفسة 3 مرات وفي كل مرة بأخذ اسم الورقة من المكان الى انته حاطط فية اسماء اوراق المرحل لها

هذه الفكرة

انا رايح اعملة وارسلة

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

بعد إذن المعلم الفاضل أحمد باشا زمان

اخي ياسر

جرب فكرتي في الحل ان شاء الله تعجبك

ابواحمد

* نحن بنتظار حلك يا بني

ياسر الحافظ.rar

[احمدزمان]

* نحن بنتظار حلك يا بني

انا جاهز يابابا

بس اعطيني ثوااااني

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

يعني انا كنت ناوي اهدي شوية وما ادخل في اي موضوع الا ماندر

ليه كذا يا ابا يعقوب تزعلنا منك

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

ابوك

[احمدزمان]

طبعا الحل قريب من فكرة الأخ العزيز عبدالله

جرب المرفق

Sub trheeeeel()

Set fs = Sheets("الرئيسية")

Application.ScreenUpdating = False

For r = 1 To 9

sh = fs.Cells(r, 21)

shc = Worksheets.Count

For shn = 1 To shc

If Sheets(shn).Name = sh Then

Set ts = Sheets(sh)

fs.Range("C7:D81").Copy

ts.Range("C7").PasteSpecial Paste:=xlPasteValues

fs.Range("L7:L81").Copy

ts.Range("G7").PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False

GoTo 9

End If

Next shn

9

Next r

End Sub

الشرح

الكود يكرر نفسة 9 مرات - يعني ممكن تضيف اسماء اوراق الى 9 اسماء في القائمة السوداء من الصفحة الرئيسية

ياخذ اسم الورقة من الخلية

يمر على كل اوراق الملف ويشوف اسم الورقة اذا وجدة يطابق الإسم الي اخذة يوقف عنده

ينسخ الأعمدة المطلوبة

يلصق المطلوب في مكانه

يغلق امر النسخ و اللصق

يروح للخليه الي بعدها ويأخذ الإسم التاني ويبدأ من جديد

آمل ان يكون واضح

وآمل ان يكون هذا المطلوب

مع التحية و التقدير للجميع ياسر و سعد وعبدالله

ترحيلToYaser.rar

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

بالله عليك كنت ناوي تحرمنا هذه الدرر

الف مليار تحية لك استاذ احمد

وتسلم اليد التي كتبت الكود والعقل الذي مخمخه

ابواحمد

[saad abed]

اخى وحبيبى فى الله احمد زمان

رائع رائع رائع بكل معنى الكلمة

جزاك الله خيرا وبارك فيك

هل من وجهة نظرك اذا اضفت مدى اخر للنسخ اعرف اننى اسميه

هل يحدث ثقل للملف

اخى وحبيبى عبدالله المجرب

انت استاذ بارك الله فيك

اخوكم

سعد عابد

[احمدزمان]

يعني انا كنت ناوي اهدي شوية وما ادخل في اي موضوع الا ماندر

ليه كذا يا ابا يعقوب تزعلنا منك

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

ابوك

لا ياعم ايش دخل الزعل في الموضوع

بس هوة في اسباب للفكرة

((( أهم شيء رضا الوالدين ))) يعني انته بالذات لازم تكون راضي عني

بالله عليك كنت ناوي تحرمنا هذه الدرر

الف مليار تحية لك استاذ احمد

وتسلم اليد التي كتبت الكود والعقل الذي مخمخه

ابواحمد

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

حلوة المخمخة هذة بالمرة عجبتني

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

الله الله الله

بداية اخي وصديقي " سعــــــــــــــــــــــد " اشكرك لانك فتحت لي باب تعلمت منه كثيرا ( بخصوص الترحيل الى عدة اوراق بزر واحد )

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

ام استاذنا الكبير احمـــــــــــــــــــد زمان :

عندما قرأت كلماتك في المشاركة 6 تأثرت كثيرا وابتسمت من قلبي

والله انه لشرف كبير جدا جدا ان تقول :

" يعني انا كنت ناوي اهدي شوية وما ادخل في اي موضوع الا ماندر

اقوم اول ما اجي الاقي موضوع لأخ حبيب وغالي علينا

يبقة لازم ادخل "

اشكرك ... هذا عدا الروعة والتقنية المميزة في مرفقك والتي استفدت منها كثيرا

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

اما " دينمو " المنتدى اخي واستاذي " ابو احمـــــــــــــــد " عبد الله المجرب

ماذا اقول ... اصبح الواحد يتردد قبل ان يطلب استفسار من هذا المنتدى

انا وضعت السسؤال وتوقعت على الاقل ... على الاقل ان انتظر بضع ساعات للرد

يااخي افضالك ( والفضل لله ) لاتنسى وكلمات الشكر لاتعبر ومحبتنا تنمو يومل بعد يوم

والله انا سعيد بردودكم المميزة ولكن سعادتي اكبر بهذه الروح التعاونية الاخوية

اشكركم جميعا ...

وفقكم الله

ابو الحارث

[احمدزمان]

هل من وجهة نظرك اذا اضفت مدى اخر للنسخ اعرف اننى اسميه

هل يحدث ثقل للملف

اخى وحبيبى عبدالله المجرب

انت استاذ بارك الله فيك

اخوكم

سعد عابد

أخي الكريم سعد

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

واحبك الله الذي احببتنا فية

عملية النسخ و اللصق تعتمد على هذين السطرين

fs.Range("C7:D81").Copy

ts.Range("C7").PasteSpecial Paste:=xlPasteValues

كررهم وضيف عليهم وعدل ف المدى زي مانته عاوز مافي اي مشكلة

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

[saad abed]

اخى احمد زمان

وصلت الفكره يا فنان وتم تنفيذها والكود سريع ما شاء الله

بارك الله فيك واصلح لك بالك واصلح الله لك دنياك واخراك

وشكرا لك على الرد السريع

اخوك سعد عابد

[احمدزمان]

الله الله الله

***

وفقكم الله

ابو الحارث

اخي ياسر شكرا على الإطراء

وفقك الله الى كل ما يحب ويرضى

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

اما " دينمو " المنتدى اخي واستاذي " ابو احمـــــــــــــــد " عبد الله المجرب

ماذا اقول ... اصبح الواحد يتردد قبل ان يطلب استفسار من هذا المنتدى

انا وضعت السسؤال وتوقعت على الاقل ... على الاقل ان انتظر بضع ساعات للرد

يااخي افضالك ( والفضل لله ) لاتنسى وكلمات الشكر لاتعبر ومحبتنا تنمو يومل بعد يوم

والله انا سعيد بردودكم المميزة ولكن سعادتي اكبر بهذه الروح التعاونية الاخوية

اشكركم جميعا ...

وفقكم الله

ابو الحارث

الجمت لساني عن الرد على هذا المديح المبالغ فيه

لا تعليق سوى

شكراً لك ابا الحارث

ابواحمد

[خالد القدس]

السلام عليكم

سلمت يمينك أخي أحمد

كالعادة أكواد فوق العادة تحير من كان مثلي في البلادة

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

[احمدزمان]

السلام عليكم

اخي خالد القدس

وحشتنا ردودك الجميلة

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

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

اخي الاستاذ احمــــــــــــــد زمان

باعتبار ان الموضوع تم فتحه مجددا

سأصارحك القول : عندما رفعت مرفقك ودخللت محرر الاكواد لم استطع استيعابه مطلقا

ثم تكررت المحاولات ... وكنت سأبعث لك برد لشرح الكود الذي كان في غاية الغموض ( بالنسبة لي )

ولكن والحمد لله يسر الله واستوعبت المطلوب وقمت بتطبيقه اكثر من مرة ........ رائع بحق

اشكرك مجددا واقول وفقــــــــــــــك الله وادامك

ابو الحارث

[محمد سالم المصرى]

أريد المساعدة فى كيفية جمع الكميات من الورقة الأولى حتى الأخيرة بشرط كود الصنف

[أبو محمد عباس]

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

الاخ العزيز محمد سالم اهلا بك في منتدانا الرائع

وستسعد كثيرا لانضمامك للجامعة الكبيرة والصرح الكبير اوفسينا العالمي

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

وان شاء الله طلبك بسيط لكن نريد التوضيح في مثال ترفقه بعد ضغطه باحد برامج الضغط ثم رفعه للمنتدى

بارك الله فيك وجزاك الله خيرا 

دمتم برعاية الله وحفظه

[لعيونك]

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