اريد فلتر تلقائى للارقام فقط

[amrhosny]

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

اريد كتابة الرقم او جزء من الرقم فى خانة textbox

ليكون autofilter على الارقام

كنت جربت كود مسبقا ولكن لم ينفع على الارقام

ينفع على النص فقط

هذا هو الكود ولكن لا يفلح على الارقام بعد المسح لا تظهر الفلترة بالشكل الصحيح ولكنه ينفع ويصلح للنص بشكل جيد جدا

Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lastrow As Long
lastrow = Range("a65535").End(xlUp).Row
If TextBox1.Text <> "" Then
    ActiveSheet.Range("$A$1:$z$" & lastrow).AutoFilter Field:=1, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    Else
    ActiveSheet.Range("$A$1:$z$" & lastrow).AutoFilter Field:=1, Criteria1:= _
    "=" & "*" & TextBox1.Text & "*", Operator:=xlOr
    End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

اتمنى المساعدة

شكرا جزيلا

ارقام.xlsm

تم تعديل يونيو 5, 2019 بواسطه amrhosny

[amrhosny]

اتمنى من الاساتذة الافاضل مساعدتى واكون شاكر لكم

[amrhosny]

عذرا اخوانى لإلحاحى على المساعده

[عادل حنفي]

اخي جرب المرفق

اكتب في الخلية  C3  في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه

ثم اضغط Inter

ارجو ان يساعدك هذا

تحياتي

ارقام 2.xlsm

تم تعديل يونيو 7, 2019 بواسطه عادل حنفي

[Ali Mohamed Ali]

أحسنت استاذ عادل كود ممتاز بارك الله فيك وجعله فى ميزان حسناتك

[عادل حنفي]

مشكور مرورك اخي علي

تحياتي

[amrhosny]

3 hours ago, عادل حنفي said:

اخي جرب المرفق

اكتب في الخلية  C3  في شيت فلترة اول او ثاني رقم في الرقم الذي تريد البحث عنه

ثم اضغط Inter

ارجو ان يساعدك هذا

تحياتي

ارقام 2.xlsm 37.95 kB · 2 downloads

الكود رائع اخى الفاضل جعله الله فى ميزان حسناتك

ولكن هل يمكن البحث بأى جزء من الرقم

 

[amrhosny]

وايضا اذا اردت تغيير مكان الرينج الموجود بيه الارقام كيف لى ان اعدله

لم افهم من الكود مكان الرينج

فهمت مكان خانة البحث ولكنى لم افهم مكان النطاق

اعذرنى على اسالتى اخى الفاضل

[عادل حنفي]

اخي الان يمكنك البحث عن اللرقم  الذي تريده من بداية  الرقم الاول من علي اليسار

او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار

والكود هو

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C3").Address Then
If Target <> "" Then
Range("C5:D1000").ClearContents
s = Len(Range("C3"))
If s > 0 Then
x = 2
For i = 2 To 1000
If Sheets("Data").Cells(i, x) <> "" Then
m = Sheets("Data").Cells(i, x).Address
o = Left(Sheets("Data").Range(m), 1)
oo = Left(Sheets("Data").Range(m), 2)
ooo = Left(Sheets("Data").Range(m), 3)
oooo = Left(Sheets("Data").Range(m), 4)
ooooo = Left(Sheets("Data").Range(m), 5)
oooooo = Left(Sheets("Data").Range(m), 6)
ooooooo = Left(Sheets("Data").Range(m), 7)
oooooooo = Left(Sheets("Data").Range(m), 8)
If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then
With Columns(4).Rows(2000).End(xlUp)
.Offset(1, 0) = Sheets("Data").Cells(i, x)
Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1)
End With
End If
End If
Next
End If
End If
End If
End Sub

اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2

اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000

فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000

ارجو ان كون استطعت ايصال المعلومة

تحياتي

ارقام 2 (2).xlsm

[amrhosny]

6 hours ago, عادل حنفي said:

اخي الان يمكنك البحث عن اللرقم  الذي تريده من بداية  الرقم الاول من علي اليسار

او اول رقمان علي اليسار وهكذا حتي اول تمانية ارقام علي اليسار

والكود هو

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("C3").Address Then
If Target <> "" Then
Range("C5:D1000").ClearContents
s = Len(Range("C3"))
If s > 0 Then
x = 2
For i = 2 To 1000
If Sheets("Data").Cells(i, x) <> "" Then
m = Sheets("Data").Cells(i, x).Address
o = Left(Sheets("Data").Range(m), 1)
oo = Left(Sheets("Data").Range(m), 2)
ooo = Left(Sheets("Data").Range(m), 3)
oooo = Left(Sheets("Data").Range(m), 4)
ooooo = Left(Sheets("Data").Range(m), 5)
oooooo = Left(Sheets("Data").Range(m), 6)
ooooooo = Left(Sheets("Data").Range(m), 7)
oooooooo = Left(Sheets("Data").Range(m), 8)
If Range("C3").Text = o Or Range("C3").Text = oo Or Range("C3").Text = ooo Or Range("C3").Text = oooo Or Range("C3").Text = ooooo Or Range("C3").Text = oooooo Or Range("C3").Text = oooooo Or Range("C3").Text = ooooooo Or Range("C3").Text = oooooooo Then
With Columns(4).Rows(2000).End(xlUp)
.Offset(1, 0) = Sheets("Data").Cells(i, x)
Cells(.Offset(1, 0).Row, 3) = Sheets("Data").Cells(i, x - 1)
End With
End If
End If
Next
End If
End If
End If
End Sub

اما بخصوص المدي فيحدد عاموده ال X في سطر الذي هو x = 2

اما الذ يجدد الصف هذا السطر الخاص بالحلقة الدائرية For i = 2 To 1000

فيبدأ في البحث عن الرقم المطلوب في الصف 2 ثم 3 ونهاية بــ 1000

ارجو ان كون استطعت ايصال المعلومة

تحياتي

ارقام 2 (2).xlsm 38.88 kB · 0 downloads

تسلم ايدك فهمت الكود 

جزاك الله كل الخير وشكرا لوقتك وتعبك 

شكرا جزيلا اخى الفاضل