كود بحث في اليوزرفورم

[بن خليفه]

 

أرجو المساعدة في كتابة كود البحث في اليوزر فورم في Textbox  يحدد الكلمة في Listbox1 ( مثل ملف الأستاذ عبدالله باقشير ) ولكن

وعند النقر على الكلمة في Listbox1 التي تحتوي العمود B تعطيني C,D,E المقابل لها بنفس طريقة دالة Vlookup ولكن في نفس الفورم ..

شرح وافي في المرفق

بحث.rar

[الجموعي]

في 30/3/2016 at 02:41, بن خليفه said:

 

أرجو المساعدة في كتابة كود البحث في اليوزر فورم في Textbox  يحدد الكلمة في Listbox1 ( مثل ملف الأستاذ عبدالله باقشير ) ولكن

وعند النقر على الكلمة في Listbox1 التي تحتوي العمود B تعطيني C,D,E المقابل لها بنفس طريقة دالة Vlookup ولكن في نفس الفورم ..

شرح وافي في المرفق

بحث.rar

تفضل اخي

بحث.rar

[بن خليفه]

17 ساعات مضت, الجموعي said:

تفضل اخي

بحث.rar

أستاذي ..

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

[بن خليفه]

عذراً أخي الجموعي ..

توجد نقطتين :

الأولى أن تظهر في مربع ListBox العمود فقط في B وليس كامل الجدول

الثاني في حال أردت اضافة بحث اخر في نفس اليوزر فورم لنفس الكود لكن يقوم بأخذ عمود اخر من شيت اخر في نفس اليوزرفورم لكن من CommandButton اخر

[الجموعي]

4 ساعات مضت, بن خليفه said:

عذراً أخي الجموعي ..

توجد نقطتين :

الأولى أن تظهر في مربع ListBox العمود فقط في B وليس كامل الجدول

الثاني في حال أردت اضافة بحث اخر في نفس اليوزر فورم لنفس الكود لكن يقوم بأخذ عمود اخر من شيت اخر في نفس اليوزرفورم لكن من CommandButton اخر

تفضل اخي المطلوب

بحث معدل.rar

[بن خليفه]

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

 في المرفق

 

 

بحث معدل.rar

[بن خليفه]

UP

[الجموعي]

في 2/4/2016 at 14:25, بن خليفه said:

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

 في المرفق

 

 

بحث معدل.rar

معذرة عن التأخير في الرد بسبب المشاغل

تفضل لعله المطلوب

بحث معدل1.rar

[بن خليفه]

4 ساعات مضت, الجموعي said:

معذرة عن التأخير في الرد بسبب المشاغل

تفضل لعله المطلوب

بحث معدل1.rar

 

والله أشكرك يا غالي وهو المطلوب ..

الله يسعد أيامك كلها

[بن خليفه]

في 4/4/2016 at 14:38, الجموعي said:

معذرة عن التأخير في الرد بسبب المشاغل

تفضل لعله المطلوب

بحث معدل1.rar

أستاذ / الجموعي ..

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

 

الكود :

 

 

Private Sub UserForm_Activate()

 

   Dim t As Integer

   Dim R As Variant

    

    For t = 3 To 4

    R = Sheets(t).Name هنا يظهر الخطأ

    Me.ComboBox1.AddItem R

    Next

End Sub

 

Private Sub ComboBox1_Change()

If Me.ComboBox1.Value = "" Then: Exit Sub

End Sub

Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 

Me.TextBox1.Value = ListSearch.List(ListSearch.ListIndex, 0)

Me.TextBox2.Value = ListSearch.List(ListSearch.ListIndex, 1)

Me.TextBox3.Value = ListSearch.List(ListSearch.ListIndex, 2)

Me.TextBox18.Value = ListSearch.List(ListSearch.ListIndex, 3)

Me.TextBox19.Value = ListSearch.List(ListSearch.ListIndex, 4)

 

 

End Sub

Private Sub ButtonSearch_Click()

On Error Resume Next

Dim ws As Worksheet

Dim V As Integer

Dim LastRow As Integer

Dim M As String

Dim Q, F

ListSearch.Clear

If TextSearch.Text = "" Then GoTo 1

M = TextSearch.Text

Set ws = Sheets(ComboBox1.Value)

With ws

     LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row

Set Q = .Range("B2:B" & LastRow).Find(M)

If Not Q Is Nothing Then

F = Q.Address

Do

If Application.WorksheetFunction.Search(M, Q, 0) = 1 Then

ListSearch.AddItem Q.Value

ListSearch.List(V, 1) = Q.Offset(0, 1).Value

ListSearch.List(V, 2) = Q.Offset(0, 2).Value

ListSearch.List(V, 3) = Q.Offset(0, 3).Value

ListSearch.List(V, 4) = Q.Offset(0, 4).Value

ListSearch.List(V, 5) = Q.Offset(0, 5).Value

 V = V + 1

 End If

 Set Q = .Range("B2:B" & LastRow).FindNext(Q)

 Loop While Not Q Is Nothing And Q.Address <> F

 End If

 End With

1 End Sub

[الجموعي]

1 ساعه مضت, بن خليفه said:

أستاذ / الجموعي ..

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

 

الكود :

 

 

Private Sub UserForm_Activate()

   Dim t As Integer

   Dim R As Variant

    

    For t = 3 To 4

    R = Sheets(t).Name هنا يظهر الخطأ

    Me.ComboBox1.AddItem R

    Next

End Sub

 

أرفع لي الملف الذي قمت بالتعديل عليه  الذي بهكود الخاص بإظهار اليوزر واخفاء ملف الاكسل 

تم تعديل أبريل 11, 2016 بواسطه الجموعي

[ابوعبدالواجد]

السلام عليكم

الاستاذ  الجموعي حياك الله 

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

فهرست العملاء.rar

[بن خليفه]

45 دقائق مضت, ابوعبدالواجد said:

السلام عليكم

الاستاذ  الجموعي حياك الله 

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

فهرست العملاء.rar

منتظر الجموعي لأني ماشي معاه من بداية المشروع وأكيد تجي وشوفhttp://www.officena.net/ib/applications/core/interface/file/attachment.php?id=110560 المرفق 

[بن خليفه]

في 4/11/2016 at 18:08, الجموعي said:

أرفع لي الملف الذي قمت بالتعديل عليه  الذي بهكود الخاص بإظهار اليوزر واخفاء ملف الاكسل 

 

أستاذي الفاضل / الجموعي

المرفق هو المشروع الذي أعمل عليه

عيرت طريقة الكومبوبوكس

شوف  Page 5 , Page 4  , Page 3

يظهر لي خطأ - الصور في المرفق

 

The New SSC 7.rar

تم تعديل أبريل 13, 2016 بواسطه بن خليفه
وضع مرفق

[بن خليفه]

UP

[أبو حنــــين]

السلام عليكم

اخي بالنسبة للصورة الاولى  capture تعني ان هناك شيئ ينقص و كان موجودا على الفورم مثل زر او مربع نص .....

بالنسبة للصورة الثانية captue2  ذلك السطر الاصفر انزع منه الرقم 7