اذهب الي المحتوي
أوفيسنا

فورم بحث في قائمه منقوله من قائمه اخري بالمعادله بطريقة افضل وسريعة


samycalls

الردود الموصى بها

أخى الكريم الفاضل أبو نصار كل الشكر على سرعة استجابتك

المرفق افضل حالاً بكثير من ما كان لدى وهو يؤدى الغرض وأن كنت أتمنى أن يكون أسرع فى البحث بعض الشيء

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

رابط هذا التعليق
شارك

السلام عليكم

تفضل المرفق

جرب وابلغنى بالنتائج

ان شاء الله يكون اسرع نوع ما

تحياتي

تقسيط السلع_ALI_B.rar

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

السلام عليكم أخى أبو نصار تحياتى وشكرى : المرفق جيد وبارك الله فيك .. ولكن صف التجميع أريده داخل الفورم أما فى أسفل ال listbox أو فى user form تحت ال listbox مباشرة مع إلغاء صف التجميع فى ورقة االأكسيل ( البحث ) نفسها .

التعديل المطلوب.rar

رابط هذا التعليق
شارك

السلام عليكم

تم عمل المطلوب على الليست بوكس

ان شاء الله ينال استحسانك

اطلع على المرفق

تحياتي

تقسيط السلع_ALI_C.rar

رابط هذا التعليق
شارك

تحية لك على جهدك وسرعة استجاباتك .. وكل الشكر والتقدير .. تبقى شيئين ( تعديلين )

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

الثانى : هل يمكن أن تكون الليست بوكس 20 عموداً .. أن أعرف أن أخرها 10 أعمدة فأن كان هناك طريقة .. أرجو أن تطبق على ملف منفصل غير الملف الأول الذى سيكون به التعديل الأول .. وهذا أن شاء الله أخر ما سوف أطلبه لأنى أثقلت عليك أخى الكريم .. وجعل الله هذا فى ميزان حسناتك .. كل الشكر ،،

رابط هذا التعليق
شارك

السلام عليكم

الاخ الفاضل

السموحه منك على التأخير في الرد وذلك لانشغالي

بعد كتابة كلمة البحث اضغط انتر

تفضل المرفق امل ان يفي بالغرض

والسلام عليكم

تقسيط السلع_ALI_C.rar

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

لم انتبه للطلب الثاني

هذا الكود لزيادة اعمدة الليست بوكس الى اي عدد تريده


Private Sub UserForm_Initialize()

On Error Resume Next

Me.ListBox1.Clear

Dim M_ALI As Range

With ورقة1

Set M_ALI = .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Resize(, 30) End With

With Me.ListBox1

.ColumnCount = M_ALI.Columns.Count

.List = M_ALI.Value

End With

End Sub

وهذ المرفق

LIST_ALI.rar

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

استاذى أبونصار كل تقديرى على جهدك .. حاولت تطبيق كود زيادة عدد الأعمدة على أخر مرفق تقسيط السلع_ALI_C.rar 31.68K 17 ولكن فشلت محاولتى ..

أنا ما أريدة أن يصبح عدد الأعمدة 20 عموداً فقط فى المرفق الأخير تقسيط السلع_ALI_C.rar 31.68K 17 وأن يكون صف التجميع 20 أيضا .. وأن

يكون اتجاه نتيجة البحث فى الفورم وأيضاً صف البحث من اليمين الى الشمال : أى الأسم ثم مايليه

وأيضاً أخر طلب ويمكن الأستغناء عنه .. هل يمكن لصف التجميع أعطاء النتيجة بدون الضغط على أنتر ..

الرجاء كل الرجاء تطبيق ما طلبيته هذه المرة بدقة .. لآنى لن أطلب شئ أخر بعد ذلك .. لأنى أثقلت عليك بشكل محرج ..

وكل شكرى وتقديرى .. أنا بعتذر تعبتك معايا ..

تم تعديل بواسطه samycalls
رابط هذا التعليق
شارك

السلام عليكم

====

اظهار المجموع مجرد كتابة كلمة البحث

تغير اتجاه البيانات

====

تفضل المرفق

تقسيط السلع_ALIDROOS.rar

رابط هذا التعليق
شارك

السلام عليكم

الاخ الفاضل samycalls

السموحه منك على تأخري في الرد

بالنسبة لزيادة الاعمدة في حالة البحث

حاولت ولم تزبط معي

وبالنسبة للبحث بمعيارين

الملف المرفق الاخير من قبلك

ملخبط شويات ان شاء الله

بعمل عليه حالياً وارفقه

تقبل نحياتي وشكري

رابط هذا التعليق
شارك

الأخ الكريم أبو نصار .. السلام عليكم .. 1 - إلى أين وصلت . هل من جديد ؟

2 - خطرت لى فكرة بخصوص زيادة عدد الأعمدة فى listbox . هل من الممكن أن نجعل عمو د listbox يضم ( وليس يجمع ) قيم عمودين أو ثلاثة فى كل صف من صفوفة من أعمدة ورقة الأكسيل .. هل فهمت ما أقصد !

أرجو الرد على 1 ، 2 إن تكرمت ..

رابط هذا التعليق
شارك

  • 3 weeks later...

السلام عليكم ورحمة الله وبركاته

بعد الشكر لكل اخواني الذين واسوني في التعزية بوفاة ست الحبايب

وكذلك بعد اذن اخي ابو نصار

حل آخر بالدزال

تقسيط السلع_ALI.rar

رابط هذا التعليق
شارك

السلام عليكم

الأستاذ القدير أحمد يعقوب حفظك الله ورعاك

عظم الله أجرك وأحسن عزاك

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

البقية في حياتك يااخي لم أعلم هذا الخبر الإ في مشاركتك السابقة

إنا لله وإنا إلية راجعون

رابط هذا التعليق
شارك

السلام عليكم

وبعد اذن استاذ الحبيب احمد زمان

الاخ الفاضل samycalls

تأخرت بالرد لسبب الظروف السموحه منك

تفرغت اليوم شويات

تفضل المرفق

وأي إضافات أو تعديلات أنا موجود ورغم إنشغالي

ولاكن الأساتذه الاجلاء لن يقصرو معاك

تقبل تحياتي

ALI_Form.rar

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

السلام عليكم

الأستاذ القدير أحمد يعقوب حفظك الله ورعاك

عظم الله أجرك وأحسن عزاك

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

البقية في حياتك يااخي لم أعلم هذا الخبر الإ في مشاركتك السابقة

إنا لله وإنا إلية راجعون

شكرا لك وجزاك الله كل خير

انا لم اقم بفتح موضوع للتعزية

بارك الله فيك

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information