حسين مامون

بعد ادن الاساتدة الكرام اليك التجربة لعلها ما تريد ضع مجلد باسم factur في سطع المكتب تم نفد حفظ بي دي اف.xlsm

الحمد لله ان تم الامر بخير الشكر موصول لكم جميعا وتحية للاستاذ أحمد يوسف

تفضل 123.xlsm

اخي الكريم هناك اختلاف بين بعض رؤوس الجدول في الشيت و label في الفورم المهم تم تعديل كود البحث كما طلبت اظهار قيمة خلية في الفورم2 (1) (1).xlsm

ربما تقصد مثل ما في المرفق test2.xlsm

جرب هذه المحاولة ربما تكون ما تريد التراخيص2.xlsm

جرب هذا المرفق لعله ما تريد fillt.xlsm

جرب وان كان هناك خطا اخبرني

اخي الكريم الف تحية قم بتوضع نمودج عن النتيجة المتوقعة في شيت3 مثلا وهكذا يمكن للاساتذة مساعدتك

وهنا تم اضافة عرض لاعمدة الليست RASED GADED.rar

اعتذر بسبب الشغل تكون بعض الاخطاء في الاكواد تم اضافة تركات اخرى ستكتشفها عند التنقل بين مربعات النص في الفورم RASED GADED.rar

على كل حال يمكن تطوير برنامجك وترحيل كود الصنف الى اي خلية في شيت العمل بضغطة زر على الفورم تحياتي

بانسبة اظهار محتويات الفورم المشكل فقط في اسم الصنف لم افهم ماذا تقصد بنسخ اي معلومة اشرح ماذا تري نسخه مثلا تريد ترحيل صف واحد من نتائج البحث تم تعديل الترحيل حيث يمسح النتائج السابقة ويلصق مكانها الجديدة RASED GADED.rar

اذا كان ما تقصده هو اطهار هذا اللدي في الصورة في الصفحات عند الطباعة فجرب المرفق موازنة حساب 2019.xlsx

السلام عليكم جرب الفورم البحث باسم المجموعة يمكنك البحث بأي كلمة في العمود (A) البحث باسم الصنف نفس الشيء تحياتي RASED GADED.xlsm

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

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

الحمد لله

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

استادي Ali Mohamed Ali ربما الاخ الكريم يقصد بتحويل ارقام الى نص هكذا مثلا 20 = عشرون (تفقيط)

جزاك الله خيرا والف تحية للاساذ علي تم التعديل RASED GADED.xlsm

استاذ شعبان سعد عجور يمكنك زيادة اصناف اخرى كما تشاء وجميع الكومبوبوكسات يتم تعبئتها فيحدث الدخول الى ورقة العمل كما في الكود Private Sub Worksheet_Activate() Dim ws As Worksheet: Set ws = Sheets("شاشة بحث") Dim ws2 As Worksheet: Set ws2 = Sheets("الرصيد") Dim lr, x, r ComboBox1.Clear ComboBox2.Clear ComboBox3.Clear ComboBox4.Clear ComboBox5.Clear lr = ws2.Range("a" & Rows.Count).End(xlUp).Row For x = 2 To lr If ws2.Range("a" & x) <> "" Then ComboBox1.AddItem ws2.Range("a" & x) ComboBox2.AddItem ws2.Range("b" & x) ComboBox3.AddItem ws2.Range("c" & x) ComboBox4.AddItem ws2.Range("d" & x) ComboBox5.AddItem ws2.Range("e" & x) End If Next x End Sub RASED GADED.xlsm

استاد شعبان سعد عجور اليك الطريقة البسيطة ربما ستعجبك وضعت اربعة كومبوبوكسات واربعة ازرار للبحث حسب الاختيار جرب المرفق تحياتي RASED GADED.xlsm

اخي اعتدر عن المشاركة السابقة وهذا هو الملف الذي كنت سارسله لك بالطريقة التي قلت سيكون هناك الكثير من الصفحات لانه اي تغيير في صفحة الصندوق سيضيف صفحة واحيانا يكون التغيير دون قصد انظر المرفق لعله يفي بالغرض الصندوق2019.xlsm

جزاكم الله خير الجزاء