طلب تعديل كود بحث وفرز

[قاهر الاكسس]

السلام عليكم ورحمة الله وبركاتة ,,

 

الاخوة الاعزاء , اسعد الله ايامكم واواقاتكم بكل خير

 

يوجد لدي كود بحث في فورم اكسل بأول حرف في الاسم في الخلية وفرزه النتيجه في اللسته  حسب الحرف الاول فقط ,   لذا

 

اريد تعديل الكود بحيث يبحث او يفرز باي حرف داخل الخلية  ليس فقط الحرف الاول

 

مرفق لكم الكود 

Private Sub CommandButton4_Click()
LastRow = æÑÞÉ1.Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = 1 To 10
    For T = 1 To LastRow
    If TextBox2.Text = æÑÞÉ1.Cells(T, 2) And _
    TextBox1.Text = æÑÞÉ1.Cells(T, 1) Then
 æÑÞÉ1.Cells(T, i).Value = Me.Controls("TextBox" & i).Value
    End If
    Next
    Next
CommandButton3.Enabled = True
CommandButton4.Enabled = False

End Sub

ارجو مساعدتي بذالك ولكم فائق الشكر والتقدير

[قاهر الاكسس]

المعذرة تم ارفق الملف

 

 

 

 

السلام عليكم ورحمة الله وبركاتة ,,

 

الاخوة الاعزاء , اسعد الله ايامكم واواقاتكم بكل خير

 

يوجد لدي كود بحث في فورم اكسل بأول حرف في الاسم في الخلية وفرزه النتيجه في اللسته  حسب الحرف الاول فقط ,   لذا

 

اريد تعديل الكود بحيث يبحث او يفرز باي حرف داخل الخلية  ليس فقط الحرف الاول

 

مرفق لكم الكود 

Private Sub CommandButton4_Click()
LastRow = æÑÞÉ1.Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = 1 To 10
    For T = 1 To LastRow
    If TextBox2.Text = æÑÞÉ1.Cells(T, 2) And _
    TextBox1.Text = æÑÞÉ1.Cells(T, 1) Then
 æÑÞÉ1.Cells(T, i).Value = Me.Controls("TextBox" & i).Value
    End If
    Next
    Next
CommandButton3.Enabled = True
CommandButton4.Enabled = False

End Sub

ارجو مساعدتي بذالك ولكم فائق الشكر والتقدير

الدليل.rar

[قاهر الاكسس]

 

المعذرة تم ارفق الملف

 

 

 

 

السلام عليكم ورحمة الله وبركاتة ,,

 

الاخوة الاعزاء , اسعد الله ايامكم واواقاتكم بكل خير

 

يوجد لدي كود بحث في فورم اكسل بأول حرف في الاسم في الخلية وفرزه النتيجه في اللسته  حسب الحرف الاول فقط ,   لذا

 

اريد تعديل الكود بحيث يبحث او يفرز باي حرف داخل الخلية  ليس فقط الحرف الاول

 

مرفق لكم الكود 

Private Sub CommandButton4_Click()
LastRow = æÑÞÉ1.Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = 1 To 10
    For T = 1 To LastRow
    If TextBox2.Text = æÑÞÉ1.Cells(T, 2) And _
    TextBox1.Text = æÑÞÉ1.Cells(T, 1) Then
 æÑÞÉ1.Cells(T, i).Value = Me.Controls("TextBox" & i).Value
    End If
    Next
    Next
CommandButton3.Enabled = True
CommandButton4.Enabled = False

End Sub

ارجو مساعدتي بذالك ولكم فائق الشكر والتقدير

 

السلام عليكم , هل من مساعدة يااخوان