saad abed

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

اخى ربما اضفت اى كلمة وذهبت مع اضافة الصفوف الى نهايتها لذى يرفض الاضافة اذهب الى كل الصفوف الفارغه من البيانات ولم الصفوف الى نهايتها بالضغط على ارقام الصفوف كليك يمين ثم حذف وجرب بعدها واعلمنا

اخى محمد جزاك الله خيرا

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

اخوانى جزاكم الله خير بارك الله فيكم اكسيل وبرمجه وثقافة دينية

اخوانى اشكركم جربت الان فتم الدخول للموقع وتم التحميل اخى ياسر الكود امامى ولكن انا تلميذ باسمع الكلام عايز احمل من المكان اللى حدده الاستاذ

اخى ابوالبرء وفقكم الله لما يحب والله حاولت تحميل الملف اكثر من مره الرابط به مشكله كيف لا ندعم من لم يبخل علينا بمجهوده وشروحاته معاك في اى مكان

اخى محمد ابويوسف لباقة في الكلمات والاكواد ما شاء الله جزاك الله خيرا

اخى الحبيب ياسر ابوالبراء عندك حق اكمل ونحن معك بارك الله فيك وجزاك الله خيرا

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

اخى ابوالبراء تسلم اخى اسال الله ان يمد في عمرك وان يحسن عملك جزاكم الله خير

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

اخى ابوالبراء جزاك الله خيرا ادعو كل الاخوة التحميل والمشاهده ولايكات اليوتيوب فائدتها تعطى الفرصه لصاحب القناه بتحميل فيديوهات وقتها اكثر تظهر القناة في البحث والاعلان في القنوات المشابهه

اخى ياسر العربى انت مصدر ثقافتنا في لغات البرمجة جزاك الله خيرا من ضمن السلسلة ربطه بمجموعة الاوفيس وفقكم الله

اخى ياسر العربى فعلا حصلت على الكود بعد ايقاف الماكرو ولكنها خطوه نحو الحماية الكامله يجب حل مشكلة ايقاف الماكرو في الملف

اخى ابو البراء السلام عليكم ورحمة الله ابداعاتك كتيره ما شاء الله اظن الاكواد دى طفره لانها الحماية الحقيقة اذا فكت الحماية الغيت الاكواد واليوزر فورم

اخى ابوالبراء افكارك جميله ومفيده بارك الله فيك

اخى حسام شروحاتك جميلة شكرا لك

اخى محى الدين شكرا لك جزاك الله خيرا

اخى صلاح المصرى كما اشار الاخ وائل الاسيوطى في رابط الشرح للاجابه على سؤالك نعم يمكن بطريقتين اولا بالمجال الديناميكى وهو يزيد او ينقص بزيادة ونقص البيانات من صيغ ادارة الاسماء تحرير سمى المجال باسم يدل على العمل او باختيارك ثم في refer to ضع المعادله =OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),4) الطريقة الاسهل حدد بياناتك واضغط ctr+t لانشاء جدول جديد واختار الجدول كمصدر للبيانات ويمكن تحديث التقرير تلقائىه بالكود التالى Sub RefreshPivotTables() Dim pivotTable As PivotTable For Each pivotTable In ActiveSheet.PivotTables pivotTable.RefreshTable Next End Sub

اخى م/ياسر فتحى إنا لله وإنا إليه راجعون لله ماأخذ وله ماأعطى،وكل شئ عنده بأجل مسمى فلتصبر ولتحتسب

اخى ياسر جزاك الله خيرا استكمل دروسك فنحن في الانتظار

اخى خالد مواضيعك ممتازة جزاك الله خيرا

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

Sub saadabed() Dim X As Long For X = 1 To 147 Sheets("Table").Columns("a").Offset(, X).EntireColumn.Hidden = True Next Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False End Sub اخوانى الاعزاء تلميذ من تلاميذ الاخ ياسر يحاول ان يشارك معكم استخدام حلقات التكرارية لاخفاء كل الاعمده ثم اظهار المطلوب منها فقط