بحث بجزء من البيانات

[جروان]

ارجو المساعدة في امكانية البحث الجزئي في كامل الجدول من خلال الرقم حسب المثال المرفق مع مراعاة تنسيق الارقام

شكرا

بحث جزئي.rar

[الـعيدروس]

السلام عليكم

حط هذا الكود في حدث ورقة Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 5 Or Target.Row < 2 Then Exit Sub

If Not Intersect(Target, Range("E3:E5000")) Is Nothing Then

Dim R_ALI As Range

Set R_ALI = Range("B3:B5000")

With R_ALI

Set C = .Find(Target.Value, , LookIn:=xlValues, lookat:=xlWhole)

If Not C Is Nothing Then

Target.Offset(0, -1).Value = C.Offset(0, -1).Value

Else

MsgBox "إدخال خاطئ", vbInformation, "تنبية !!!"

Exit Sub

End If

End With

End If

End Sub

[جروان]

لم يؤدي الكود المطلوب منة او انني لم اتمكن فهمة عند ادخال الرقم كاملا او جزئي تظهر مسج بوكس ادخال خاطى

تم تعديل يناير 6, 2012 بواسطه jarwan