التحقق من وجود قيمة فى قائمة تحقق الشرط يفعل شئ و العكس

[علاء رسلان]

السلام عليكم و أسعد الله أوقاتكم

برغم من ان هوايتى الاساسية القراءة و الكتابة الا اننى لا أجد الكلمات التى تسعفنى لأخبركم بما أريد بلغة مفهومة تستوعبون منها مطلبى حتى العنوان لا اجد له صياغة مناسبة ربما كان المرفق فيه ما يمكنكم ادراك ما اريد .. الحقيقة اننى أعتصرت عقلى اعتصارا لكى أصل الى معادلة لتحقيق ما اريد الا اننى لم أجد و بحثت عن اى شئ مماثل فى الانترنت لم استطيع لعدم مقدرتى على صياغة سؤالى بطريقة مفهومة و بلغة عربية سليمة .. ما اريده هو معادلة تبحث عن قيمة من عمود فى عمود آخر فإن وجدت يتم فعل شئ ما و ان لم توجد يتم فعل شئ آخر و المرفق ربما يرشدكم لما اريد و جزاكم الله خيرا .

 

 

find.rar

[علي الشيخ]

السلام عليكم أخي 

أنا عملتهالك بطريقة بدائية شوية 

حطيت قصاد كل أرقام السيارات في العمود G القيمة 0 

واستخدمت دالتي Vlookup و IFERROR

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

لو موجودة يجيب القيمة اللي قصادها وهي 0 اللي اضفناه في الخطوة السابقة 

لو مش موجودة هيكتب القيمة من العمود B 

والدالة المستخدمة كالتلي

=IFERROR(VLOOKUP(A3,$G$3:$H$8,2,FALSE),B3)

والمرفق يوضح أكثر ان شاء الله لحد ما يدخل الإخوة ويقدموا حلول أفضل بإذن الله

find.rar

[سليم حاصبيا]

 لعله لمطلوب

find salim.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي علي الشيخ

بعد إذنك هذه محاولة بدون أعمدة مساعدة

جرب المعادلة التالية في الخلية C2

=IF(ISNA(MATCH(A2,$G$3:$G$8,0)),B2,0)

[علاء رسلان]

السلام عليكم أخي 

أنا عملتهالك بطريقة بدائية شوية 

حطيت قصاد كل أرقام السيارات في العمود G القيمة 0 

واستخدمت دالتي Vlookup و IFERROR

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

لو موجودة يجيب القيمة اللي قصادها وهي 0 اللي اضفناه في الخطوة السابقة 

لو مش موجودة هيكتب القيمة من العمود B 

والدالة المستخدمة كالتلي

=IFERROR(VLOOKUP(A3,$G$3:$H$8,2,FALSE),B3)

والمرفق يوضح أكثر ان شاء الله لحد ما يدخل الإخوة ويقدموا حلول أفضل بإذن الله

 

و عليكم السلام و رحمة الله و بركاته

الفكرة أخى الكريم فى حد ذاتها رائعة و راق لى الحل كثيرا و ان بدأ لك بدائيا .. لم يتبادر الى ذهنى .. لقد أضاف حلك لى طرقا لمجال واسع من الأفكار

 

 لعله لمطلوب

 بل هو عين المطلوب يا أستاذنا .. ما شاء الله

 

 

 

بارك الله فيك أخي الغالي علي الشيخ

بعد إذنك هذه محاولة بدون أعمدة مساعدة

جرب المعادلة التالية في الخلية C2

=IF(ISNA(MATCH(A2,$G$3:$G$8,0)),B2,0)

 

 

 

 

الله.. الله على الجمال و الحلاوة و أستاذنا الفاضل ياسر أبو خليل

 

زادكم الله علما نافعا ... دمتم بخير جميعا و أعزكم الله

تم تعديل مايو 26, 2015 بواسطه علاء رسلان

[ياسر خليل أبو البراء]

أخي الحبيب علاء رسلان

توفيراً لوقتكم قمت بعمل مرفق جمعت فيه الثلاثة حلول التي قدمت ..عله يكون المطلوب ..

كما تم إضافة حل آخر بالكود ..

Sub FindCar()
    Dim Cell As Range
    For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
        If Not Range("H3:H8").Find(Cell.Value, , , xlWhole, , False) Is Nothing Then
            Cell.Offset(, 5) = 0
        Else
            Cell.Offset(, 5) = Cell.Offset(, 2)
        End If
    Next Cell
End Sub

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

Find To Check Car Existence.rar

[علاء رسلان]

أخي الحبيب علاء رسلان

توفيراً لوقتكم قمت بعمل مرفق جمعت فيه الثلاثة حلول التي قدمت ..عله يكون المطلوب ..

لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

أخى العزيز ياسر خليل أبو البراء .. بارك الله لك و عليك ... تم بالفعل تحديد أفضل اجابة و كلها راقت لى للغاية و قمة الابداع

[علي الشيخ]

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

الله يجعله في ميزان حسناتك ويزيدك من علمه وشكرا جزيلا للأستاذ سليم ما شاء الله ردوده جدا ممتازه الله يوفقكم جميعا

[ياسر خليل أبو البراء]

الأخوة الكرام تم تحديث المرفق في المشاركة رقم 6 حيث تمت إضافة حل بالكود

الحمد لله أن تم المطلوب على خير ..

أخي علاء يرجى تحديد أفضل إجابة ألا وهي رقم 6 (مش عشان المشاركة تخصني والله ) ولكن لأنها جمعت الحلول المقدمة بالموضوع كله في ملف مرفق واحد ليستفيد منه الجميع

مشكور أخي علي الشيخ على كلماتك الرقيقة ، وبارك الله فيك

والشكر موصول دلوقتي وعلطول للفارس المغوار سليم حاصبيا على ما يقدمه من إبداع لا ينقطع

والشكر موصول أيضاً للأخ الحبيب علاء رسلان على أن طرح موضوع جمع فيه الأحبة معاً

جمعنا الله في الفردوس الأعلى من الجنة

تقبلوا تحياتي