اخي المبدع علي : حقيقة مواضيع جميلة وردود اجمل
اعلم جيدا ما شرحت ولكن الذي لا افهمه هو الكود التالي (البديل ل lookup ) عن طريقvba
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo NotAvailable
Static MyCell As Boolean
If MyCell = False Then
If Target.Address = "$B$4" Then
MyCell = True
Me.Range("H4") = Application.WorksheetFunction.VLookup(Target.Value, Me.Range("M5:N204").Value, 2, 0)
Exit Sub
ElseIf Target.Address = "$H$4" Then
MyCell = True
Me.Range("B4") = Application.WorksheetFunction.VLookup(Target.Value, Me.Range("L5:M204").Value, 2, 0)
End If
Else
MyCell = False
End If
Exit Sub
NotAvailable:
If Err = 1004 Then
Range("B4,H4").Select
Selection.ClearContents
Range("H4").Select
MsgBox "الرقم المطلوب غير موجود في قائمة العملاء من فضلك تأكد من الرقم الصحيح واعد المحاولة", , "إدخال خاطئ"
Else
Resume
End If
End Sub