اذهب الي المحتوي
أوفيسنا

كود الترحيل


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

Sub Macro4()

'

' Macro4 Macro

'

' Keyboard Shortcut: Ctrl+Shift+X

'

Range("B6").Select

Selection.Copy

Sheets("2").Select

Range("B2").Select

ActiveSheet.Paste

Sheets("1").Select

Range("C6").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("2").Select

Range("C2").Select

ActiveSheet.Paste

Sheets("1").Select

Range("D6").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("2").Select

Range("D2").Select

ActiveSheet.Paste

Sheets("1").Select

Range("E6").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("2").Select

Range("E2").Select

ActiveSheet.Paste

Sheets("1").Select

Range("F6").Select

Application.CutCopyMode = False

Selection.Copy

Range("B28:D28").Select

Sheets("2").Select

Range("F2").Select

ActiveSheet.Paste

Sheets("1").Select

End Sub

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

السئوال الولبي //. عوزين نضيف في الكود ان كل مره برحل فيه يتم ترحيل الي صف جديد لاكن المشكله عندي لما برحل بيرحل علي نفس الصف ياهل تري هناك حل

مع العلم اني بتعامل يومياً مع حوالي 34 نموزج مختلف لشؤون العاملين بالشركة التي اعمل به

جديد الوادي الاخضر.rar

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

السلام عليكم

اخي KAKAMAX

نحن نحاول ان نحل مشكلتك ليس من اجل ي شيئ الا لنعبر لك انه لا افضليه في طلب احد علي اخر

و بالرغم من ذلك انت لا تساعدنا و لكني وجدت الحل في ذلك لان ما يدور بداخلك اصبح منعكس علي رددنا و فهمنا لما تطلبه

الحل هو

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

فليس بكبر حجم ما تقدمه تفيد و لكن بتركيزه وحداثته و كذلك

طريقة ايصال معلومته للاخرين و شيل من دماغك انه يتم

النظر اليك في انك لكي تاخذ يجب ان تعطي فهذا شيئ غير وارد بالمره

ثانيا يجب ان يكون طلبك محدد وواضح فلا تطلب برنامج كامل مثلا و لكن

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

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

زر ترحيل فانه يتم ترحيل الخلية كذا الي الخلايا كذاو كذا في الشيت كذا لتكون لالشكل كذا و هكذا

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

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

لما تريده و هنا تكون السرعة ايضا

لذا ارفق مثالك موضحا فيه ما تريده بالضبط و بتركيز

و اعتبر نفسك من يقرأ سؤالك و لا تعتبر الاخرين ملمين با يدور في راسك فان فهمت السؤال حتما سيفهمه غيرك

في انتظار طلبك با النيو لوك الجديد لك

تحياتي

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

الاخ الفاضل الكريمKemas هذا هوالمرفق به توضيح اكثر اسف ان كان الشرح مش واضح بقول في الشرح الاول للمشكله نفس الي انتا اضفتو علي الملف ان الميكرو بترحيل عمود كامل او صف كامل او نطاق معين الحمد لله عملة كود للميكرو بحيث ينسخ خلايه متفرقه في صفحة سميته ( Sheet1) ويرحله الي صفح (2 ) المشكله اني عاوز اضيف صيخه في الكود بحيث في كل مره يتم الترحيل علي صف جديد

جديد الوادي الاخضر-kemas1.rar

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

السيد الفاضل المحترم الموقر المشرف (AAH)

السلام عليكم

اخي KAKAMAX

نحن نحاول ان نحل مشكلتك ليس من اجل ي شيئ الا لنعبر لك انه لا افضليه في طلب احد علي اخر

الاخ المشرف ما هو اي شي

و بالرغم من ذلك انت لا تساعدنا و لكني وجدت الحل في ذلك لان ما يدور بداخلك اصبح منعكس علي رددنا و فهمنا لما تطلبه

كيف اساعدك وما هي الطريقة

الحل هو

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

الحمد لله اخت نفس عميق

فليس بكبر حجم ما تقدمه تفيد و لكن بتركيزه وحداثته و كذلك

العزيز الغالي لقد زكرة في موضوعي انه لا يلزم ان تكون المعلومه جديده او كبير ليستفاد منع البعض ممكن ترجع وتقرا الموضوع جيداً

طريقة ايصال معلومته للاخرين و شيل من دماغك انه يتم

النظر اليك في انك لكي تاخذ يجب ان تعطي فهذا شيئ غير وارد بالمره

اخي انا لااعطي شي لست بانظار شي الموضوع عباره عن مشاركه في الافكار فقط

ثانيا يجب ان يكون طلبك محدد وواضح فلا تطلب برنامج كامل مثلا و لكن

العزيز الغالي انا لااطلب برنامج بعينه ففي جميع انحا الشبكة العنكبوتيه جميع انواع البرامج انا بطلب سطر في كود لان كل شخص ادرا بمسئوليتة وعمله فعمل غيري يختلف عن عملي والعكس

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

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

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

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

زر ترحيل فانه يتم ترحيل الخلية كذا الي الخلايا كذاو كذا في الشيت كذا لتكون لالشكل كذا و هكذا

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

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

استاذي العزيز الغالي لاتضيع وقتك او تهدره كماذكرة مسبقا الموضوع مطروح للرد او عدم الرد

لما تريده و هنا تكون السرعة ايضا

لذا ارفق مثالك موضحا فيه ما تريده بالضبط و بتركيز

ان شاء الله هركز اكتر من كده المره القادمه

و اعتبر نفسك من يقرأ سؤالك و لا تعتبر الاخرين ملمين با يدور في راسك فان فهمت السؤال حتما سيفهمه غيرك

في انتظار طلبك با النيو لوك الجديد لك

تحياتي

اخي العزيز والله انا ماطرحة اي موضوع للتفاخر او الكبر او لتبادل المنفعة كم تعتقد الحوار كله عباره طرح الرائي وزيادة المعرفة

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

الاستاذ العزيز الغالي aah_aah2008

بعد السلام عليك وبعد انتظار وتعب شديد والمهم ( اخز نفس عميققققققققققققققققققققققق) الحمد لله والشكر لله وجدت حل المعادله الصعبه والله باجتهادي الشخصي خالص 100%

هذا بسبب دفعتك للامام الموضوع سهل مرهههههههههه جداً اكثر مما كنت اتخيل ؟؟؟ بدل مرحل البيانات في صفحة الارشيف لتحت هنرحل لفوق بس الحل كده مش عاوز اي معضله وان شاء الله نكون عند حسن ظن المشرف ( جاري رفع المرفقات )

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

السلام عليكم

اخي

لست ادري هل العيب عندي في توصيل المعلومه ام ماذا

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

و لن ادخل في نقاش ثانية فيحمل كلامي المعني الخطأ

و عند النظر في طلبك لم افهمه كما رايت احد الاعضاء ايضا لم يفهمه

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

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

لا ان تفنط الكلام و يرد عليه جزء جزء و كانني اوجه اليك شيئا

القصد خد الموضوع ببساطة و دع الايام تثبت لك فانت تتعلم و نحن ايضا

تحياتي

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

السلام عليكم

اخي KAKAMAX

الاستاذ العزيز الغالي aah_aah2008

بعد السلام عليك وبعد انتظار وتعب شديد والمهم ( اخز نفس عميققققققققققققققققققققققق) الحمد لله والشكر لله وجدت حل المعادله الصعبه والله باجتهادي الشخصي خالص 100%

هذا بسبب دفعتك للامام الموضوع سهل مرهههههههههه جداً اكثر مما كنت اتخيل ؟؟؟ بدل مرحل البيانات في صفحة الارشيف لتحت هنرحل لفوق بس الحل كده مش عاوز اي معضله وان شاء الله نكون عند حسن ظن المشرف ( جاري رفع المرفقات )

اولا الحمد لله و انا فرح لانه بمجهودك لان ما يكون بمجهودك لن تنساه ابدا

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

و ان شاء الله نستفيد منك و تستفيد منا

و مرحبا بك بيننا

تحياتي

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information