havrest قام بنشر فبراير 22, 2020 مشاركة قام بنشر فبراير 22, 2020 ارجو المساعدة إذا كان عندي عمودين الأول كود و الثاني الاسم كيف اقدر عندما اكتب كود ذاتيا يضيف اسم و العكس اي عندما ادخل اسم يظيف كود ذاتيا اي كيفية عمل حركتي في نفس وقت مطلوب.xlsx رابط هذا التعليق شارك More sharing options...
إيهاب عبد الحميد قام بنشر فبراير 23, 2020 مشاركة قام بنشر فبراير 23, 2020 وعليكم السلام ورحمة الله وبركاته حسب ما فهمت من الملف المرفق أرجو ان تكون هذه الطريقة تفيدك مطلوب.xlsx 1 رابط هذا التعليق شارك More sharing options...
إيهاب عبد الحميد قام بنشر فبراير 23, 2020 مشاركة قام بنشر فبراير 23, 2020 أتمنى أن يكون هذا ما فهته من حضرتك مطلوب 2.xlsx 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر فبراير 23, 2020 أفضل إجابة مشاركة قام بنشر فبراير 23, 2020 تفضل اخي هذا بالكود افضل من المعادلات لعله المطلوب 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 2 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر فبراير 23, 2020 مشاركة قام بنشر فبراير 23, 2020 أستاذ havrest اظن ان هذه هى الإجابة المطلوبة , نتمنى ان يتم الضغط على الإعجاب وأعتقد ان هذا اقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك ؟!!! 💙 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان