محمد لؤي قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 السلام عليكم سؤال اعزكم الله عند كتابة اسم الجهة المستفيدة تظهر المسافة المبينة في شيت المسافة (وجدول الموجود في شيت المسافة يتغير وفي ازدياد) اكرمكم الله المسافة.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 وعليكم السلام أخي الكريم محمد جرب الكود التالي في حدث ورقة العمل المسماة "الجدول" كليك يمين على اسم ورقة العمل "الجدول" ثم اختر View Code والصق الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 2 And Target.Column = 3 Then Application.EnableEvents = False Dim iRow iRow = Application.Match(Target.Value, Sheet1.Columns(1), 0) If IsNumeric(iRow) Then Target.Offset(, 1).Value = Sheet1.Cells(iRow, "B").Value End If Application.EnableEvents = True End If End Sub تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
محمد لؤي قام بنشر أغسطس 17, 2016 الكاتب مشاركة قام بنشر أغسطس 17, 2016 السلام عليكم استاذ ياسر ظهرت الرسالة التالية رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 ضع السطر التالي قبل سطر الخطأ On Error Resume Next 1 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 مرحبا بعد إذن أخي ياسر يمكن ان نستعمل الدالة التالية في الخلية D2 ونسحبها للأسفل =IFERROR(VLOOKUP(C2;المسافة!$A$1:$B$500;2;0);"") 2 رابط هذا التعليق شارك More sharing options...
محمد لؤي قام بنشر أغسطس 17, 2016 الكاتب مشاركة قام بنشر أغسطس 17, 2016 السلام عليكم جزيت خيرا على الاجابة وسرعة الرد استاذ ياسر وضعت الكود ولكن لم احصل على نتيجة ممكن الاطلاع على الملف المرفق ادناه وتشخيص المشكلة المسافة-حل استاذ ياسر.rar رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 بعد اذن الاخوة تفضل هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then On Error Resume Next Dim myrg As Range Set myrg = ورقة1.Range("A1:B100") Target.Offset(, 1).Value = "" Target.Offset(, 1).Value = Application.WorksheetFunction.VLookup(Target.Text, myrg, 2, 0) End If End Sub اما بخصوص كود اخي الغالي ابو البراء قم بتعديل من Sheet1 الى ورقة 1 داخل الكود حسب الموجود لديك 3 رابط هذا التعليق شارك More sharing options...
محمد لؤي قام بنشر أغسطس 17, 2016 الكاتب مشاركة قام بنشر أغسطس 17, 2016 مشكور استاذ ابو حنين ممكن كود بدل المعادلة رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 المعادلة ترجمها أخي ياسر العربي في مشاركته 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 17, 2016 مشاركة قام بنشر أغسطس 17, 2016 أعتذر عن الخطأ الوارد بخصوص Sheet1 بدلاً من ورقة1 حيث أنني أعمل على ملف عندي ومسميات أوراق العمل باللغة الإنجليزية .. وأنا أفضل استخدام المسميات الإنجليزية في أسماء أوراق العمل البرمجية حتى لا يحدث لبس في الأكواد .. ربما تعودت على ذلك بخصوص الكود يعمل بشكل جيد لدي ولا أدري ما السبب في أنه لا يعمل لديك عموماً قدمت لك حلول أخرى اختر منها ما يناسبك وطبقه على ملفك .. 2 رابط هذا التعليق شارك More sharing options...
محمد لؤي قام بنشر أغسطس 17, 2016 الكاتب مشاركة قام بنشر أغسطس 17, 2016 جزيتم خيرا كود استاذ العربي - يعمل 100% رابط هذا التعليق شارك 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.