محمد عبد الناصر قام بنشر أبريل 24, 2019 مشاركة قام بنشر أبريل 24, 2019 السلام عليكم ورحمة الله وبركاتة في الملف المرفق عايز اجمع اسم الصنف وارد ومنصرف في شيت واحد اسم اصنف الوارد الاول والمنصرف البعده الملف المرفق موضح المطلوب بدقة alex.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 24, 2019 مشاركة قام بنشر أبريل 24, 2019 جرب هذا الكود البيانات كثيرة عندك كان يحب رفع نموذج عن الملف ولبي الملف بكامله (لمعرفة كيفية عمل الكود بشكل مريح) Option Explicit Sub give_uniques() Dim m%: m = 6 Dim Ro_wared%, Ro_Mons% Dim wared As Worksheet: Set wared = Sheets("وارد") Dim Mons As Worksheet: Set Mons = Sheets("منصرف") Ro_wared = wared.Cells(Rows.Count, 1).End(3).Row Ro_Mons = Mons.Cells(Rows.Count, 1).End(3).Row Dim my_sh As Worksheet: Set my_sh = Sheets("salim") my_sh.Range("a6:f5000").ClearContents my_sh.Range("a6:f5000").Font.ColorIndex = xlAutomatic '================================== my_sh.Cells(m, 1).Resize(Ro_wared - 4, 3).Value = _ wared.Cells(5, 1).Resize(Ro_wared - 4, 3).Value my_sh.Cells(m, 4).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 4).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 5).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 1).Resize(Ro_wared - 4, 6).Font.ColorIndex = 3 m = Ro_wared + 3 '====================================== my_sh.Cells(m, 1).Resize(Ro_Mons - 4, 3).Value = _ Mons.Cells(5, 1).Resize(Ro_Mons - 4, 3).Value my_sh.Cells(m, 5).Resize(Ro_wared - 4, 1).Value = _ Mons.Cells(5, 4).Resize(Ro_Mons - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_Mons - 4, 1).Value = _ Mons.Cells(5, 5).Resize(Ro_Mons - 4, 1).Value End Sub الملف مرفق alex_Wared.xlsx 3 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر أبريل 24, 2019 مشاركة قام بنشر أبريل 24, 2019 (معدل) أحسنت أستاذ سليم عمل ممتاز بارك الله فيك وجعله في ميزان حسناتك يظهر استاذى الكريم نسيت وضع الكود داخل الملف تم تعديل أبريل 24, 2019 بواسطه ali mohamed ali 2 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أبريل 24, 2019 الكاتب مشاركة قام بنشر أبريل 24, 2019 (معدل) 1 hour ago, سليم حاصبيا said: جرب هذا الكود البيانات كثيرة عندك كان يحب رفع نموذج عن الملف ولبي الملف بكامله (لمعرفة كيفية عمل الكود بشكل مريح) Option Explicit Sub give_uniques() Dim m%: m = 6 Dim Ro_wared%, Ro_Mons% Dim wared As Worksheet: Set wared = Sheets("وارد") Dim Mons As Worksheet: Set Mons = Sheets("منصرف") Ro_wared = wared.Cells(Rows.Count, 1).End(3).Row Ro_Mons = Mons.Cells(Rows.Count, 1).End(3).Row Dim my_sh As Worksheet: Set my_sh = Sheets("salim") my_sh.Range("a6:f5000").ClearContents my_sh.Range("a6:f5000").Font.ColorIndex = xlAutomatic '================================== my_sh.Cells(m, 1).Resize(Ro_wared - 4, 3).Value = _ wared.Cells(5, 1).Resize(Ro_wared - 4, 3).Value my_sh.Cells(m, 4).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 4).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_wared - 4, 1).Value = _ wared.Cells(5, 5).Resize(Ro_wared - 4, 1).Value my_sh.Cells(m, 1).Resize(Ro_wared - 4, 6).Font.ColorIndex = 3 m = Ro_wared + 3 '====================================== my_sh.Cells(m, 1).Resize(Ro_Mons - 4, 3).Value = _ Mons.Cells(5, 1).Resize(Ro_Mons - 4, 3).Value my_sh.Cells(m, 5).Resize(Ro_wared - 4, 1).Value = _ Mons.Cells(5, 4).Resize(Ro_Mons - 4, 1).Value my_sh.Cells(m, 6).Resize(Ro_Mons - 4, 1).Value = _ Mons.Cells(5, 5).Resize(Ro_Mons - 4, 1).Value End Sub الملف مرفق alex_Wared.xlsx 131.76 kB · 1 download هو الملف المرفق انقل اليه البيانات الكود لا يعمل ياريت تطبقها على الملف المرفق كتر الف خيرك واسف لتعبك تم تعديل أبريل 24, 2019 بواسطه محمد عبد الناصر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 24, 2019 مشاركة قام بنشر أبريل 24, 2019 أسف تم تحميل الملف بدون الماكرو بالخطأ الملف الجديد alex_Wared.xlsm منذ ساعه, ali mohamed ali said: أحسنت أستاذ سليم عمل ممتاز بارك الله فيك وجعله في ميزان حسناتك يظهر استاذى الكريم نسيت وضع الكود داخل الملف أسف لم انتبه الى ان الملف المرفوع بصيغة xlsx 2 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أبريل 24, 2019 الكاتب مشاركة قام بنشر أبريل 24, 2019 (معدل) 4 minutes ago, سليم حاصبيا said: أسف تم تحميل الملف بدون الماكرو بالخطأ الملف الجديد alex_Wared.xlsm 251.31 kB · 0 downloads المطلوب ان يرتب البيانات على حسب اسم الصنف وارد ومنصرف تحت بعض الوارد من هذا الاسم والمنصرف تحت بعضهم اسف جدااااا لحضرتك وتعبك ده في موازين حسناتك تم تعديل أبريل 24, 2019 بواسطه محمد عبد الناصر رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أبريل 24, 2019 الكاتب مشاركة قام بنشر أبريل 24, 2019 1 hour ago, سليم حاصبيا said: أسف تم تحميل الملف بدون الماكرو بالخطأ الملف الجديد alex_Wared.xlsm 251.31 kB · 3 downloads أسف لم انتبه الى ان الملف المرفوع بصيغة xlsx السلام عليكم اخي الكريم اريد ان يرتب البيانات على حسب اسم الصنف وارد ومنصرف تحت بعض الوارد من هذا الاسم والمنصرف تحت بعضهم ثانيا الامر ييقوم بنقل بيانات في الاسفل لا اعلم من اين تاتي اسف لتعبكوالله رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أبريل 24, 2019 الكاتب مشاركة قام بنشر أبريل 24, 2019 الامر لا ينقل البيانات كاملة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 24, 2019 مشاركة قام بنشر أبريل 24, 2019 7 ساعات مضت, محمد عبد الناصر said: الامر لا ينقل البيانات كاملة بيانات الوارد مختلفة عن المنصرف لذلك من الصف الاول حتى 107 الوارد (المصدر ورقة الوارد) باللون الأحمر و من 109 الى الاخر المنصرف (المصدر ورقة المنصرف ) باللون العادي هكذا انا فهمت ما تريده انت 1 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر أبريل 25, 2019 مشاركة قام بنشر أبريل 25, 2019 ماشاء الله عليك ياستاذ سليم عمل رائع وممتاز جزاكم الله خير الجزاء 2 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أبريل 25, 2019 الكاتب مشاركة قام بنشر أبريل 25, 2019 9 hours ago, سليم حاصبيا said: بيانات الوارد مختلفة عن المنصرف لذلك من الصف الاول حتى 107 الوارد (المصدر ورقة الوارد) باللون الأحمر و من 109 الى الاخر المنصرف (المصدر ورقة المنصرف ) باللون العادي هكذا انا فهمت ما تريده انت جزاك الله كل خير على تعبك في موازين حسناتك طبيعي المنصرف اكثر من الوارد هذا ملف مخزن في شركة اعمل علية اريد ان يرتب الاصناف تحت بعضهم الوارد من اسم الصنف ثم المنصرف من نفس الصنف ثم الصنف اللي يليه الوارد منه ثم المنصرف رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 25, 2019 مشاركة قام بنشر أبريل 25, 2019 8 دقائق مضت, محمد عبد الناصر said: جزاك الله كل خير على تعبك في موازين حسناتك طبيعي المنصرف اكثر من الوارد هذا ملف مخزن في شركة اعمل علية اريد ان يرتب الاصناف تحت بعضهم الوارد من اسم الصنف ثم المنصرف من نفس الصنف ثم الصنف اللي يليه الوارد منه ثم المنصرف قم بالترتيب في أوراق المصدر ثم نفذ الكود فيظهر لك كل شيء كما تريد رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 25, 2019 مشاركة قام بنشر أبريل 25, 2019 1-هناك تاريخان واحد في الوارد واخر في المنصرف فأي تاريج تريد ان يدرج في ورقة النتيجة 2- البيانات كبيرة جداً في الملف (مما يصعب عملية تتبع الكود) لذلك قم بتحميل ملف مختصر (10 الى 15 صف فقط ) في كل من الوارد والمنصرف مع البيانات اللازمة و عندما نجد الكود المناسب يتم تعميمه على الملف الاصلي رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر أبريل 25, 2019 الكاتب مشاركة قام بنشر أبريل 25, 2019 17 minutes ago, سليم حاصبيا said: 1-هناك تاريخان واحد في الوارد واخر في المنصرف فأي تاريج تريد ان يدرج في ورقة النتيجة 2- البيانات كبيرة جداً في الملف (مما يصعب عملية تتبع الكود) لذلك قم بتحميل ملف مختصر (10 الى 15 صف فقط ) في كل من الوارد والمنصرف مع البيانات اللازمة و عندما نجد الكود المناسب يتم تعميمه على الملف الاصلي هيا بتعتتمد على الوارد عندي ممكن يجيلي اكتر من بند بنفس الاسم في اليوم الواحد بيتكتب بنفس التاريخ انا عايزه ينقل اللي موجود اليانات كتير عندي جدااااااااا في ملف عندي اكتر من 10 الاف سطر وارد و 20 الف منصرف عايز ينقل اسم الصنف وارد ومنصرف تحت بعض مثلا اسم الصنف دهان اصفر الوارد 2 دهان اصفر المنصرف 1 دهان احمر الوارد 5 دهان احمر المنصرف 3 رابط هذا التعليق شارك 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.