checles قام بنشر الإثنين at 09:09 مشاركة قام بنشر الإثنين at 09:09 السلام عليكم برجاء المساعده في تحسين الكود حيث عند عمل Filter بيجب القيمه فقط محتاج يجيب كل القيمه التي تحتوي علي TextBox1 Sheet1.active ActiveSheet.Range("$A$2:$AE$995").AutoFilter Field:=3, Criteria1:=Me.TextBox1.Value رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر الإثنين at 12:50 أفضل إجابة مشاركة قام بنشر الإثنين at 12:50 وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Option Explicit Private Sub TextBox1_Change() Dim WS As Worksheet: Set WS = ActiveSheet Dim LastRow As Long, OnRng As Range LastRow = WS.Cells(WS.Rows.Count, 3).End(xlUp).Row Set OnRng = WS.Range("A2:AE" & LastRow) If Me.TextBox1.Value = "" Then If WS.AutoFilterMode Then WS.AutoFilterMode = False End If Else OnRng.AutoFilter Field:=3, _ Criteria1:=Me.TextBox1.Value & "*", Operator:=xlOr, Criteria2:=Me.TextBox1.Value End If End Sub 2 1 رابط هذا التعليق شارك More sharing options...
checles قام بنشر الإثنين at 13:32 الكاتب مشاركة قام بنشر الإثنين at 13:32 الله يبارك في حضرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان