ياسر خليل أبو البراء قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 أخي الحبيب ياسر العربي لا تقدم الحلول وتهرول بعيداً ..قم بتوضيح ما قمت بتعديله ليستفيد الجميع .. جزاكم الله خيراً على مساهماتك الرائعة والمميزة 1 رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 اخي الغالي ابو البراء التعديل هنا 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 2 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 جزاك الله خير يا ابو اسيل على هذا التوضيح الرائع رابط هذا التعليق شارك More sharing options...
حماده سعد الله قام بنشر فبراير 22, 2016 الكاتب مشاركة قام بنشر فبراير 22, 2016 بارك الله فيكم جميعا وأشكر كل من شارك وساعد في هذا الموضوع رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 بالتوفيق اخى حماده رابط هذا التعليق شارك More sharing options...
حماده سعد الله قام بنشر فبراير 22, 2016 الكاتب مشاركة قام بنشر فبراير 22, 2016 علي فكرة يا جماعة أنا بدأت أخاف من الملف ده الظاهر فيه عفريت كل ما نصلح شئ يبوظ شيئ آخر البحث انظبت بالترتيب باظ بالاسم والرقم أنا آسف والله غصب عني أنا حاسس انكم كرهتوني وفاضل حاجة بسيطة وتلغوا عضويتي بهذا الموقع الممتاز فأرجوكم لو فعلا هتفكروا ف كدا بناقصه الملف ده وخلينا حبايب هههههه رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر فبراير 22, 2016 مشاركة قام بنشر فبراير 22, 2016 اسف خطأ متوقع ركزت ع الترتيب فقط لم تاتي فكرة لعلاج المشكلة بطريقة احترافية المهم عدلت بفكرة بسيطة كدا تقوم باللازم لعلها تناسبك وبعدين يامعلم حمادة متقولشي كدا براحتك احنا معاك لو ظهر الف مشكلة وسعت مني صح خليهم ميت مشكلة كويس كدا وشكرا نتيجة بالدرجات.rar 3 رابط هذا التعليق شارك More sharing options...
حماده سعد الله قام بنشر فبراير 22, 2016 الكاتب مشاركة قام بنشر فبراير 22, 2016 ألف شكر ياسر باشا و سلمت يداك رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر فبراير 23, 2016 مشاركة قام بنشر فبراير 23, 2016 جزاك الله كل خير يا ابواسيل وانت قدها وقدود باذن الله لو حتى مليون مشكله واسعه اوى هههههه 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 23, 2016 مشاركة قام بنشر فبراير 23, 2016 أخي الحبيب ياسر العربي بردو رميت الملف من غير ما تقول عملت ايه ..؟؟! عموماً جزاكم الله خير الجزاء على هذه المساعدات القيمة والتي أرجو دائماً أن تتوج بالشرح لما قمت بعمله ، ولو فيه وقت شرح لأسطر الكود التي تم التعامل معها أخي الكريم حماده سعد الله الحمد لله أن تم المطلوب على خير بس يا ريت تجرب الملف مرة تانية وتالتة عشان موضوع العفاريت دا بدأ يقلقني .. وبعدين ولا يهمك إذا كان الملف فيه عفاريت فمعانا العربي بيحضرهم ويصرفهم (كله تحت الطلب) تقبلوا وافر تقديري واحترامي 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان