البحث على الارصدة والارقام عبر التكست بوكست

[أبوحازم]

السلام عليكم أولاً كل الشكر لإصحاب المنتدى الافاضل : هذا ملف اريد به البحث عن الارصدة والارقام بالتكست بكست كما هو مرسوم وأن أمكن البحث بالنصوص المرفق يوضح اكثر وشكرا

البحث عن الرقم او الرصيد.rar

[عبد العزيز البسكري]

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

أظنّه ملف ملغّم سيدي الفاضل

تم تعديل أغسطس 4, 2015 بواسطه عبد العزيز البسكري
خطأ في الكتابة

[أبوحازم]

^{كيف ملغّم يا الفاضل بين لي  والمثل يقول ( كل الدعاوى ما لم تقم عليها البينات أبناؤها أدعياءُ )}

تم تعديل أغسطس 5, 2015 بواسطه أبوحازم

[أبوحازم]

للرفع

[عبد العزيز البسكري]

^{كيف ملغّم يا الفاضل بين لي  والمثل يقول ( كل الدعاوى ما لم تقم عليها البينات أبناؤها أدعياءُ )}

البيّنات هي أن تقطع آلاف الكيلومترات لتصل عندي وأثبت لك أنّه ملغّم على الأقل بالنسبة لي ..هل هناك عيب عندما أخبرتك بأنّ ملفك يحتمل به فيروس حتى ( تتريقْ ) عليّ ..وتحدثني بلهجة الداعي و المدعى عليه..بالنسبة لي ألف شكر و ألف تحية إجلال و تقدير واحترام لكل مَن يبصرني بعيوبي أو أخطائي أو ينبهني لغاية تنفعني..طيب مادمنا في محكمة أوفيسنا..

 

[أبوحازم]

ان كنت متأكد أنه به فيروس (ملغّم ) سوف ارفعه من جديد وعفوا أن اخطأت او قلت شئ خطأ مني وشكرا جزيلا جدا 

البحث عن الرقم او الرصيد1.rar

تم تعديل أغسطس 9, 2015 بواسطه أبوحازم

[ياسر خليل أبو البراء]

الأخ الكريم أبو حازم

جرب الكود التالي في حدث ورقة العمل

Private Sub TextBox1_Change()
    Dim LastRow As Long, RngFiltered As Range, I As Long, Arr
    Static Rng As Range
    Application.ScreenUpdating = False
      ActiveSheet.AutoFilterMode = False
      If Not Rng Is Nothing Then Rng.EntireRow.Hidden = False
      LastRow = Range("B1000").End(xlUp).Row
      Set Rng = Range("B8:B" & LastRow)
      Arr = Rng.Value
      If Len(TextBox1.Text) > 0 Then
         For I = 1 To UBound(Arr, 1)
             If IsNumeric(Arr(I, 1)) Then Arr(I, 1) = "'" & Arr(I, 1)
         Next I
         
         Rng.Value = Arr
         Rng.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*"
      End If
      
      Set RngFiltered = Rng.SpecialCells(xlCellTypeVisible)
      
      ActiveSheet.AutoFilterMode = False
      
      For I = 1 To UBound(Arr, 1)
          If Left(Arr(I, 1), 1) = "'" Then
             Arr(I, 1) = Mid(Arr(I, 1), 2)
           End If
      Next I
      Rng.Value = Arr
      Rng.EntireRow.Hidden = True
      RngFiltered.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

تقبل تحياتي

البحث عن الرقم او الرصيد.rar

[أبوحازم]

الأخ الكريم أبو حازم

جرب الكود التالي في حدث ورقة العمل

Private Sub TextBox1_Change()
    Dim LastRow As Long, RngFiltered As Range, I As Long, Arr
    Static Rng As Range
    Application.ScreenUpdating = False
      ActiveSheet.AutoFilterMode = False
      If Not Rng Is Nothing Then Rng.EntireRow.Hidden = False
      LastRow = Range("B1000").End(xlUp).Row
      Set Rng = Range("B8:B" & LastRow)
      Arr = Rng.Value
      If Len(TextBox1.Text) > 0 Then
         For I = 1 To UBound(Arr, 1)
             If IsNumeric(Arr(I, 1)) Then Arr(I, 1) = "'" & Arr(I, 1)
         Next I
         
         Rng.Value = Arr
         Rng.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*"
      End If
      
      Set RngFiltered = Rng.SpecialCells(xlCellTypeVisible)
      
      ActiveSheet.AutoFilterMode = False
      
      For I = 1 To UBound(Arr, 1)
          If Left(Arr(I, 1), 1) = "'" Then
             Arr(I, 1) = Mid(Arr(I, 1), 2)
           End If
      Next I
      Rng.Value = Arr
      Rng.EntireRow.Hidden = True
      RngFiltered.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

تقبل تحياتي

البحث عن الرقم او الرصيد.rar

شكرا جزيلا جد يا مشرف