تعديل علي طباعة الفورم

[ياسر خليل أبو البراء]

أخي الحبيب ياسر العربي

لا تقدم الحلول وتهرول بعيداً ..قم بتوضيح ما قمت بتعديله ليستفيد الجميع ..

جزاكم الله خيراً على مساهماتك الرائعة والمميزة

[ياسر العربى]

اخي الغالي ابو البراء التعديل هنا

Private Sub ButtonFind_Click()
Dim Lr As Long, R As Long
Dim iNx As Integer
Me.ComboBox1.Clear


جعلنا iNx =33
 iNx = 33
لانه هنا يعتمد على الليست اندكس في الكمبوبوكس2 وانت مسيبتش غير تلاته بس انا ريحت وكتبت هما كام وخلاص :)
'iNx = Me.ComboBox2.ListIndex + 1


With æÑÞÉ1
    Lr = .Cells(.Rows.Count, "A").End(xlUp).Row
    For R = 2 To Lr
        If InStr(.Cells(R, iNx).Value, Me.TextFind.Value) Then
            Me.ComboBox1.AddItem .Cells(R, iNx).Value
            Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = R
        End If
    Next
End With
With Me.ComboBox1
    If .ListCount Then .ListIndex = 0: .DropDown Else kh_delete
End With
End Sub

 

[أبوبسمله]

جزاك الله خير يا ابو اسيل على هذا التوضيح الرائع

[حماده سعد الله]

بارك الله فيكم جميعا وأشكر كل من شارك وساعد في هذا الموضوع 

[أبوبسمله]

بالتوفيق اخى حماده

[حماده سعد الله]

علي فكرة يا جماعة أنا بدأت أخاف من الملف ده الظاهر فيه عفريت كل ما نصلح شئ يبوظ شيئ آخر البحث انظبت بالترتيب باظ بالاسم والرقم أنا آسف والله غصب عني أنا حاسس انكم كرهتوني وفاضل حاجة بسيطة وتلغوا عضويتي بهذا الموقع الممتاز فأرجوكم لو فعلا هتفكروا ف كدا بناقصه الملف ده وخلينا حبايب هههههه 

[ياسر العربى]

اسف خطأ متوقع ركزت ع الترتيب فقط

لم تاتي فكرة لعلاج المشكلة بطريقة احترافية

المهم عدلت بفكرة بسيطة كدا تقوم باللازم 

لعلها تناسبك

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

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

 وشكرا

نتيجة بالدرجات.rar

[حماده سعد الله]

ألف شكر ياسر باشا و سلمت يداك

[أبوبسمله]

جزاك الله كل خير يا ابواسيل 

وانت قدها وقدود باذن الله لو حتى مليون مشكله 

واسعه اوى هههههه 

 

[ياسر خليل أبو البراء]

أخي الحبيب ياسر العربي

بردو رميت الملف من غير ما تقول عملت ايه ..؟؟!

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

 

أخي الكريم حماده سعد الله

الحمد لله أن تم المطلوب على خير

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

 

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