الشهابي قام بنشر سبتمبر 29, 2011 مشاركة قام بنشر سبتمبر 29, 2011 الأخ عبد الله المجرب هل ممكن تجعل الكود يرحل من ورقة إلى ورقة أخرى في نفس الملف ويتم إختيار الورقة من خلال خلية يتم وضع اسم الورقة المرحل إليها فيها وكلما تم تغير اسم الورقة في الخلية يتم الترحيل إليها رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 30, 2011 مشاركة قام بنشر سبتمبر 30, 2011 اخي الشهابي تم إنشاء موضوع جديد للفائدة ممكن ذلك تفضل المرفق (تم عمل قائمة منسدلة متجدد ومهما اضفت من أوراق عمل ستجدها تلقائياً في القائمة المنسدلة) جرب واعلمني بالنتيجة ابواحمد ترحيل الى اوراق مختارة.rar 2 رابط هذا التعليق شارك More sharing options...
عبد العزيز كمال قام بنشر سبتمبر 30, 2011 مشاركة قام بنشر سبتمبر 30, 2011 اخي العزيز ابو احمد احنا كلنا ممتنين لسرعة استجابتك انت وكافة الخبراء في هذا الموقع الرائع بس المشكلة مثلا في موضوعنا هذا مثلا انكم بتحطوا الاجابة ماشي نجي نبص احنا كمبتدئين علي الكود مش عارفين نفهمه واحنا طبعا عايزين نفهم مش مجرد نلزق ورق حيط وخلاص ارجو منك شرح كود الترحيل هذا وجزاك الله خيرا Sub OFFICNA1() LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row x = Range("F2").Value Range("A2:D" & LR).Select Selection.Copy Range("A2").Select Sheets(x).Select LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Range("A" & LR1 + 1).Select ActiveSheet.Paste Application.CutCopyMode = False Range("C1").Select MsgBox ("done") End Sub 1 رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر سبتمبر 30, 2011 الكاتب مشاركة قام بنشر سبتمبر 30, 2011 الأخ / عبد الله المجرب جزاك الله خير جزاك الله خير ، أنت عملت موضوع جديد للفائدة ، وكذلك أنا فتحت موضوع آخر لتوضيح المطلوب بالكامل ( باسم الترحيل من وإلى نفس الورقة بشرط) لعلكم إطلعتم على الموضوع وعرفتم مطلبي وتلبي ذلك وإلا الكود في هذا الموضوع سوف ينجز لي بعض من المطلوب وجزاكم الله خير مرة أخرى رابط هذا التعليق شارك More sharing options...
mobhir22 قام بنشر أغسطس 22, 2014 مشاركة قام بنشر أغسطس 22, 2014 السلام عليكم أخى فى الله بارك الله فيك وزادك الله من فضله ومن نعمه ارجوا مساعدتى على تعديل المرفق تقبل مني وافر الاحترام والتقدير وادا كان ممكن ارفاق الملف مع شرحات العمليات التى قمت بها لكى تعم الفائدة. massarif moha.rar رابط هذا التعليق شارك More sharing options...
فراس أحمدي قام بنشر أغسطس 23, 2014 مشاركة قام بنشر أغسطس 23, 2014 شكرا لكم على هذه الملفات المهمة والرائعة في اداء الأعمال. رابط هذا التعليق شارك More sharing options...
طارق_طلعت قام بنشر أغسطس 23, 2014 مشاركة قام بنشر أغسطس 23, 2014 الاخ العزيز عبدالله المجرب فى البدايه اود ان اشكرك على مساعدتك لجميع الاعضاء بالنسبه لكود الترحيل فانه يتم الترحيل الى الشيت الاخر و تكون الخلايا محتويه على المعادلات المنسوخه مما يجعلها تتغير عن تغير اى عنصر من مكونات المعادله و عند نسخها بطريقه spesial paste . Value فاننا نفقد تنسيق الخلايا و الالوان الموجوده فى الجدول المرحل و المطلوب ان يتم ترحيل الجدول بنفس التنسيق و نفس الالوان و بخاصيه spesial paste . Value بحيث يتم نقل محتويات الخلايا كقيمه فقط فهل يوجد طديقه لتنفيذ هذا للطلب و شكرا جزيلا لحضرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.