حسين العصلوجى

اخي الحبيب احمد

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

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

جرب المرفق لعله يكون المطلوب

SchoolDalil_H.rar

جرب المرفق لعله يكون المطلوب

الاضافى-HH.rar

جرب المرفق لعله يفى بالغرض

الاضافى-H.rar

فصل محتويات خلية حسب شرط.rar

ده مرفق للاخ الفاضل / محمود لعله يكون مقصدك

نفس الكود بتنسخه في مديول الصفحة

واستخدم if target.colum = 

لتحديد العمود الذي بعد تعديلة يعمل الكود

تم تعديل المرفق كما طلبت

كشف باسماء العاملينH.rar

حدد البيانات واخترgroup من تبويب data للانشاء واختار ungroup للحذف

جرب المرفق لعله يكون المطلوب

*- الترحيل يتم فقط في حالة وجود قيمة في العمود h والعمود j كما طلبت في شرحك

كشف باسماء العاملينH.rar

تم تعديل المرفق كما طلبت

h-الاضافى.rar

جرب المرفق لعله ما تقصده

* - المرفق يعمل علي اساس ان 4500 وحده 4 ردود كما طلبت من قبل

h-الاضافى.rar

هل في حالة خروج السطحه ب 6 ردود ياخد السائق اول 4 ردود كاملين والاثنين الاخريين نصفهم فقط ؟؟؟؟

اليك تعديل ما طلبت

h-الاضافى.rar

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

جرب المرفق لعله يكون المطلوب

h-الاضافى.rar

المرفق كما طلبت لكن برجاء توضيح اكثر لجزئية خروج الونش مع السطحه لاضافتها للملف

h-الاضافى.rar

لعمل ذلك لابد من تعديل الكود تماما حيث يتم الغاء التكرار وعمل كود لكل ليست بوكس

        If ws.Cells(i, 1) = Val(ComboBox1) Then

من هذا السطر حيث ان 1 يرمز الي العمود A

لكن انتبه فالكود يعمل علي اساس ان الكود في كلتا الصفحتين بنفس العمود

شكرا أساتذتنا الكرام   وجزاكم الله كل خير  وجعلها في ميزان حسناتكم

 

 

 

لدي سؤال

 الرجاء شرح هذه الجزئية

Set ws = Worksheets("bd")

x = 1

ii = 0

Do Until x = 3

 

 

وهذه

 

 

Set ws = Worksheets("bd2")

x = x + 1

ii = 0

Loop

 End Sub

 

الاخ / ريان 

الجزء الاول يعمل علي ان يجعل المتغير ws خاص بالورقة bd ثم يتم تنفيز جلب البيانات الي بوكس 1 ثم يقوم الجزء التاني بتغير المتغير ws الي الورقة الثانية bd2

ووضع x =1 حتي تجعل هذا السطر Me.Controls("ListBox" & x). خاص بليست بوكس 1ثم +1 ليحولها الي ليست بوكس 2

وloop للتكرار

 

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

 

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

 

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

H-test (4).rar

 

احسنت اخي حسين هذا ما عنيته

 

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

 

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

 

الشكر لك استاذنا الغالي عبدالله باقشير ففي كل مشاركة لك تضيف لنا الجديد 

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

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

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

H-test (4).rar

السلام عليكم

 

 

لكن لماذا 10 اعمده فقط ؟؟؟

 

الله اعلم

هل هذا خلل بالكود ام ان ادراج البيانات بالليست بوكس بهذه الطريقة لها حد اقصي 10 اعمده

السلام عليكم

 

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

 

المعنى هذه الاسطر لا تعمل

         Me.Controls("ListBox" & x).List(v, 10) = ws.Cells(i, 22).Value
         Me.Controls("ListBox" & x).List(v, 11) = ws.Cells(i, 24).Value
         Me.Controls("ListBox" & x).List(v, 12) = ws.Cells(i, 25).Value

ولا يظهر الخطأ بسبب هذا السطر الذي يمرر الخطا

On Error Resume Next

تحياتي

تحية لك مشرفنا العزيز علي هذه الملاحظه 

لكن لماذا 10 اعمده فقط ؟؟؟

جرب المرفق لعلي اكون وفقت للمطلوب

الاجازة.rar

شكرا للاخ حسين جزاك الله خيرا

 

وهذا تعديل على ملف الاخ حسين ليكون كما طلب الاخ أحمد علي بالضبط

احسنت اخي حسين

تقبل خالص تحياتي

الشكر واصل لك اخي الحبيب والغالي / حماده عمر ولاخي احمد وقنديل

السلام عليكم

 

عمل رائع جدا اخي حسين............جزاكم الله خيرا

 

فقط اثراءا للموضوع ولاني كنت اعمل على هذا المرفق قبل ان ارى مشاركتك

اشارك بما لدي تنوعا للحلول

المرفق 2010

تقسيم الشهر.rar

مرورك الكريم استاذنا الفاضل / عبدالله باقشير يثري اي موضوع ويقدم الجديد دائما