اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

اشكركم

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

ابو الحارث

ترحيل.rar

رابط هذا التعليق
شارك

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

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

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

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

ابواحمد

رابط هذا التعليق
شارك

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

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

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

ابواحمد

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

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

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

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

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

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

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

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

وفقك الله

ابو الحارث

رابط هذا التعليق
شارك

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

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

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

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

وفقك الله

ابو الحارث

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

هذه الفكرة

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

رابط هذا التعليق
شارك

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

اخي ياسر

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

ابواحمد

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

رابط هذا التعليق
شارك

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

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

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

ابوك

رابط هذا التعليق
شارك

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

جرب المرفق


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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

ابواحمد

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

اخوكم

سعد عابد

رابط هذا التعليق
شارك

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

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

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

ابوك

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

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

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

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

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

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

ابواحمد

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

وفقكم الله

ابو الحارث

رابط هذا التعليق
شارك

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

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

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

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

اخوكم

سعد عابد

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

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

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

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


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

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

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

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

رابط هذا التعليق
شارك

اخى احمد زمان

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

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

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

اخوك سعد عابد

رابط هذا التعليق
شارك

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

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

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

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

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

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

وفقكم الله

ابو الحارث

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

لا تعليق سوى

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

ابواحمد

رابط هذا التعليق
شارك

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

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

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

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

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

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

ابو الحارث

رابط هذا التعليق
شارك

  • 2 years later...

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 3 years later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information