حمادة عمر

اظن ان المنتدي قد اكتسب عضوا مميزا ان شاء الله في تقدم مستمر جزاك الله خيرا اخي الكريم / علي

كل عام وانتم بخير جزاك الله خيرا

رووعة جزاك الله خيرا

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

كل عام وانتم بخير تقبل الله منا ومنكم صالح الاعمال وجعلنا من عتاقئه من النار في هذا الشهر الكريم رمضان كريم

رمضـــان كـــريـــم

وشاهد هذا الملف ايضا بفكرة مماثلة ولكن مختلفة بعض الشئ ... ارجو ان تعجبك New Microsoft Office Excel Worksheet.rar

الاخ الكريم / أبوحازم شاهد المرفق التالي ... ارجو ان يفي بطلبك sama_find.rar

السلام عليكم و رحمة الله اولا كل التحية والتقدير للقدير / يحيي حسين والمنتدي كله نور استاذنا الكريم واضح ان خيرات رمضان بدأت تهل علينا تقبل خالص تحياتي وتقديري وشكري جزاك الله خيرا

رمضـــان كـــريـــم

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

جزاكم الله خيرا رمضـــان كـــريـــم

رمضـــان كـــريـــم

شاهد المرفق التالي زر اظهار شاشة مستوي الامان.rar

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / محمود عبدالعزيز بارك الله فيك الملف الذي قمت بارفاقة لا يعمل لدي ولكني استعنت بملفك في الموضوع السابق وتم تطبيق كود الاستاذ / عباد عليه في صفحة المبيعات حيث يقوم باخفاء كل الصفوف الفارغة في الشيت بمجرد فتح الشيت وتنشيطه اما بالنسبة للكود المرفق منكم في المشاركة الاولي سيكون الكود بالشكل التالي .... وتم تطبيقه في الملف المرفق علي صفحة البنك كمثال ليعمل الكود حتي الصف 1500 ويمكنك اخي الكريم زيادة المدي في الكود كما تريد كما هو في الكود التالي Private Sub Worksheet_Activate() Application.ScreenUpdating = False Dim MyRng As Range Dim Col As Range Range("b3:b1500").EntireRow.Hidden = False For Each Col In Range("b3:b1500") If CStr(Col) = "" Or Col.Value = 0 Then If MyRng Is Nothing Then Set MyRng = Col Else _ Set MyRng = Union(MyRng, Col) End If Next If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True Application.ScreenUpdating = True End Sub وذلك يتم بالتغيير في السطر Range("b3:b1500").EntireRow.Hidden = False وكذلك السطر For Each Col In Range("b3:b1500") ويتم تغيير الرقم 1500 بدلا من الرقم 16 في الكود الاول الي اي مدي او اي صف تريده مثلا 10000 ليعمل معك بالشكل المطلوب ارجو ان يفي هذا بطلبك جزاك الله خيرا طلب اضافة دالة++++.rar

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

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / قنديل الصياد بارك الله فيك اختيارات موفقة واكواد جميلة جزاك الله خيرا

رمضـــان كـــريـــم

وحشتنا ايها الاستاذ القدير احمد حمور-ابوعبدالله

رمضـــان كـــريـــم

بارك الله فيك وجزاك الله خيرا اخي الحبيب / الشهابي كل عام وانتم بخير ... لا تحرمنا من مشاركتك الغالية

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / احمد مجدى بارك الله فيك وحمد الله ع السلامة اخي الكريم شاهد الرابط التالي التالي به شرح تفصيلي لما تريد http://www.officena.net/ib/index.php?showtopic=47476 واي استفسار معك دائما باذن الله جزاك الله خيرا