إدخال ذاتي

[havrest]

ارجو المساعدة إذا كان عندي عمودين الأول كود  و الثاني الاسم كيف اقدر عندما اكتب كود ذاتيا يضيف اسم و العكس اي عندما ادخل اسم يظيف كود ذاتيا اي كيفية عمل حركتي في نفس وقت  

مطلوب.xlsx

[إيهاب عبد الحميد]

وعليكم السلام ورحمة الله وبركاته
حسب ما فهمت من الملف المرفق أرجو ان تكون هذه الطريقة تفيدك

مطلوب.xlsx

[إيهاب عبد الحميد]

أتمنى أن يكون هذا ما فهته من حضرتك

 

مطلوب 2.xlsx

[عبدالفتاح في بي اكسيل]

تفضل اخي  هذا  بالكود افضل من المعادلات  لعله المطلوب

Sub FindName()
    
    Dim v As String, rngFound As Range
    
    v = Application.InputBox(Prompt:="Enter Name or Number Code", Type:=2)
    If v = "False" Then Exit Sub 'user canceled
    
    Set rngFound = Range("A:B").Find(v, , xlValues, xlWhole, 1, 1, 0)
    
    If Not rngFound Is Nothing Then
        Range("C2").Value = rngFound.EntireRow.Range("B1").Value
        Range("D2").Value = rngFound.EntireRow.Range("A1").Value
    Else
        Range("C2:D2").ClearContents
        MsgBox v, vbExclamation, "No Match Found"
    End If
    
End Sub

 

مطلوب.xls

[أحمد يوسف]

أستاذ havrest

اظن ان هذه هى الإجابة المطلوبة , نتمنى ان يتم الضغط على الإعجاب وأعتقد ان هذا اقل ما يقدم  لصاحب الفضل بعد ربنا فى حل مشكلتك ؟!!! 💙