جروان قام بنشر يناير 5, 2012 مشاركة قام بنشر يناير 5, 2012 ارجو المساعدة في امكانية البحث الجزئي في كامل الجدول من خلال الرقم حسب المثال المرفق مع مراعاة تنسيق الارقام شكرا بحث جزئي.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 5, 2012 مشاركة قام بنشر يناير 5, 2012 السلام عليكم حط هذا الكود في حدث ورقة 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 رابط هذا التعليق شارك More sharing options...
جروان قام بنشر يناير 6, 2012 الكاتب مشاركة قام بنشر يناير 6, 2012 (معدل) لم يؤدي الكود المطلوب منة او انني لم اتمكن فهمة عند ادخال الرقم كاملا او جزئي تظهر مسج بوكس ادخال خاطى تم تعديل يناير 6, 2012 بواسطه jarwan رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.