الـعيدروس قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 السلام عليكم ورحمة الله وبركاتة اساتذة وخبراء الاكسل ارجو عمل ربط بيانات في ورقتين على حسب عمود التصنيف بدالة فالكب مع ربط جميع بيانات الصف الى ورقة جلب التصنيف اكون شاكر ومقدر لسموكم الكريم منتظر الرد اخوكم ابو نصار على ها الرابط http://www.4shared.com/file/CinB15Ru/voolkub.html
طارق محمود قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 السلام عليكم أخي الكريم أنظر الفيديو المرفق والملف أيضا إستخدمت Pivot Table بدلا من Vlookup Pivot Table.rar
الـعيدروس قام بنشر مايو 15, 2011 الكاتب قام بنشر مايو 15, 2011 الاخ والاستاذ القدير بارك الله فيك وهذا حل يفيد بس ياريت تكون مثل ماشرحتها انا في ورقت جلب التصنيف يكون الخيار قائمة منسدله اختار تصنيف عامل يطلع برنت من قاعد البيانات بكل من تصنيفه عامل مع بياناته التي هيا حوالي 54 عمود اكون شاكر ومقدر لسموكم الكريم منتظر ردك استاذنا الفاضل والسلام عليكم ورحمة الله وبركاته
طارق محمود قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 أخي العزيز عموما : عند كل عنوان بالجداول المحورية يوجد سهم قائمة تمكنك من اختيار وحذف ماتريد في حالتنا ، ستجد في Sheet1 في الجدول بجوار التصنيف سهم لهذا الغرض وكذلك كافة العناوين التي اخترتها في الجدول تحياتي
عبد الفتاح كيرة قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 السلام عليكم بعد إذن أخى المهندس طارق هذا ترحيل باستخدام التصفية المتقدمة يمكن تغيير التصنيف من الخلية أعلى الجدول فى صفحة ترحيل البيانات voolkub-kemas.rar
احمد فضيله قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 السلام عليكم ورحمة الله و بركاته بعد اذن الاخ المتميز دائماً المهندس / طارق و بعد اذن اخي الخبير / kemas أخي الفاضل / أبو نصار فقط لاثراء الموضوع - ترحيل و تصفية بالاكواد يعتمد على اسم ورقة العمل و يوجد كود لتغيير اسم الملف حسب القائمة التي يتم اختيار الفلتر منها و الله الموفق و المستعان و السلام عليكم ورحمة الله و بركاته VLOOKUP - HaNcOcK.rar
الـعيدروس قام بنشر مايو 15, 2011 الكاتب قام بنشر مايو 15, 2011 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل طارق محمود مشكور جدا على تعاونك وسرعة ردك الاستاذ الفاضل كيماس اشكرك على تعاونك وبالنسبه للتصفيه انا طلبت جلب من ورقة لورقة من فترة والتصفيه شغاله معي زي الحلاوى بس الحين احاول اعمل فلترة تطلع رساله لايمكن ازاحة البيانات خارج الورقة ودورة على حل لهذه المشكله ولم القى وعلى العموم شاكر لمرورك الكريم الاخ العزيز والاستاذ القدير كنت منتظر ردك مشكوووووورر تسلم تسلم هذا المطلوب كفيت ووفيت جزاك الله عنا كل خير وادخلك فسيح جناته أخوك المحب أبو نصار والسلام عليكم ورحمة الله وبركاته
الـعيدروس قام بنشر مايو 15, 2011 الكاتب قام بنشر مايو 15, 2011 بعد تجربة الكود ملاحظ انه لايتم ترحيل التصنيف الا اذا كانت جميع الاعمده فيها بيانات والا مايرحلها ياريت لو يكون على حسب عمود الذي فيه التصنيف محاسب مثلا لو وجد تصنيف في العمود اين كان يقوم بترحيل الصف كامل شاكر ومقدر لسموك الكريم منتظر ردك والسلام عليكم ورحمة الله وبركاته
احمد فضيله قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 (معدل) بعد تجربة الكود ملاحظ انه لايتم ترحيل التصنيف الا اذا كانت جميع الاعمده فيها بيانات والا مايرحلها ياريت لو يكون على حسب عمود الذي فيه التصنيف محاسب مثلا لو وجد تصنيف في العمود اين كان يقوم بترحيل الصف كامل شاكر ومقدر لسموك الكريم منتظر ردك والسلام عليكم ورحمة الله وبركاته السلام عليكم ورحمة الله و بركاته بعد الشكر و التحية للاخ العزيز المهندس / طارق و الاخ العزيز / kemas أخي الفاضل / أبو نصار أخي الحبيب بالفعل الترحيل يتم حسب العمود الذي فيه التصنيف محاسب مثلاً و يأخذ بيانات الصف كاملاً و لا يترك أي خلية سواء كانت بها محتوي او لا يوجد بها و تابع المرفق مع تعديل بسيط على الكود و لأي طلب او استفسار او تعديل ساكون معك دائماً ان شاء الله و لن أتأخر أبداً ما دمت أستطيع و الله الموفق و المستعان و السلام عليكم ورحمة الله و بركاته VLOOKUP - HaNcOcK 2.rar تم تعديل مايو 15, 2011 بواسطه HaNcOcK
الـعيدروس قام بنشر مايو 15, 2011 الكاتب قام بنشر مايو 15, 2011 السلام عليكم ورحمة الله وبركاته الاستاذ القدير هانكوك اتعبناك معانا يااخي العذر والسموحه منك بالنسبه للملف الاخير ملاحظ انه اذا تم عمل مثلا اسم جديد وتصنيفه عامل ورحت لورقة جلب البيانات لم اجد الاسم الجديد وعلى حسب ماجربت انه يعتمد الادخال الجديد اذا كانت اخر خليه من الصف او اخر عمود فيها بيانات يقوم بااظهاره حينه ارجو الاطلاع واولا واخر شاكر لك تعاونك وتواضعك والسلام عليكم ورحمة الله وبركاته
عبدالله المجرب قام بنشر مايو 16, 2011 قام بنشر مايو 16, 2011 اخي الفاضل هذه ايضا طريقة لاثراء الموضوع وهي نفس طريقة الاستاذ ابوعمر بالتصفية المتقدمة والنسخ واللصق ان شاء الله تفي بالغرض ابواحمد Book1.rar
الـعيدروس قام بنشر مايو 16, 2011 الكاتب قام بنشر مايو 16, 2011 السلام عليكم ورحمة الله وبركاته الاستاذ القدير ولد المجرب مشكور على المساعده ارجو شرح الكود حاولت اطول مدى كثر الصفوف الى 500 لم يتم احتساب التصنيف شاكر تعاونك والسلام عليكم ورحمة الله وبركاته
احمد فضيله قام بنشر مايو 16, 2011 قام بنشر مايو 16, 2011 (معدل) السلام عليكم ورحمة الله و بركاته أخي الفاضل / أبو نصار عفواً يا أخي لا داعي للعذر أخي الحبيب لاحظ هل حضرتك تقوم باضافة اسم ( محمد ) مثلاً تحت تصنيف ( مدير ) و عند الذهاب لورقة جلب البيانات لابد أن تختار تصنيف مدير من القائمة المنسدلة و بالنسبة لملاحظتك ( على حسب ماجربت انه يعتمد الادخال الجديد اذا كانت اخر خليه من الصف او اخر عمود فيها بيانات يقوم بااظهاره حينه ) فقد ذكرت لحضرتك : أن الترحيل يتم حسب العمود الذي فيه التصنيف محاسب مثلاً و يأخذ بيانات الصف كاملاً و لا يترك أي خلية سواء كانت بها محتوي او لا يوجد بها و تابع المرفق مع اضافة تصنيفات جديدة و اسماء جديدة دون أي تعديل في الاكواد و لأي طلب او استفسار او تعديل ساكون معك دائماً ان شاء الله و لن أتأخر أبداً ما دمت أستطيع و الله الموفق و المستعان العبد الفقير إلى الله / أحمد فضيله و السلام عليكم ورحمة الله و بركاته VLOOKUP - HaNcOcK 3.rar تم تعديل مايو 16, 2011 بواسطه HaNcOcK
عبدالله المجرب قام بنشر مايو 16, 2011 قام بنشر مايو 16, 2011 السلام عليكم ورحمة الله وبركاته الاستاذ القدير ولد المجرب مشكور على المساعده ارجو شرح الكود حاولت اطول مدى كثر الصفوف الى 500 لم يتم احتساب التصنيف شاكر تعاونك والسلام عليكم ورحمة الله وبركاته اخي العيدروس تم التعديل في الكود وزيادة المدى التعديل تم في هذا السطر من الكود Range("A2:AX1000").Select شاهد المرفق ابواحمد2011.rar
عبد الفتاح كيرة قام بنشر مايو 16, 2011 قام بنشر مايو 16, 2011 تمام أخى أبا أحمد زد فى بداية الكود Application.ScreenUpdating = False وفى نهايته Application.ScreenUpdating =true
الـعيدروس قام بنشر مايو 16, 2011 الكاتب قام بنشر مايو 16, 2011 (معدل) السلام عليكم ورحمة الله وبركاته اخواني واساتذتي الافاضل والله كلي خجل من تواضعكم وحسن اخلاقكم وتعاونكم المخلص وارجو الاطلاع على ملف الذي بشتغل عليه وش اللي صادفني لاادري ماالمشكله اليكم المرفق منتظر الردود والسلام عليكم ورحمة الله وبركاته وملوحظه الرفع للمنتدى غير شغال عندي ماالمشكله http://www.4shared.c.../___online.html تم تعديل مايو 16, 2011 بواسطه alidroos
الـعيدروس قام بنشر مايو 16, 2011 الكاتب قام بنشر مايو 16, 2011 الاستاذ الفاضل هانكوك شاكر تعاونك معي بالنسبه للكود تبعك سلسل بالفعل لاكن عند اضافة موظف جديد وكتابة تصنيفه فقط دون كتابة باقي البيانات لايظهره من ضمن البيانات المجلوبه اكرر شاكر تعاونك معي الاستاذ الفاضل كيماس مشكور على الاضافه ماقصرت والسلام عليكم ورحمة الله وبركاته
ياسر الحافظ قام بنشر مايو 16, 2011 قام بنشر مايو 16, 2011 الاخوة / الاساتذة : م. طارق .. kemas ... HaNcOcK تحية طيبة للجميع الاجمل من الملفات المرفقة ( والحرفية الواضحة ) هو الروح التعاونية التي يحق لكم ان تفاخروا بها وفقكم الله ياسر الحافظ
الحسامي قام بنشر مايو 16, 2011 قام بنشر مايو 16, 2011 السلام عليكم اخي الكريم الخلل لديك ناجم عن وجود تعليقات مخفية"Comment" في صفحة "مسير" وهذه من اسباب عدم عمل نظام الفلترة في الملف وهي من اعداء الفلترة لذلك عليك اولا اضهار هذه التعليقات ومن ثم مسحها...استخدم الكود التالي لذلك For Each s In ورقة1.Shapes s.Visible = msoCTrue Next ورقة1.Cells.ClearComments ومن ثم إستخدم الكود التالي وهو نفس كود اخي وحبيبي ابو احمد مع اختصاره بعض الشئ Application.ScreenUpdating = False [a3: ax2000].ClearContents ورقة1.[a3:az3].AutoFilter ورقة1.[a3:az3].AutoFilter Field:=6, Criteria1:=ComboBox2 ورقة1.Range("A4:Az2000").SpecialCells(xlCellTypeVisible).Copy Range("a3").PasteSpecial Paste:=xlPasteValues ورقة1.[a3:az3].AutoFilter [D1].Select اما اذا اردت كود اخي هانكوك مع التعديل الذي اردته فقد قم بتغير الجزئية For R = 2 To .Range("ax2000").End(xlUp).Row الى الجزئية التالية ليتم اخذ المدى للعمود "E" For R = 2 To .Range("e2000").End(xlUp).Row
الـعيدروس قام بنشر مايو 16, 2011 الكاتب قام بنشر مايو 16, 2011 السلام عليكم ورحمة الله وبركاته الاخ الفاضل ياسر شاكر لك مرورك الكريم الاستاذ القدير الحسامي مشكور على التوضيح الاكثر من رائع حاولت اطبق الذي شرحته ولم اتوفق الى المطلوب فلو تكرمت تسوي الطريقة على نفس الملف وترفقه وجزاك الله عنا كل خير اخوك ابو نصار والسلام عليكم ورحمة الله وبركاته
الحسامي قام بنشر مايو 17, 2011 قام بنشر مايو 17, 2011 السلام عليكم اخي الكريم مرفق جزء من ملفك ( فقط الصفحتان المستخدمتان في الفلترة ) حيث قمت بمسح الصفحات الاخرى والفورم وصفحات الاكواد لتقليل حجم الملف لاتمكن من ارفاقه ------------------------- المهم : تم تطبيق المطلوب فقط قم بنقل الاكواد كما هي لملفك الرئيسي وبنفس الاسلوب مع ملاحظة ان كبسة وكود مسح التعليقات يستخدم لمرة واحدة فقط ولا يتوجب عليك استخدامه في المستقبل جلب بيانات مشكلة3.rar
احمد فضيله قام بنشر مايو 17, 2011 قام بنشر مايو 17, 2011 السلام عليكم ورحمة الله وبركاته اخواني واساتذتي الافاضل والله كلي خجل من تواضعكم وحسن اخلاقكم وتعاونكم المخلص وارجو الاطلاع على ملف الذي بشتغل عليه وش اللي صادفني لاادري ماالمشكله اليكم المرفق منتظر الردود والسلام عليكم ورحمة الله وبركاته وملوحظه الرفع للمنتدى غير شغال عندي ماالمشكله http://www.4shared.c.../___online.html عفواً يل أخي بالنسبة ببرفع على المنتدي فقط قم بضغط الملف ب WINZIP أو WINRAR ثم ارفع الملف على ألا يتعدى حجمه 1.95 ميجا بايت و الله أعلم
الـعيدروس قام بنشر مايو 17, 2011 الكاتب قام بنشر مايو 17, 2011 السلام عليكم ورحمة الله وبركاته استاذنا القدير الحسامي دام دخلت المشكله في راسك اكيد وصلت لحل انشاء الله بنقل الكود للملف الرئيسي واشوف وعموما جزاك الله خير على مجهودك وسرعة ردك مايسعني الا ان اقول جزيت خير وزوجت بكرا وبالنسبه لاخي واستاذي القدير هانكوك انا مجرد النقر على ارفاق ملف لم تظهر من اساسه الرساله لااضافة ملف او ماالى ذلك وشكرا لمتابعتك والسلام عليكم ورحمة الله وبركاته
الـعيدروس قام بنشر مايو 17, 2011 الكاتب قام بنشر مايو 17, 2011 (معدل) السلام عليكم ورحمة الله وبركاته استاذنا الفاضل الحسامي ياليت تكمل جميلك وتحدد بالكود نسخ القيم + الصيغ لاني ملاحظ الاعمده التي فيها معادلات يظهره بالزيرو لم يقوم باإظهار الارقام التي فيها واما الكود قمت بنسخه الى الملف الرسمي كأنه تفعل فيه نسخ الخلايا التي توجد فيها معادلات فقط يعني الاعمدة التي فيها نص او ارقام لم يقوم بنسخها مثل الاسم وغيره تم نسخ الاعمدة التي فيها معادلات فقط ارجو النظر ومايلزم اضـافته في الكود شاكر تعاونك واعذرنى ازعجناكم في كثرة الطلبات اخوكم المحب ابو نصار والسلام عليكم ورحمة الله وبركاته تم تعديل مايو 17, 2011 بواسطه alidroos
الحسامي قام بنشر مايو 17, 2011 قام بنشر مايو 17, 2011 السلام عليكم اخي الكريم فقط غير الجزئية Range("a3").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False جلب بيانات مشكلة3.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.