تعليمة تحديد خلية لا تعمل داخل فورم

[sarab1618]

أعمل على فورم يساعدني في العمل والمطلوب بعد عملية البحث تحديد الخلية موضوع البحث ... الفورم يعمل بشكل ممتاز في عملية البحث ولكنه يعطي اشارة خطأ في تحديد الخلية أو الصف ... كود التحديد المعني مكتوب في آخر الكود الرئيسي ....فما هو الكود الصحيح لاتمام عملية التحديد....

ListBox1.ListIndex = ComboBox1.ListIndex
End Sub
Private Sub CommandButton17_Click()
For i = 1 To 10
 Me.Controls("TextBox" & i).Value = ""
 TextBox35.Text = ""
 TextBox33.Text = ""
 ComboBox1.Clear
 ListBox1.Clear
 Next
For i = 1 To 10
 Me.Controls("TextBox" & i).Value = ""
 Next
 For i = 1 To 10
 Me.Controls("TextBox" & i).TabStop = True
 Next
 TextBox35.Text = ""
 TextBox33.Text = ""
 ComboBox1.Clear
 ListBox1.Clear
End Sub
Private Sub CommandButton18_Click()
UserForm1.Left = -540
End Sub
Private Sub CommandButton9_Click()
UserForm1.Left = 70
End Sub
Private Sub ListBox1_Change()
ComboBox1.ListIndex = ListBox1.ListIndex
lastrow = ورقة2.Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To lastrow
    For r = 1 To 10
       If ورقة2.Cells(i, 1) = ComboBox1.Text Then
       Me.Controls("TextBox" & r).Value = ورقة2.Cells(i, r).Value
      End If
    Next
Next
End Sub
Private Sub CommandButton6_Click()
Workbooks.Application.Visible = True
UserForm1.Hide
End Sub

Private Sub CommandButton7_Click()
End
End Sub
Private Sub TextBox35_Change()
lastrow = ورقة2.Cells(Rows.Count, "A").End(xlUp).Row + 1
        For i = 1 To 10
        UserForm1.ComboBox1.Clear
        UserForm1.ListBox1.Clear
        For T = 1 To lastrow
      If InStr(ورقة2.Cells(T, 3).Text, TextBox35.Text) > 0 Then
       Me.ComboBox1.AddItem ورقة2.Cells(T, 1)
       Me.ListBox1.AddItem ورقة2.Cells(T, 3)
       Me.Controls("TextBox" & i).Value = ورقة2.Cells(T, i).Value
        End If
Next
Next
If TextBox35.Text = "" Then
        UserForm1.ComboBox1.Clear
        UserForm1.ListBox1.Clear
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
MsgBox "للخروج من البرنامج يرجى الضغط على خروج  ", vbInformation, "ملاحظة"
End Sub
Private Sub TextBox33_Change()
lastrow = ورقة2.Cells(Rows.Count, "A").End(xlUp).Row + 1
        For i = 1 To 10
        UserForm1.ComboBox1.Clear
        UserForm1.ListBox1.Clear
        For T = 1 To lastrow
    If Mid(TextBox33.Text, 1, Len(TextBox33.Text)) = Mid(ورقة2.Cells(T, 3).Text, 1, Len(TextBox33.Text)) Then
       Me.ComboBox1.AddItem ورقة2.Cells(T, 1)
       Me.ListBox1.AddItem ورقة2.Cells(T, 3)
       Me.Controls("TextBox" & i).Value = ورقة2.Cells(T, i).Value
        End If
Next
Next
If TextBox33.Text = "" Then
        UserForm1.ComboBox1.Clear
        UserForm1.ListBox1.Clear
End If
End Sub

Private Sub ListBox1_Click()
'Dim S_1 As String
S_1 = ListBox1.List(ListBox1.ListIndex, 0)
Range(S_1, 3).Select
End Sub

[sarab1618]

للرفع

[حمادة عمر]

الاخ الكريم

من الافضل ان ترفق الملف الموجود به الفورم

[sarab1618]

ارفق الملف المراد تعديله حيث المطلوب لاكتمال الغاية منه تحديد الخلية التي تتضمن الاسم المطلوب بعد الضغط على احدى نتائج البحث في listbox1 ومن خلال تحديد الخلية في المستند نستطيع اغلاق الفورم ومعرفة مكان الخلية والصف المطلوبين في ملف يحوي اسماء وصفوف كثيرة جدا

وشكرا سلفا ....ملاحظة حاولت ادراج كود تحديد خلية في أسفل الفورم الرئيسي إلا أنني لم أفلح ....

البحث بجزئ من الاسم.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / sarab1618

بارك الله فيك

تم اضافة زر للفورم الخاص بك باسم ( الذهاب للسجل المحدد )

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

Private Sub UserForm_Activate()
TextBox33.Value = ""
TextBox35.Value = ""
End Sub

وتم استخدام كود لتنفيذ طلبك ... كما تريد مع ظهور رساله للتأكيد علي الذهاب للسجل المحدد ام لا

... واي تعديلات معك باذن الله دائما واليك الكود :

Private Sub CommandButton18_Click()
Dim i As Integer
For i = 3 To 100
If Val(TextBox1.Value) = Cells(i, 1) Then Cells(i, 1).Select
Next
sama = MsgBox("هل تريد الذهاب للاسم المحدد الذي قمت باختياره", vbYesNo, "رسالة تأكيد")
If sama = vbYes Then
UserForm1.Hide
Else
 Exit Sub
End If
End Sub

ارجو ان يفي بطلبك

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

 

 

البحث بجزئ من11 الاسم.rar

[رجب جاويش]

أخى المبدع  / حمادة عمر

تسلم ايديك

[حمادة عمر]

السلام عليكم

الاستاذ العملاق / رجب جاويش

بارك الله فيك

مرورك وحده شرف كبير لي

وشهادة اعتز بها جدا

فما بالكم بلقب غالي من استاذ عملاق مثلك

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

[sarab1618]

ألف شكر وجزيت عنا كل خير .................

[حمادة عمر]

السلام عليكم

الاخ الكريم / sarab1618

بارك الله فيك

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

[sarab1618]

عذرا مرة أخرى لكن واجهتني مشكلة في أن قاعدة البيانات كبيرة جدا ... وعندما أحاول البحث عن كلمة محددة يكون هناك بطئ شديد ... عند كتابة أي حرف علي الانتظار وقت طويل ليسمح لي الفورم بكتابة الحرف الثاني وهكذا ...ماذا علي أن أعدل في تعليمة البحث text box 35 حتى لا يبدأ البحث إلا بعد كتابة الكلمة المراد البحث عنها والضغط على زر الادخال ( الانتر) ...وشكرا