checles قام بنشر يوليو 4, 2018 مشاركة قام بنشر يوليو 4, 2018 السلام عليكم محتاج تعديل حيث يقبل ارقام وحرف وليس ارقام فقط Private Sub id_Change() x = WorksheetFunction.CountIf(Sheet1.Range("a:a"), Val(Me.id.Value)) Set ws = Application.WorksheetFunction With Me If .id.Value <> "" And x <> 0 Then .nam = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 2, 0) .adrss = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 3, 0) .phone = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 4, 0) .acc = ws.VLookup(CLng(Me.id.Value), Sheet1.Range("lookup"), 5, 0) Else .nam = "" .adrss = "" .phone = "" .acc = "" End If End With End Sub رابط هذا التعليق شارك 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.