قائمة منسدلة مطاطية

[شعبان فليفل]

طلب صغير من أصحاب الخبرة

عايز أعمل قائمة منسدلة مطاطية في " صفحة المشاريع " في الخليفة  A2

تعرض من صفحة "حسابات" عامود " اسم العميل "

وفي نفس الوقت يبحث عن العميل في صفحة المشاريع ويعرضه

 

 

المشاريع - Copy.rar

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

حرب هذا الملق

تم تغيير اسم الورقة للغة الاجنبية( Projects) لسهولة التعامل مع الكود

الكود:

Sub uniq_to_dataValidation()
If ActiveSheet.Name <> "Projects" Then Exit Sub
  Dim SL, ar, i As Integer
  Dim My_Str As String
   ar = Range("b7", Range("b" & Rows.Count).End(xlUp))
   Set SL = CreateObject("System.Collections.ArrayList")
   With SL
   For i = 1 To UBound(ar, 1)
      If Not .contains(ar(i, 1)) Then .Add ar(i, 1)
   Next i
      End With
       My_Str = SL(0)
       
     For i = 1 To SL.Count - 1
         My_Str = My_Str & "," & SL(i)
      Next
        
   With Range("a2").Validation
   .Delete: .Add xlValidateList, , , My_Str
   End With
    End Sub

الملف

 

My_Project.rar

تم تعديل مارس 4, 2017 بواسطه سليم حاصبيا

[شعبان فليفل]

أشكرك علي المجهود الرائع 

لكن

في مشكلة 

مش بيبحث في القائمة بالحروف 

ومش بينقل أي حاجه تتضاف في أول صفحة  لتاني صفحة

تم تعديل مارس 4, 2017 بواسطه شعبان فليفل

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

تم التعديل على الماكرو

 

My_Project salim.rar

[شعبان فليفل]

جزاكم الله خيراً كده تمام 

جميل جداً جداً جداً 

كده تمام بيتم إضافة العملاء إلي القائمة المنسدلة 

وفي نفس الوقت بيفتح ليه صفحة 

عايز تعديل بسيط جداً 

1) عايزه لما يضيف صفحة جديدة باسم العميل 

ياخد نسخه من صفحة محمد في كل صفحة عميل جديد

2)  عايزه يبحث في القائمة المنسدلة بمجرد مابدأ أكتب فيها

3) عايزه ينسخ أول أربع أعمده في أول صفحة إلي تاني صفحة

 

آسف أخي الكريم علي الإطالة 

إن شاء الله ربنا يجعله في ميزان حسناتك

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

تم التعديل مرة اخرى

فقط عليك كتابة المعادلات اللازمة(قمت ببعضها بواسة الكود)

 

My_Project salim2.rar

[شعبان فليفل]

شكراً ليك علي مجهودك 

بش الملف مش شغال معاي 

بضيف عملاء جدد في الصفحة الأولي

ومش بيتم إضافتهم في الصفحة التانية 

ولا بيفتح صفحة جديدة لهم باسمائهم وفيها نسخة من الصفحة الثالثة 

 

أتعبناكم كثيراً أستاذي الفاضل 

لكن الملف مهم جداً جداً بالنسبة لي

سلمت يداك 

[شعبان فليفل]

4 hours ago, شعبان فليفل said:

شكراً ليك علي مجهودك 

بس الملف مش شغال معاي 

بضيف عملاء جدد في الصفحة الأولي

ومش بيتم إضافتهم في الصفحة التانية 

ولا بيفتح صفحة جديدة لهم باسمائهم وفيها نسخة من الصفحة الثالثة 

 

أتعبناكم كثيراً أستاذي الفاضل 

لكن الملف مهم جداً جداً بالنسبة لي

سلمت يداك 

لو الموضوع ده صعب 

خلينا في القائمة بس 

كما بالمثال

تم تعديل مارس 5, 2017 بواسطه شعبان فليفل

[شعبان فليفل]

17 hours ago, سليم حاصبيا said:

تم التعديل على الماكرو

 

My_Project salim.rar

دا كان شغال كويس 

بس المشكلة إن كل مره أعمل فيها 

ADD TO DATA VALIDATION LIST 

يضيف خمس صفحات بدون أسماء قبل أسماء العملاء 

ولما أجي أضيف تاني الخمس صفحات بتكون ستة 

وهكذا 

كما في الشكل التالي 

 

تم تعديل مارس 5, 2017 بواسطه شعبان فليفل

[شعبان فليفل]

معقوله شاف البوست أكتر من 100 واحد 

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

سواء كان دالة أو كود أي حاجه 

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

تم التعديل للمرة الثّالثة

My_Project salim3.rar

 

تم تعديل مارس 6, 2017 بواسطه سليم حاصبيا

[شعبان فليفل]

ألف مليون شكر يا أغلي الغوالي 
عذار لو كتبت تعليق مش مناسب 

جميل جداً جداً جداً 

لو أمكن شرح بسيط للكود 

يبقي كدا 100 فل و10

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

15 دقائق مضت, شعبان فليفل said:

ألف مليون شكر يا أغلي الغوالي 
عذار لو كتبت تعليق مش مناسب 

جميل جداً جداً جداً 

لو أمكن شرح بسيط للكود 

يبقي كدا 100 فل و10

لم استطع ان اكون اسرع من ذلك للرد و ذلك لانشغالي بالاعمال المدرسية وضيق الوقت

على فكرة لم ار الاعجاب بعد(انا اصلي بهــزر)

تم تعديل مارس 6, 2017 بواسطه سليم حاصبيا

[شعبان فليفل]

آسف جداً في مشكلة في الكود بسيط 
تحتاج إلي تعديل  ألا وهي لما باضغط علي 

add to data validation list 

بيضيف العميل الجديد ويفتح ليه صفحة وينسخ فيها البيانات

لكن

بينسخ البيانات في الصفحات اللي كانت موجودة قبل كده 

كما بالشكل

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

3 ساعات مضت, شعبان فليفل said:

آسف جداً في مشكلة في الكود بسيط 
تحتاج إلي تعديل  ألا وهي لما باضغط علي 

add to data validation list 

بيضيف العميل الجديد ويفتح ليه صفحة وينسخ فيها البيانات

لكن

بينسخ البيانات في الصفحات اللي كانت موجودة قبل كده 

كما بالشكل

لا اعلم عن اي بيانات تتكلم

انت تريد ان تنسخ البيانات من ورقة محمد و هكذا كان

الخلايا A2 B2 C2 D2 من ككل صفحة تتغير جسب العميل

اما الخلايا الباقية لا اعرف اين مصدرها

انظر الى التعديل التالي للملف

My_Project salim4.rar

[شعبان فليفل]

أزعجتك معاي 
أنا اقصد انا عملت تعديلات علي الشيت بتاع العميل أحمد

لما ضفت عميل جديد 

لقيت صفحة العميل أحمد مفيش فيها أي تعديل من اللي عملته 

 

[شعبان فليفل]

دا فيديو يوضح ما اقصد

https://www.dropbox.com/s/kitrbmn1qpk0du0/أ. سليم.rar?dl=0

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

تم التعدبل مجدداً

لا يتغير شيئ في البيانات المسجلة مسبقاً

 

My_Project salim5.rar

[شعبان فليفل]

تسلم ايديك يا أستاذي الفاضل 

أنا مش عارف أشكرك ازاي 

لو أمكن شرح للكود في أي وقت 

تكون حضرتك فاضي 

جزاكم الله خيراً 

وجعله في ميزان حسناتك

[شعبان فليفل]

السلام عليكم 

أستاذ سليم 
طلب صغير  طمعاً في كرم حضرتك 

واجهتي مشكلة 

V lookup فبحاجه إلي تحويل دالة الـ 

الموجودة في الخلايا 

a2, c2, d2, k2, l2, m2, k4, l4, m4

إلي أكواد ترحيل 

Shaaban.rar

تم تعديل مارس 8, 2017 بواسطه شعبان فليفل

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

7 ساعات مضت, شعبان فليفل said:

السلام عليكم 

أستاذ سليم 
طلب صغير  طمعاً في كرم حضرتك 

واجهتي مشكلة 

V lookup فبحاجه إلي تحويل دالة الـ 

الموجودة في الخلايا 

a2, c2, d2, k2, l2, m2, k4, l4, m4

إلي أكواد ترحيل 

Shaaban.rar

vlookup لا تعمل غي مثل عذه الحالة

يجب استعمال هذه المعادلة في الخلية a2 من الصفحة simple

=INDEX(Accounts!$A$2:$A$250,MATCH(Sample!B2,Accounts!$C$2:$C$250,0))

وكذلك الامر بالنسبة لبقية الخلايا

[شعبان فليفل]

سلمت يداك 

جعل الله هذا العلم شافعاً لك يوم القيامة

 

لكن الملف عدد صفحاته أكتر من 150صفحة 

فأصبح الملف يعمل بصعوبة 

فما الحل 

هل كثرة المعادلات هي المشكلة

 

[شعبان فليفل]

أتعبانكم معنا أ. سليم 

 

[شعبان فليفل]

أستاذنا الفاضل 

سليم حاصيبا

الملف أظهر مشكلة في القائمة المنسدلة 

كيف اقدم بإلغائها 

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

 

shaaban 1111111111.rar

[شريف ( أبو عبدالرحمن )]

عملت مشاركة لموضوع في المنتدي الرجاء مساعدتي ضروري 

فصل الكلام عن الارقام