السلام عليكم
استفدت مؤخرا بكود ممتاز لـ TEXT BOX أمكنني من البحث بمجرد كتابة الحرف الأول فقط ... للأسف لا أذكر من صاحبه لأشكره على مجهوده.
المطلوب تعديل لهذا الكود بحيث يبحث عن الكلمة في كل الخلية وليس الأحرف الابتدائية لها فقط .
الكود هو :
Private Sub TextBox1_Change()
Dim lastrow As Long
lastrow = Range("N65535").End(xlUp).Row
If ActiveSheet.TextBox1.Text <> "" Then
Range("$A$2:$R$" & lastrow).AutoFilter Field:=14, Criteria1:= _
"=" & TextBox1.Text & "*", Operator:=xlOr
Else
Range("$A$2:$R$" & lastrow).AutoFilter Field:=14, Criteria1:= _
"=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr
End If
End Sub
ولكم جزيل الشكر