اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

جلب بيانات من عمود الى عمود اخر


الردود الموصى بها

السلام عليكم

هذه اول مشاركة لي منذ سنوات , حيث انني كنت عضواً هنا واستفدت كثيراً من الاساتذة الذين اتذكر منهم الاستاذ محمد طاهر والاستاذ محمد حجازي

ولقد نسيت اسم المستخدم وكلمة المرور واضطررت اليوم الى التسجيل من جديد فأرجو ان تقبلوني اخاً بينكم

اخوتي الكرام

في المرفق ملف اكسل فيه ورقة عمل sheet1 فيها جدول باللون الاحمر يمثل اسامي موظفي المبيعات على سبيل المثال والعمود s يمثل رقم الموظف الذي لا يتكرر

تستطيع ان تشبهه بالمفتاح الاساسي في الاكسس

في الورقة الثانية sheet2 جدول باللون الازرق فيه اسماء الموظفين واين قاموا ببيع منتجاتهم

وستلاحظون انهم مرة يبيعون في بغداد ومرة في اربيل

المطلوب مني الان ان اضع عمودا اضافياً في جدول الورقة الاولى يظهر لي كلمة بغداد اذا كان الموظف قد باع في بغداد ولو لمرة واحدة

ارجو المساعدة ان أمكن

وشكراً لكم مقدماً وبارك الله فيكم

omran.zip

رابط هذا التعليق
شارك

السلام عليكم

جرب هذا الكود


Sub Ali()

Set S = Sheets(1): Set Sh = Sheets(2)

Application.ScreenUpdating = False

For ii = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To S.Cells(Rows.Count, 2).End(xlUp).Row

If Not IsEmpty(S.Cells(i, 2)) And _

Not IsEmpty(Sh.Cells(ii, 1)) Then

If S.Cells(i, 2) = Sh.Cells(ii, 1) And Sh.Cells(ii, 2) = "baghdad" Then

S.Cells(i, 3) = Sh.Cells(ii, 2)

End If

End If

Next

Next

End Sub

تم تعديل بواسطه عباد
  • Like 1
رابط هذا التعليق
شارك

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

اخي الكريم

ادخل اسم البلدة المطلوبة في في اول خلية وهي c1

تظهر لك كم مرة تكرر كل اسم مع هذه البلدة

omran.rar

رابط هذا التعليق
شارك

السلام عليكم

اشكرك اخي الكريم احمد كما واشكر اخي عباد

بالنسبة لاخي عباد بكل اسف رغم خبرتي الغير قليلة في برنامج الاكسل إلا انني لا اتعامل مع الكودات ولا اعرف التعامل معها ولكني اشكرك جداً على تعبك معي

اخي احمد

يبدو انني لم اوضح مطلبي بشكل واضح

اريد ان يظهر لي في العمود c من الجدول الاول اسم بغداد او حرف b اذا كان الشخص قد باع في بغداد حتى لو مرة واحدة

بمعنى انه ممكن ان يكون قد باع في بغداد مرة واحدة وباع في اربيل 10 مرات لكنه سيظهر لي بغداد لانه باع مرة واحدة

اما الذي لم يبع في بغداد فسيظهر امامه فراغ blank

اشكركم ثانية وارجو المساعدة

رابط هذا التعليق
شارك

السلام عليكم

جرب هذا الكود


Sub Ali()

Set S = Sheets(1): Set Sh = Sheets(2)

Application.ScreenUpdating = False

For ii = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To S.Cells(Rows.Count, 2).End(xlUp).Row

If Not IsEmpty(S.Cells(i, 2)) And _

Not IsEmpty(Sh.Cells(ii, 1)) Then

If S.Cells(i, 2) = Sh.Cells(ii, 1) And Sh.Cells(ii, 2) = "baghdad" Then

S.Cells(i, 3) = Sh.Cells(ii, 2)

End If

End If

Next

Next

End Sub

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

احي ابو نصار

ارجو المعذرة لم اشاهد مشاركتك الا في هذه اللحظ

جزاك الله كل خير على ابداعك

بارك الله فيك

رابط هذا التعليق
شارك

السلام عليكم

اشكرك اخي الكريم احمد كما واشكر اخي عباد

بالنسبة لاخي عباد بكل اسف رغم خبرتي الغير قليلة في برنامج الاكسل إلا انني لا اتعامل مع الكودات ولا اعرف التعامل معها ولكني اشكرك جداً على تعبك معي

اخي احمد

يبدو انني لم اوضح مطلبي بشكل واضح

اريد ان يظهر لي في العمود c من الجدول الاول اسم بغداد او حرف b اذا كان الشخص قد باع في بغداد حتى لو مرة واحدة

بمعنى انه ممكن ان يكون قد باع في بغداد مرة واحدة وباع في اربيل 10 مرات لكنه سيظهر لي بغداد لانه باع مرة واحدة

اما الذي لم يبع في بغداد فسيظهر امامه فراغ blank

اشكركم ثانية وارجو المساعدة

هل هذا يعني انك موافق على فكرت كتابة اسم البلدة في اعلى العمود

وفي هذه الحالة التعديل سهل

وهو يتم باضافة دالة IF مع الدالة السابقة

رابط هذا التعليق
شارك

الحمد لله أنك لم ترى ردي استاذ احمد

كنا سنفقد معلومه من معادلاتك المتقنه

جزاك الله كل خير استاذ احمد زمان

تقبل تحياتي

رابط هذا التعليق
شارك

الاستاذ احمد شكراً لتعاونك معي

لكن لو تلاحظ فأن الشخص الذي اسمه علي قد باع مرة واحدة في بغداد ورغم ذلك لم تفلح المعادلة في معرفة ذلك

هل هناك مشكلة في الدالة ؟

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information