بحث بعدة خيارات عن طريق الليست بوكس ولصق النتائج (عنوان معدل)

[Akram Galal]

السلام عليكم

تحية طيبة علي كل المنتدي

أرجوا من أهل الخبرة مساعتي في الأتي:

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

وأريد أن يظهر بيانات عمود السعر وبيانات عمود الشركة في الليست بوكس

ولكم جزيل الشكر

وارجوا من سيادتكم شرح كيف تم التعديل

وشكرا.

واليكم المرفقات

[عبدالله باقشير]

السلام عليكم

تحية طيبة علي كل المنتدي

أرجوا من أهل الخبرة مساعتي في الأتي:

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

وأريد أن يظهر بيانات عمود السعر وبيانات عمود الشركة في الليست بوكس

ولكم جزيل الشكر

شاهد الموضوع :

بحث من فورم بعدة خيارات ووضع النتائج في listbox

http://www.officena.net/ib/index.php?showtopic=42261

بيع الأدوية1.rar

[Akram Galal]

الأستاذ عبدالله

تحية طيبة علي استجابتكم لنا

وتحية عطرة علي كل المنتدي الجميل

ولكنني احيطكم علماً بأن تكست بوكس البحث كان يبحث بالحروف الأولي وبمجرد كتابة أي حرف يظهر النتيجة

اما البحث الذي تفضلتم به يظهر أي كلمة تحتوي علي الحروف الموجودة في تكست بوكس البحث

وأنكم قد ازلتم زر لصق النتيجة من الفورمه واضفتم زر للبحث

أرجو من سيادتكم إضافة التعيل لليست بوكس الذي تفضلتم به ولكن علي نفس الفورمة المرسلة لكم في المرفقات الأولي التي بها زر لصق النتيجة

ولكم جزيل الشكر.

وفي انتظار ردكم علي احر من الجمر

ملاحظة: أرجوا من سيادتكم التفضل بشرح كيفية أعمدة الأكسل في الليست بوكس ولكم وافر الإحترام.

تم تعديل يونيو 19, 2012 بواسطه koko 2009

[عبدالله باقشير]

وفي انتظار ردكم علي احر من الجمر

اولا نسينا ان نخبرك من سابق ان موضوعك مخالف

بسبب العنوان

انا ساعدل العنوان وانتبه في الجيات

تفضل المرفق

2003-2007

بيع الأدوية2.rar

[Akram Galal]

السيد المحترم عبد الله

أنا عاجز عن الشكر لكم

والله عمل فوق الرائع والف الف الف الف الف ميلون شكر يا حبيب المنتدى

وإنني أعتذر منكم عن المخالفة

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

ولكم مني كل الشكر والإحترام .

[Akram Galal]

تحية طيبة علي المنتدي

لماذا لم تردوا علي

ارجوا منكم جعل زر past يبحث عن أول سطر فارغ ويضع به النتيجة

وللعلم قد جربت الكود التالي

iRow = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

ولكن دون جدوى

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

ولكم جزيل الشكر والإحترام .

[أبو أنس حاجب]

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

أخي الفاضل حفظك الله

جرب أضافة هذا السطر بداية كود اللصق

[d43].End(xlUp).Offset(1, 0).Select

وهو لسيدي وأستاذي الفاضل طارق محمود حفظه الله

أبو أنس

[Akram Galal]

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

الله الله الله الله عليك يا برنس

أشكركم شكر من أعماق قلبي

علي ما قدمتموه لي

وجعله الله في ميزان حسناتكم

وهذا هو المطلوب بنسبة 100%

وبارك الله في يدك

10/10

[أبوســـارة1973]

الأستاذ الكبير عبدالله باقشير حل رائع