الحسامي

جزاك الله كل خير في دنياك وفي أخرتك

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

اخي ابو فيصل فقط قم بعمل كبسة واحدة فقط لأخفاء الشيت واضهارها وضع الكود التالي : If Sheet1.Range("a1").Value <> 50 Then Sheet2.Visible = xlSheetVeryHidden If Sheet1.Range("a1").Value = 50 Then Sheet2.Visible = True ولكن لايتم وضع الكبسة في الصفحة التي تريد اخفاءها

ما في مشكلة ... يتم الترحيل الى اي جزء في الصفحات وليس هناك ارتباط بالصفحة الأم ================================== Worksheets("ملف").Cells(i, 1).Value = Worksheets("بيانات اساسيه").Cells(i, 1).Value هنا تم الترحيل حسب الصفحة الأم لذلك كانت نفس الأرقام في الكود وللترحيل لصفحات مختلفة يتم تغيير ما يلي بيانات الصفحة الرئيسية بدأت من السطر9 وهذا ما يمثله الحر ف (I) ومن العمود الأول وهذا ما مثله الرقم (1) ... في الكود التالي ( مثلا ) Worksheets("بيانات اساسيه").Cells(i, 1).Value لنفرض اننا نريد الترحيل الى صفحة اخرى ابدأ من السطر 12 والعمود (d) فيصبح الكزد Worksheets("بيانات اساسيه").Cells(i+3, 4).Value حيث : الرقم 4 يمثل ترتيب العمود d (I+3) : تمثل 12 ..... I=9 وهكذا لباقي الأسطر ...يتم التغيير فقط في الجزء الأيمن للسطر أي التغيير لما بعد أشارة ال= عماد الحسامي

حلول جميلة ومفيدة جازاهم الله كل خير ولإثراء الموضوع هذا حل بإستخدام الأكواد افقي.rar

اخي تفضل المرفق على حسب ما فهمت عليك كود1-معدل.rar

استغفر الله يا ابو عبدالله انا اخوك الصغير

فكرتها كثير حلوة وبارك الله فيك يا ابو عبدالله

أخي أبو عبد الله قد تحدث هناك بعض الأخطاء الشكلية في برنامج وهذا الأخطاء ليست ناتجة عن منطقية البرنامج الذي تكتبه وانما تكون بسبب عدم تقبل الكود للخلايا الفارغة وعدم التعرف عليعا وهناك في الفيجول ما يسمى بمعالجة الأخطاء ( error handling) ومنها إستخدام الجملة " On Error Resume Next " كما في حالتك ويتم وضعها في بداية الكود وهي عبارة عن جملة تخطي الخطأ الشكلي أي عند وجود خطأ من هذا النوع يتم القفز عنه ملاحظة هامة : توضع هذه الجملة عند الإنتهاء تماماً من كتابة أي برنامج وذللك للتعرف على الأخطاء أخوك عماد الحسامي عماااادمع...rar

تفضل أخي ملفك حسب المطلوب واية تعديلات أنا بالخدمة 333-معدل.rar

تفضل أخي الملف تم إختصار الأزرار الأربعة في كبسة واحدة 333.rar

تفضل اخي تم تعديل ملفك شاشة.rar

مجرد مداخلة ما يمكنك ان تفعله في الاكسل يمكن عمله في الفورم ولكن بشكل نسبي والعكس غير صحيح --أي ان الفورم يعطيك خيارات متعددة لا يتيحها لك الاكسل المجرد من حيث أستخدام الجداول التي لا تريد إضهارها في الصفحة ومن حيث جمالية البرنامج-- ومن حيث الأمان المطلق لأي برنامج -- ومن حيث تخفيض حجم البرنامج وهناك العديد من المميزات والمجالات التي يتيحها لك الفورم تكتسب عند ممارسة استخدام الفورم أما الفيجول والاكواد فأقول التالي: أستخدام الفيجول والاكواد للبرامج المتوسطة والكبيرة نسبياً أفضل من استخدام الاكسل المجرد من أهمها: - مجالات الفيجول غير محدودة بالمقارنة بالأكسل أي هناك برامج لا يمكنك عملها بالأكسل المجرد ولا بد لك من استخدام الأكواد - جميع دوال الاكسل موجودة في الفيجول ولكن بطريقة أسهل من حيث التعديل وتشكيل المعادلات - في ظاهر الأمور قد يبدو الاكسل المجرد أسهل من الأكواد ولكن في باطنها اقول العكس هو الصحيح -وهناك العديد من المزايا التي تكتسب من الممارسة ملاحظة : 1- أرجو الأطلاع على بعض المواقع الاجنبية ستلاحظون ماقلته حيث استخدام الاكسل المجرد لا يتعدى 5% من برامجهم 2- هناك تقنية شبيهة بالفورم وهي أستخدام CONTROL TOLLBOX ( شريط الادوات الرئيسي للأكسل أختار CONTROL BOX) أرجو التوفقق للجميع أخوكم عماد الحسامي

أخي الكريم جرب الكود التالي ThisWorkbook.Saved = True ThisWorkbook.Close

أخي الكريم الرعشة ناتجة عن حجم البيانات التي لديك حاول تقليل البيانات --(للتجربة ) ولا حظ الفرق

أخي الكريم //// الجزيرة هذا البرنامج لا يشبه أبداً الكود السايق في المشاركات من حيث عدم تشابه المبدأ حيث ان المسميات لديك أفقية وليست ضمن الجدول في الداخل لهذا لم تتمكن من التعديل المرفق التالي يشمل التعديل الذي تريده مع الابقاء على نفس الكود والتعديل عليه عسى ان يكون ما تطلبه تحديداً --- على حسب ما فهمت من طلبك وأية تعديلات انا في الخدمة عماد الحسامي عماااادمعدل.rar

اخي الملف من جديد بكبسة عادية كود1-معدل.rar