عمل range من أعمدة مختلفة من ورقة

[رائد داود]

السلام عليكم

لدي شيت باسم day  واريد عمل range  منها من العمود a3:d5000 و من f3:o5000  كيف يتم كتابته  او  تسمية  الرينج باسم مثلا"

h4.rar

[عصام_عادل]

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

أتمنى أكون فهمت سؤالك بطريقة سليمة .. وإن شاء الله يكون الجواب في الفيديو هذا

 

 

[رائد داود]

شكرا" أخي  لكن  ليس  المطلوب
عندي في الورقة day  الأعمدة من A الى O

اريد عمل  رينج من العمود A الى العمود e , ومن العمو  J  الى العمود O

("a3:e5000,j3:o5000")   هكذا  مثلا"  كيف  يمكن  كتابته  لكي  يتم  تعبئة  ليست  بوكس  منه

شكرا" مرة  اخرى

[ابو عبدالبارى]

الأخ الكريم رائد داود

يمكنك كتابته بهذا الشكل

Union(Range("a3:e5000"), Range("j3:o5000")

[رائد داود]

9 ساعات مضت, ابو عبدالبارى said:

الأخ الكريم رائد داود

يمكنك كتابته بهذا الشكل

Union(Range("a3:e5000"), Range("j3:o5000")

شكرا" جزيلا" استاذ  لكن  عند  تعريفه   هكذا  يظهر بالأحمر  ولاينجح

Private Sub UserForm_Initialize()
ComboBox1.AddItem "سند صرف"
ComboBox1.AddItem "سند قيد"

 Set MyRng = Union(Range("a3:e5000"), Range("j3:o5000")
   

With Me.ListBox1
    .ColumnCount = 12
    .ColumnWidths = "25,25,50,45,20,20,50,50,50,50,50,50,50"
   .List = MyRng.Value
   End With
 

End Sub

[طلعت محمد حسن]

اخي الكريم رائد يمكن تعبئة اللست بوكس من خلال رقم العامود دون الحاجة الى تعريف Range في ملفك ما هو معيار البحث حتى يتم سردة باللست بوكس

 

اقبل تحياتي واحترامي

تم تعديل ديسمبر 18, 2016 بواسطه طلعت محمد حسن

[طلعت محمد حسن]

اخي الكريم رائد يمكن تعبئة اللست بوكس من خلال رقم العامود دون الحاجة الى تعريف Range في ملفك ما هو معيار البحث حتى يتم سردة باللست بوكس

جرب الملف الملف هل تقصد هكذا في UserForm1

 

اقبل تحياتي واحترامي

h4.rar

[رائد داود]

13 ساعات مضت, طلعت محمد حسن said:

اخي الكريم رائد يمكن تعبئة اللست بوكس من خلال رقم العامود دون الحاجة الى تعريف Range في ملفك ما هو معيار البحث حتى يتم سردة باللست بوكس

جرب الملف الملف هل تقصد هكذا في UserForm1

 

اقبل تحياتي واحترامي

h4.rar

عمل  رائع  استاذ طلعت  وشكرا"  لك  ياأخي 
انا  قصدت  عدم  اظهار  اعمدة  أخرى  وهي  م5  و  م4 و م3  ... مثلا"  أو أي  أعمدة  أخرى  لا أرغب بإظهارها
استنادا"  الى  معيار  بحث  أختاره  أنا 

[طلعت محمد حسن]

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

[رائد داود]

2 ساعات مضت, طلعت محمد حسن said:

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

تم  العمل  ومشكور  استاذي  , سؤال  ماذا  لو  أردت  البحث  بنفس  الفورم  بمعيارات  اخرى ؟

[طلعت محمد حسن]

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

[رائد داود]

2 ساعات مضت, طلعت محمد حسن said:

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

نعم الفكرة واضحة استاذ طلعت

لكن قصدي في نفس الفورم أبحث بأكثر من معيار  ،  وانا جربت لكن الأعمدة والعناوين في ليست بوكيس  تحتاج الى تغيير  وعمل resize

[رائد داود]

في ١٩‏/١٢‏/٢٠١٦ at 09:54, طلعت محمد حسن said:

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

تم  العمل  ومشكور  استاذي  , سؤال  ماذا  لو  أردت  البحث  بنفس  الفورم  بمعيارات  اخرى ؟

السلام عليكم

اخي الفاضل  استاذ طلعت

لمشاهدة  المرفق  حيث  عملت  2 فريم وليست  بوكس عدد 2  وكومبو بوكس 2  لخيارات التصفية

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

h4.rar

[طلعت محمد حسن]

السلام عليكم

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

 

اقبل تحياتي واحترامي

h4.rar

[رائد داود]

16 ساعات مضت, طلعت محمد حسن said:

السلام عليكم

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

 

اقبل تحياتي واحترامي

h4.rar

جاري  المراجعه  وحل  جيد  ان شاء  الله

مشكور  اخي  سنتواصل  وأعطيك  البرنامج  كاملا"  حيث  عندي  مشكلة  في  استدعاء  البيانات  سوف أوضحها  لكم

شكرا" لكم

16 ساعات مضت, طلعت محمد حسن said:

السلام عليكم

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

 

اقبل تحياتي واحترامي

h4.rar

جاري  المراجعه  وحل  جيد  ان شاء  الله

مشكور  اخي  سنتواصل  وأعطيك  البرنامج  كاملا"  حيث  عندي  مشكلة  في  استدعاء  البيانات  سوف أوضحها  لكم

شكرا" لكم

[رائد داود]

السلام عليكم

استاذي العزيز  تم  حذف ليست بوكس 1  أعتقد لاحاجة  لنا  بها  أصبحت زائده

سوف  أحاول زيادة معايير البحث , وسؤال  عندي  اريد  في  الكومبو  بوكس  للإختيارات  أن  لاتجلب  المتكرر  يعني  مثلا"  رقم  الدليل  33  يذكر  مرة  واحده

وكذلك  مثلا" في  المركز  لايجلب  الأسماء  المتكررة  هل  هناك  كود  ممكن  إضافته ؟

[طلعت محمد حسن]

السلام عليكم

اخي الكريم رائد بما انك لا تريد جلب الاسماء المتكررة هنا يأتي دورك في امر الترحيل بان يرحل الدليل مرة واحدة فقط وتنتهي المشكلة

 

اقبل تحياتي واحترامي

[رائد داود]

منذ ساعه, طلعت محمد حسن said:

السلام عليكم

اخي الكريم رائد بما انك لا تريد جلب الاسماء المتكررة هنا يأتي دورك في امر الترحيل بان يرحل الدليل مرة واحدة فقط وتنتهي المشكلة

 

اقبل تحياتي واحترامي

شكرا" استاذي  ولكن  قد يستلم  نفس  الشخص  اكثر  من سند  صرف  فيتكرر  اسمه  في  ورقة day  او الداتا  الموجودة

 

[طلعت محمد حسن]

السلام عليكم

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

 

اقبل تحياتي واحترامي

[رائد داود]

منذ ساعه, طلعت محمد حسن said:

السلام عليكم

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

 

اقبل تحياتي واحترامي

نعم ماتفضلت به  لكني احتاج  للبحث في اسماء المستلمين  واسم الحساب ....

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

[طلعت محمد حسن]

السلام عليكم

اخي الكريم رائد لا تستبق الامور دعنا اولا من انجاز هذا العمل وبالمسبقبل نتوسع في اعمال ومشاريع جديدة وافكار جديدة

 

اقبل تحياتي واحترامي

[azoz100]

الأستاذ طلعت طابت اوقاتك بالمسرات

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

فهل يمكن نتواصل بالواتس أب ؟

 

اتمنى التوفيق لك وللجميع