اذهب الي المحتوي
أوفيسنا

ترحيل الكمية من شيت لاخر


إذهب إلى أفضل إجابة Solved by محمد هشام.,

الردود الموصى بها

السلام عليكم
جرب الكود التالي

Sub Test()
    Dim sRow As Long, eRow As Long
    sRow = 8: eRow = 19
    With ActiveSheet
        .Range("D" & sRow & ":D" & eRow).Value = .Range("F" & sRow & ":F" & eRow).Value
        .Range("E" & sRow & ":E" & eRow).Value = 0
    End With
End Sub

 

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

  • 2 weeks later...

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

المستخلصات 2023.xlsm

رابط هذا التعليق
شارك

  • الخطيب بيبوو changed the title to المطلوب من الاستاذة :---عند عمل جارى الحالى بعد جارى الاسبق المطلوب  اخذ اجمالى الكمية الحالية من جارى السابق ووضغها مكان ما سبق في جارى  الجديد وتفريغ الكمية الحلية فى الجارى الجديد عن طريق كود برمجى

تمام تم فتح امان الماكرو

المستخلصات 2023.xlsm

 

image.png.832a1ccc096513a51c29c2415cd40bc2.png

 

تمام استاذ الخطيب اتبع الخطوات كما بالصورة 

ضع علامة صح unlock

وهيشتغل حالا

  • Like 1
رابط هذا التعليق
شارك

 

مستخلصات هيكل2023 الجنوبية.xlsm

عند عمل وانشاء جارى 1 والحفظ يقوم بنسخ جارى 2 ,ويتم التنفيذ  حلقة تكرارية  ____ وتنفيذ الميكرو الموجود المكرو mreda_1 ثم الحفظ وعمل نسخة احتياطة وطباعة pdf

اريد عند اختيار فى toutal  من قائمة list عمود b 

اختار ورقة عمل جارى 2 ياخذ جارى نسخ ويعمله كوبى كامل وعند اختيار ورقة عمل من listجارى 3 ياخذ جارى 2 يعمله نسخ وهكذا  ثم ياخذ من جارى  نسخ اجمالى الكمية يتم لصقها فى جارى 2 مكان ما سبق ونفس الخ

وايضا نفس الخطوات  من جارى 2 الى  جارى 3 وايضا وهكذا

image.png.9c28de68dfa0d84ae552d13bd93fa92e.png

 

تم تعديل بواسطه الخطيب بيبوو
رابط هذا التعليق
شارك

  • الخطيب بيبوو changed the title to استاذة وعمالقة المنتدى المحترمينالأستاذ / محمد هشام عند عمل وانشاء جارى 1 والحفظ يقوم بنسخ جارى 2 ,ويتم التنفيذ  حلقة تكرارية

ممكن صورة للخطا الدي يواجهك 

لقد تمت تجربت الملف على اكثر من جهاز لم تصادفني ادنى مشكلة في التنفيد ربما عليك مراجعة اعدادات الماكرو على جهازك 

لتتاكد  من دالك اليك الرابط التالي 

https://streamable.com/o6di16

 

 

مستخلصات هيكل2023 الجنوبية 2.xlsm

تم تعديل بواسطه محمد هشام.
  • Like 2
رابط هذا التعليق
شارك

كان محفوظ بامتداد اخر غير المكرو تسلم حضرتك

لكن عايز التاريخ يتغير ايضا الى تاريخ يوم عمل المستخلص 

ويتم مسح البيانات عند عمل فى الشيت الجديد h16:h22

اكون شاكر فضلك

 

20231013_110705.jpg

20231013_110646.jpg

جمعه مباركة ان شاء الله

 k7 هو k11 بالنسبة للتاريخ

k10 ياتى من تاريخ الجارى السبق له مباشرة

وعند النقل يتم تفريغ من h16 الى  h22 بعد عند النقل

وعند النقل يتم تفريغ من h16 الى  h22 بعد عند النقل

لانه يتم وضع نسب جديدة

رابط هذا التعليق
شارك

ممكن المزيد من التوضيح بخصوص التاريخ هل تقصد ادراج تاريخ انشاء الشيت اي تاريخ اليوم او مادا

لنفترض اننا قمنا بانشاء ورقة جاري 2 ما هو التاريخ المتوقع في الخلية k10 و k11

 

948316248.png

لنفترض انه اخر تاريخ على جاري 1 بعد النسخ هل تقصد ان الخلية k10 تتضمن 21/06/2021

والخلية k11   و k7  تاريخ انشاء الشيت صح 

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

 

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information