ياسر العربى

تفضلو طريقة البحث عن طريق الا Spreadsheet التى ذكرها الاخ عمر قمت بعمل مثال بسيط لجلب البيانات المفلترة الى الفورم ووضعها داخل Spreadsheet وطريقة اضافة هذه الاداة كما بالصور الموضحة والكود المستخدم داخل الفورم في حدث التغيير للتكست بوكس Private Sub TextBox1_Change() Dim last As Long Dim last2 As Long last = Spreadsheet1.ActiveSheet.Range("a10000").End(xlUp).Row Application.ScreenUpdating = False If TextBox1.Text = "" Then Spreadsheet1.ActiveSheet.Range("a1:k" & last).ClearContents Else Spreadsheet1.ActiveSheet.Range("a1:k" & last).ClearContents ActiveSheet.Range("$A$2:$K$2000").AutoFilter Field:=5, Criteria1:="" & TextBox1.Text & "*", _ Operator:=xlAnd last2 = ActiveSheet.Range("a10000").End(xlUp).Row Sheet1.Range("a1:k" & last2).Copy Spreadsheet1.ActiveSheet.Range("a1").Paste Application.CutCopyMode = False ActiveSheet.AutoFilterMode = False Application.ScreenUpdating = True End If End Sub تم ارفاق المثال للتوضيح المرفق يعمل لدى جيدا لا اعلم توافقه مع جميع الاصدارات تقريبا تحتاج اوفيس2003 بالاساس او الملف OWC11.DLL تحديدا لمن يعاني من مشاكل وعدم عمل الملف بالشكل الامثل يرجى تحميل الملف الثاتي بالمرفقات به الشرح والاداة وبرنامج تسجيل الاداة تقبلو تحياتي new list Yasser.rar OWC11.rar

هل هذا ما تقصده ان لم يكن يرجى الايضاح وشكرا Book1.rar

يرجى رفع الملف حتى تتضح الامور لنا وشكرا

تفضل اخي الكريم طاهر مشتريات - جديد2 - Copy.rar

تفضل اخي الكريم تعديل عرض الاعمدة مع اضافة صف اضافي لتطبيق خطوط الطول والعرض داخل الليست ولكنه سيتسبب فيما بعد لبعض البطئ مع كثرة البيانات والمثال الاخر بدون الصف الاضافي مشتريات - جديد2.rar مشتريات - جديد2 - Copy.rar

تفضل وهي طريقة للتحايل فقط وليست ضمن خيارات الليست بوكس اظهار الاعمده في الليست بوكس.rar

ياريت ترفق الملف وتذكر نوع الاوفيس المستخدم يكون افضل او عرض صورة للخطأ او اتبع الخطوات الاتية لعلها تفي بالغرض 1. اضغط Alt + F11 2. من قائمة tools اختر References 3. ابحث عن اي مكتبة مكتوب امامها MISSING وقم بالغاء تحديدها 4. او اضغط Alt + Q لالغاء المكتبات المفقودة مرة واحدة. ان لم تفي بالغرض فاعرض الملف او صورة الخطأ واذا كان محرر الاكواد محمي يرجى فك الحماية لمعرفة الخطأ تقبل تحياتي

مشكور اخي الكريم محي على اللفته الطيبة هذه اخي ابو البراء متغيب قليلا لظروف عمله وفقنا الله واياكم تقبلو تحياتي

الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

تفضل اخي الغالي =HYPERLINK("#"&"اليومية"&"!"&"d"&COUNTA(مبيع17[[#All];[الاسم Account Name]])+12;"الانتقال إلى آخر صف") ارتباط تشعبي.rar

عليكم السلام اخي الغالي ابو يوسف هل يزيد مجرد صف واحد الذي يسببه صف الاجمالي بالاسفل اذا كان كذلك فضع المعادلة هكذا =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(الجدول1[[#All];[الاسم ]])+1;"الانتقال إلى آخر صف") باضافة +1 فقط بدلا من +2 لتجنب زيادة صف الذي سببه الاجمالي اما اذا كان غير ذلك فياريت ترفق ملف به نفس الجدول الذي تعمل عليه ببيانات وهميه تقبل تحياتي

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

وانت بالف صحة وسلامة حبيبي ا / عادل عودا حميدا نورت المنتدى تقبل فائق احترامي

اختصرت الكود لك شوية تفضل انت لم تحدد حذف البيانات بعد الترحيل غير حذف خلية واحدة وهي A9 هل هذا ما تريده؟؟؟ حسابات دعاية واعلان.rar

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

الخطأ انك لم تحفظ الملف في صيغة تدعم وحدات الماكرو فاذا كنت قد وضعت اي اكواد وحفظت بامتداد Xlsx فانك قد خسرت كل الاكواد التى تم حفظها عدل الملف مره اخرى واحفظ بامتداد يدعم الماكرو مثل Xlsm

فكرة بسيطة وتفى بالغرض (وزي ما ابو البراء بيقول - يعجبني حلولك عندما تكون السهل الممتنع) فائق احترامي تقبل تحياتي

تفضل بدون تكرار وفراغات.rar

تفضل اخي الكريم المطلوب ويرجى تغيير اسم الظهور للغة العربية ومرحبا بك في منتديات اوفيسنا Book1.rar

عليكم السلام اخي الكريم تفضل وضعت لك مثال بالمعادلة للتوضيح الاعتماد على الرقم الثاني من جهه اليمين فاذا كان الرقم فردي النوع = Male واذا كان زوجي =Female رقم قومى.rar

كل عام وأنتم بخير تقبل الله منا ومنكم صالح الاعمال والطاعات

على الاقل طبقت الفكر له على الاسماء والفلترة عشان توصل المعلومة اما حبيبي ابو البراء دائما سباق بالخير واحب اقولك Checkmate

تفضل اخي الكريم ابو البراء سبقنا مشكور على الحل تقبل تحياتي sortColorYasser.rar

اخي الكريم تامر ادعم موضوعك بملف مرفق وتوضيح المطلوب حتى تجد العون والمساعدة من اخوانك بالمنتدى تقبل تحياتي

هل تقصد هذه الايقونات ico.rar