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

التصفية بواسطة ComboBox


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

السلام عليكم ..

أخواني الأعزاء .. أساتذتنا الكرام أسعد الله أوقاتكم بكل خير

لدي تساؤل يمكن أن يكون بسيطاً جداً للبعض وربما البعض الآخر يعتبره غير ممكن

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

الذين يفاجئونا دائماً بكل ما هو جديد وممتع لهم مني كل التحية والإجلال

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

تقبلوا جميعاً تحياتي ..

Abuzzouz.rar

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

السلام عليكم ،،

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

إلا أنه لو سمحت لي بالتعليق أجد بطء في عملية ظهور النتائج مع هذا الكم البسيط من الأسماء

فكيف إذا كان هناك أكثر من 1000 موظف وأكثر من 15 قسم عندئذ سيكون الفورم غير عملي

أو بمعنى أصح غير متقن .. فهل من حل لديك أخي العزيز

تقبل تحياتي ..

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

السلام عليكم

اخي العزيز

البطأ ياتي من عملية الفلتره التي تتم ب VLOOK2ALL

و ان وجدت طريقه تجعل العمل اكثر سرعه ساعلمك بها

وان كان هناك احد من اخواننا يحل موضوع السرعه فلا مانع

تحياتي

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

السلام عليكم ،،

شكراً لك أخي Knight22666 على تفاعلك مع الموضوع وجزاك الله كل خير

إليك الملف كما أرفقته سابقاً

وعذراً لأنه ليس لدي Winzip

تقبل تحياتي ..

Abuzzouz.rar

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

السلام عليكم

أحسن الله إليك كما أحسنت إلي

واحسن الله اليك اخي الكريم

الاخ AHH الله يسلمك ويحفظك

بارك الله فيكما

ودمتم في حفظ الله

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

  • 3 weeks later...

السلام عليكم ،،

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

خلاصتها (تصفية ضمن تصفية) والمرفق يوضح المقصود

وشكراً لكم

تقبلوا جميعاً تحياتي ..

Abuzzouz.rar

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

الأخ خبور خير

ما شاء الله عليك

ربنا يزيدك من علمه و نعيمه

أفكار رائعة تشكر عليها

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

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

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

السلام عليكم ،،

أخي العزيز خبور الغالي وفقك الله لكل ما يحبه ويرضاه وأسأله وهو العلي القدير أن يبارك

لك في علمك وفي رزقك وفي أهلك ويرزقكم الجنه بغير حساب

دمت أستاذاً وأخاً عزيزاً .. شكراً جزيلاً لك

تقبل تحياتي

أخوك abuzzouz

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

السلام عليكم

الاخ العزيز / ju--------------- حفظه الله

الاخ العزيز / abu--------------- حفظه الله

بارك الله فيكما ولكما امثال الدعاء اضعاف مضاعفة

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

وهذا كود مختصر للعملية التي يقوم بها الكود السابق:

Private Sub Combo_Sect_Change()
On Error Resume Next
Dim Lastrow As Integer, R As Integer, H As Integer
Dim DataCell As Range
Set DataCell = Range("AllData")
Combo_Emp.Clear
Box_ID.Text = ""
H = 0
With DataCell
    Lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
    R = 1
    Do Until R = Lastrow
        If Combo_Sect.Text = "All Sections" Then GoTo 1
        If .Cells(R, 2).Text = Combo_Sect.Text Then
1           Combo_Emp.AddItem .Cells(R, 1).Value
            If .Cells(R, 4).Text = "Excelent" Then
                H = H + 1
            End If
        End If
    R = R + 1
    Loop
End With
Box_Count.Caption = Combo_Emp.ListCount
Box_Excelent.Caption = H
End Sub

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

السلام عليكم ،،

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

لقد برهنت على معدنك الأصيل وعلمك الوفير زادك الله منه الكثير

تقبل تحياتي مرة أخرى ..

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information