اذهب الي المحتوي
أوفيسنا

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


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

السلام عليكم

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

بحيث يتم اختيار عدد مثلا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

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

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

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

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

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

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

شكرا اخي ياسر

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

تم تعديل بواسطه ابوصلاح
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

 

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

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

 

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

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

استاذ ياسر

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

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

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

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

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

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

 

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

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

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

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

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

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

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

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

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

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

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

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

تم تعديل بواسطه ابوصلاح
رابط هذا التعليق
شارك

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

تسلم الايادى

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

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