elouaadoudi قام بنشر مايو 22, 2014 مشاركة قام بنشر مايو 22, 2014 المرجو المساعدة ryn.rar رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مايو 22, 2014 مشاركة قام بنشر مايو 22, 2014 السلام عليكم مرحبا أخي الفاضل في مدرستك العظيمة اولا : نأمل تغيير أسمك للغة العربية حتى يسهل التواصل بيننا هل ترغيب نقل البيانات في الصفحة الثانية على أي أساس - وهل الأسطر هذه سوف تتغير فيما بعد أم ماذا وسوف أقدم لك ملف مبدئي للنقل عن طريق ربط الخلايا في الورقة رقم 2 بالمقابل لها في الورقة الأولى إلى أن تضع تصور كامل لطريقة النقل نقل البيانات.rar 1 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مايو 22, 2014 مشاركة قام بنشر مايو 22, 2014 تم نقلها في المرفق السابق وقم بتغيير أي قيمة للخلايا في الاسطر الملونة وسوف تجدها في الورقة الثانية وهذة طريقة بدئية للنقل إلى أن تضع تصورك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 22, 2014 مشاركة قام بنشر مايو 22, 2014 أخى الفاضل /elouaadoudi أولا : مرحبا بين إخوانك عضوا جديدا فى منتدى أوفيسنا العريق ثانيا : لك منى دعوة طيبة بتغيير اسم الظهور إلى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) تأكيدا لما قاله أخى الحبيب / محمود الشريف ثالثا : سوف يتم تغيير عنوان الموضوع ليناسب محتوى الطلب ولكن برجاء الإهتمام بهذه النقطة فى المرات القادمة يرجى عدم تكرار الموضوع الواحد أكثر من مرة تم حذف الموضوع الآخر وتغيير عنوان هذا الموضوع قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.ومخالفة ذلك تعرض الموضوع للحذف رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 22, 2014 مشاركة قام بنشر مايو 22, 2014 أخى الحبيب / أبو إيمان شكرا جزيلا لك على دقة الملاحظة وعلى النشاط والمتابعة رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مايو 22, 2014 مشاركة قام بنشر مايو 22, 2014 وإياكم أستاذي القدير هذا ما نتعلمه منكم ومن الأساتذة في هذا الصرح العظيم وأسأل الله الكريم أن يجعل مجهودك خالصا لوجهه تعالى وفي ميزان حسناتك رابط هذا التعليق شارك More sharing options...
elouaadoudi قام بنشر مايو 22, 2014 الكاتب مشاركة قام بنشر مايو 22, 2014 السلام عليكم, أريد ترحيل السطور الملونة باللون الأحمر فقط ---- جزاكم الله خيرا ---- *** أنتظر ردكم *** ryn.rar رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر مايو 23, 2014 مشاركة قام بنشر مايو 23, 2014 الأستاذ / elouaadoudi السلام عليكم ورحمة الله وبركاته حضرتك لم تجاوب على أسئلة الأستاذ الفاضل / أبو إيمان جزاه الله خيراً لأنها شرط الترحيل وحاولت فهم ما تقصده من الملف هل على تاريخ المغادرة أم المدة المتبقية وحاولت ربط بين تاريخ المدة المتبقة من التاريخين الممثلة في العمود Fوالمدة الفعلية الموجودة بالعمود C على أقل مثلاً من يوم او يومين لاحظت أنه يوجد حالات متشابهة ولم يتم تلوينها فذلك يكون حل الأستاذ الفاضل /او إيمان هو الحل فقط غير تنسيق العمودين G , H من تنسيق الخلايا اختار من رقم اختار تاريخ . أو حضرتك حدد على أي أساس تم التلوين. 1 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 23, 2014 مشاركة قام بنشر مايو 23, 2014 السلام عليكم تفضل أخى نقل البيانات.rar 1 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 23, 2014 مشاركة قام بنشر مايو 23, 2014 السلام عليكم وهذا حل آخر باستخدام كود يعمل الكود من أى صفحة الأولى أو الثانية كما تريد Sub ragab() Dim cl As Range Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheet1: Set ws2 = Sheet2 '==================================================== LR1 = ws1.Cells(Rows.Count, 2).End(xlUp).Row LR2 = ws2.Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False ws2.Range("B7:I" & LR2).ClearContents '==================================================== T = 7 Set Rng = ws1.Range("I2:I" & LR1) For Each cl In Rng If cl = "Expire" Then x = cl.Row ws1.Range("B" & x).Resize(1, 8).Copy ws2.Range("B" & T).PasteSpecial xlPasteValues T = T + 1 End If Next Application.CutCopyMode = False Application.ScreenUpdating = True Set ws1 = Nothing: Set ws2 = Nothing End Sub نقل البيانات1.rar 2 رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 بسم الله ما شاء الله أعمال رائعة لأستاذنا القدير وشكرا لأختنا الفاضلة على المشاركة رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 24, 2014 مشاركة قام بنشر مايو 24, 2014 أخى الحبيب / أبو إيمان جزاك الله كل خير رابط هذا التعليق شارك 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.