المساعدة فى اخفاء صفوف

[على نور]

السلام عليكم  ورحمة الله وبركاته     ابحث عن كود عند الضغط عليه يظهر مثلا الصفوف  من العمود 1  الى العمود 300   واخفاء باقى الصفوف   و  زر اخر عند الضغط عليه يظهر الصفوف  من 300  الى الصف 600  مع اخفاء باقى الصفوف التى اعلاه والتى اسفله واظهار هذه الصفوف فقط   وزر اخر عند الضغط عليه  يخفى الصفوف من 1  الى 600   واظهار الصفو ف من 601   الى 1000 التوضيح فى المرفق ويا رايت يكون كود بسيط  وجميل زيكم يسهل التعديل عليه

الاخفاء.rar

[أم عبد الله]

الأستاذ / علي نور

 

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

 

إليك الملف لعله المطلوب

الاخفاء.rar

[عبدالله المجرب]

السلام عليكم 

جرب المرفق 

 

الاخفاء.rar

[على نور]

السلام عليكم ورحمة الله وبركاته عمل اكثر من رائع ولكن هل يمكن عمل هذه  االازرار   فى شيت 2   ويتم التنفيذ فى شيت 1  بحث يكون شيت 2 هو الاصفحة الرئيسيه  بالاضافة الى اخى الفاضل عبدالله المجرب  هل يمكن عمل نفس الكود بازرا مثل التى قامت بعمله اختنا الفاضله ام عبدالله  وهناك خطا فى كود ام عبدالله حيث عندما يستدعى البيانات فانه تكون اكثر من اللازم 

[أبو حنــــين]

السلام عليكم

بعد اذن اخي عبد الله و الاخت أم عبد الله

هذه طريقة اخري

 

الاخفاء.rar

[على نور]

لسلام عليكم ورحمة الله وبركاته عمل اكثر من رائع شكرا اخى ابو جنين  ولكن هل يمكن عمل هذه  االازرار   فى شيت 2   ويتم التنفيذ فى شيت 1  بحث يكون شيت 2 هو الاصفحة الرئيسيه    انا لا اريد قائمة منسدلة ولكن اريد صفحة بها ازارر تنفذ المطلوب فعندما اضغط على الزر ينفذ المطلوب فى شيت واحد ويظهر عدد الصفوف المطلوبه ويخفى الباقى  وجزاكم الله خير ارجو المساعدة وانظرو الملف المرفق

الاخفاء.rar

[أبو حنــــين]

السلام عليكم

جرب المرفق بعد التعديل

الاخفاء_3.rar

تم تعديل أكتوبر 18, 2013 بواسطه أبو حنين

[حمادة عمر]

الاخ الكريم

بعد اذن الاساتذة  الكبار  ... جزاهم الله خيرا

وعلي حسب فهمي للطلب

تفضل اخي تعديل بسيط علي اكواد الاستاذ / ابو حنين ... لتلبية طلبك بوجود الازرار

مع العلم بان جميع حلول الاساتذة تؤدي للغرض المطلوب

ولكن حسب طلبك

شاهد المرفق التالي ... ارجو ان يكون به طلبك

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

 

 

الاخفاء-sama.rar

[حمادة عمر]

عذرا كل العذر للقدير / ابو حنين

 

فلم اري ردك الا بعد ارسال الرد حيث كنت ارسل الملف ولكن النت بطئ عندي جدا

 

ولكن ايضا ما هي الا اكوادك ... وبالتالي فالحل جاء ايضا من عند / ابو حنين

 

اكرمك الله واعزك دائما وجعلك في عون الجميع ... وجعلك دائما سباق للخير

 

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

[أبو حنــــين]

جزاك الله خيرا اخي أبو سما

فكلنا نتعاون على عمل الخير و كلنا يكمل الآخر

حفظكم الله و رعاكم

[حمادة عمر]

استاذي الحبيب / أبو حنين

بارك الله فيك

ولكن لي عتاب بسيط علي حضرتك

 

أين صورة الجميلة الامورة ( حنين ) فوالله لها وقع في قلبي عندما اراها لن تصدقه

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

 

اكرمك الله فيها ... ووفقك الله الي حسن تربيتها .... واعطاها الله الزوج الصالح الذي يصونها

 

تقبل خالص تحياتي

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

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

الاساتذة الكرام والاخوة الاعزاء جزاكم الله خيرا حلول اكثر من رائعة

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

واحفظهم وذريتهم جميعا وادم المحبة والاخوة والاحترام المتبادل بينهم وبين الاخوة الاعضاء

اقف اجلالا واكراما لهذا الخلق الرفيع  وهذا التعامل الرائع بين الاخوة الكرام

احييكم وهذه هي خلق الاسلام والمسلمين جعلكم الله من المؤمنين وغفر لكم جميعا

 تقبلوا فائق احترامي وتقديري ودمتم برعاية الله وحفظه

[حمادة عمر]

السلام عليكم

الاخ الحبيب / عباس السماوي

بارك الله فيك

وتقبل الله منا ومنكم ومن الجميع

وآدام الله الخير والمودة بين الجميع

تقبل خالص تحياتي

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

[عبدالله باقشير]

السلام عليكم

الشكر واصل للجمع المبارك...جزاكم الله خيرا

 

لاثراء الموضوع ولزيادة الحلول

Sub Adr1()
    kh1_Hidden 2
End Sub
Sub Adr2()
    kh1_Hidden 302
End Sub
Sub Adr3()
    kh1_Hidden 602
End Sub
Sub Adr4()
    kh1_Hidden 902
End Sub

Sub kh1_Hidden(Adr)
With Sheet1
    .Rows(2 & ":" & .Rows.Count).Hidden = True
    .Rows(Adr).Resize(300).Hidden = False
    .Activate
    .Cells(Adr, "A").Select
End With
End Sub

المرفق 2003

الاخفاء-kh.rar

 

[أبو حنــــين]

السلام عليكم

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

كود في منتهى الجمال و الدقة

حفظكم الله و رعاكم

[عبدالله باقشير]

السلام عليكم

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

كود في منتهى الجمال و الدقة

حفظكم الله و رعاكم

 

وعليكم السلام

اسعدني مروركم جزاكم الله خيرا

تقبلوا تحياتي وشكري