جلب الفصول حسب العدد

[ابوصلاح]

السلام عليكم

كيف يمكن جلب الفصل حسب عددمعين

بحيث يتم اختيار عدد مثلا3 يجلب ثلاث فصول

وشكرا

اختيار عدد الفصول المطلوبة.zip

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

جرب الكود التالي أخي الحبيب

Sub DoIt()
    Application.ScreenUpdating = False
        Range("C6:H12").ClearContents
        Range("K5").Resize(Range("C5").Value, 1).Copy Range("C6")
        Range("M5").Resize(Range("D5").Value, 1).Copy Range("D6")
        Range("O5").Resize(Range("E5").Value, 1).Copy Range("E6")
        Range("Q5").Resize(Range("F5").Value, 1).Copy Range("F6")
        Range("S5").Resize(Range("G5").Value, 1).Copy Range("G6")
        Range("U5").Resize(Range("H5").Value, 1).Copy Range("H6")
    Application.ScreenUpdating = True
End Sub

[أبو محمد عباس]

الاستاذ والاخ الحبيب ياسر خليل جزاكم الله خيرا

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

وفقكم الله وحفظكم

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

الاستاذ والاخ الحبيب ياسر خليل جزاكم الله خيرا

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

وفقكم الله وحفظكم

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

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

وهذا حل آخر بالمعادلات

جلب الفصول.rar

[ابوصلاح]

شكرا اخي ياسر

جعلنا واياك من اهل الجنة

تم تعديل نوفمبر 7, 2014 بواسطه ابوصلاح

[ابوصلاح]

استاذ ياسر حلول رائعة بارك الله فيك

لو يسمح وقتك بعد اذنك

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

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

ممكن ترفق ملف بشكل القائمة المنسدلة المطلوبة لأني بصراحة تهت بين كلماتك (قائمة منسدلة واحدة لكل الفصول) و(تدرجل لي الصف كل القائمة) حاسس إن الاتنين واحد

عموما بالمرفق يتضح المطلوب .. ويا ريت دائما عندما تريد أن تطلب أوضح شيء أن ترفق النتائج المتوقعة

[ابوصلاح]

 

ممكن ترفق ملف بشكل القائمة المنسدلة المطلوبة لأني بصراحة تهت بين كلماتك (قائمة منسدلة واحدة لكل الفصول) و(تدرجل لي الصف كل القائمة) حاسس إن الاتنين واحد

عموما بالمرفق يتضح المطلوب .. ويا ريت دائما عندما تريد أن تطلب أوضح شيء أن ترفق النتائج المتوقعة

 

نفس الملف المرفق

[ابوصلاح]

استاذ ياسر

القائمة النسدلة تاخد من اكثر من عمود

التوضيح بالمرفق

القائمة المنسدلة.zip

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

تفضل يا أبو صلاح

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

 

القائمة المنسدلة.rar

[ابوصلاح]

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

واسف جدا استاذ ياسر

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

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

واسف جدا استاذ ياسر

الأروع هي مشاركاتكم أبو صلاح

مفيش داعي للأسف .. أنا بس أحب يكون فيه نظام عشان لما حد يبحث عن موضوع يلاقي اللي هو عايزه ..

الحمد لله الذي بنعمته تتم الصالحات

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

وهذا حل آخر مشابه للسابق لكن بدون الاضطرار إلى استبدال / بعلامة *

القائمة المنسدلة.rar

[ابوصلاح]

ما رأيك انا غيرت في الكود لكي يظهر الفصول بالترتيب
Set r = Range("I6:i12,j6:j12,k6:k12,l6:l12,m6:m12,n6:n12")

تم تعديل نوفمبر 8, 2014 بواسطه ابوصلاح

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

جميل يا أبو صلاح الله ينور عليك

تسلم الأيادي

[ابوصلاح]

هذا ما تعلمناه على ايديكم

تسلم الايادى