ترحيل البيانات مع ادراج صفحة جديدة بالتاريخ الموجود فى صفحة ترحيل البيانات

[عبده الطوخى 1970]

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

السادة الافاضل 

ممكن المساعدة 

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

ومرفق الملف 

بيان السولار اليومى لمزارع الامهات.xlsx

[أبوأحـمـد]

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

لماذا تخصص لكل يوم صفحة

في نهاية العام سيصبح عندك 365 صفحة وسيصعب التعامل معها

من الأفضل جمع العمل في صفحة واحدة ليسهل الاستعلام والتعديل واستخراج النسب والمجاميع

[عبده الطوخى 1970]

15 دقائق مضت, أبوأحـمـد said:

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

لماذا تخصص لكل يوم صفحة

في نهاية العام سيصبح عندك 365 صفحة وسيصعب التعامل معها

من الأفضل جمع العمل في صفحة واحدة ليسهل الاستعلام والتعديل واستخراج النسب والمجاميع

لو هذا متاح ارجوا المساعدة فى الملف 

بيان السولار اليومى لمزارع الامهات.xlsx

[أبوأحـمـد]

تفضل

بيان السولار اليومى لمزارع الامهات (1).xlsm

[عبده الطوخى 1970]

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

تسلم يا سيدى الافاضل أبوأحـمـد

فعلا هذا هو المطلوب وكثير 

ولكن هل يمكن اضافة لو امكن وهى المعادلات الموجودة بعد الترحيل 

حيث ان الرصيد الحالى = الرصيد السابق + الوارد + الاستهلاك اليومى

حيث ان السولار المطلوب = سعه الخزانات - الرصيد الحالى 

ويبدو اننى اطلب منكم الكثير 

هل يمكن ارسال شرح تنسيق الصفحة المرحلة 

اتمن الا ارهقكم بكثرة اسئلتى 

لكم منى جزيل الشكر والاحترام 

 

[أبوأحـمـد]

أنا ثبت المدخلات لحمايتها

وهنا بالمعادلات

بيان السولار اليومى لمزارع الامهات (1).xlsm

[عبده الطوخى 1970]

الف شكر استاذنا الفاضل أبوأحـمـد

هذا ما نريد 

والف شكر لحضرتك مرة ثانية وثالثة الى ما لا نهاية 

 

[عبده الطوخى 1970]

السادة الافاضل 

لكم منى التحية 

اريد استفسار عن كيفية اضافة كود بالموديل الموجود بالملف المرفق 

 

Rows(2).RowHeight = 35

Rows("3:10").RowHeight = 25

على ان يكون هذا التنسيق بالملف المطلوب ترحيله

بيان السولار اليومى لمزارع الامهات (1).xlsm

[أبوأحـمـد]

بعد رسالة تم الترحيل أو قبلها

مع إضافة متغير اسم الورقة wk2.

wk2.Rows(2).RowHeight = 35
wk2.Rows("3:10").RowHeight = 25

 

[عبده الطوخى 1970]

19 دقائق مضت, أبوأحـمـد said:

بعد رسالة تم الترحيل أو قبلها

مع إضافة متغير اسم الورقة wk2.

wk2.Rows(2).RowHeight = 35
wk2.Rows("3:10").RowHeight = 25

 

بالفعل هذا هو المطلوب ____ الف شكر استاذنا الفاضل