اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مساعدة ضروري في ماكرو بالاكسيل


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

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

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

أخي الكريم

أهلاً بك في المنتدى ونورت بين إخوانك

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

قم بضغط ملفك ثم إرفاقه لسهولة العمل والتواصل مع مشكلتك

تقبل تحياتي

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

تمام
متشكر كدا يااستاذ يااااسر
بارك الله فيك
هو دا اللي انا كنت محتاجة بالظبط
معلش بس لو انا عايز انقل اليوم والزيادة والعجز في ملف اكسيل تاني منفصل اعمل ايه ؟

 

وكمان استفسار معلش لو عايز انقل الماكرو ازااي لاني يادوب لسه معرفش عنه كتير

 

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

أخي الكريم المهندس

ممكن توضح طلبك بشيء من التفصيل

هل تقصد بالملف مصنف آخر أم ورقة عمل أخرى؟؟؟

إذا كنت تقصد ورقة عمل أخرى فالموضوع يمكن التعديل فيه الآن أما إذا كنت تقصد مصنف آخر فأحبذ أن تفتح موضوع آخر وترفق المصنفين وتضع شكل النتائج المتوقعة في المصنف الآخر

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

مش مشكلة ياااستاذ ياسر
اللي كنت محتاجه حضرتك عملته وزياده

محتاج بس اعرف حضرتك عملت ايه من باب لاتعطيني سمكه و علمني كيف اصطاد :) إن امكن ؟
وانا هبقا اعمل اللي محتاجه بعد كدا
بكرر شكري لحضرتك تاني

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

أخي الكريم

إذا كنت تريد العمل بأن يكون الترحيل إلى مصنف آخر مثلاً في نفس المسار لا يوجد مشكلة على الإطلاق .. قم فقط بإرفاق المصنفين وحاول تعمل جدول بسيط بشكل النتائج المتوقعة بمثال أو مثالين وإن شاء الله تجد المساعدة

بالنسبة للشرح للكود اعذرني اليوم لأني والله الآن في غاية الإرهاق .. وورايا شغل بدري

إن شاء الله غداً أقوم بشرحه

حاول تقرأ الأسطر هتلاقي الموضوع بسيط إن شاء الله

أو ممكن أحد الأخوة الأفاضل يتبرع ويقوم بالشرح

تقبل تحياتي

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

تفضل قبل ما أنام عشان أنام وأنا ضميري مرتاح

Sub Archive()
'تعريف المتغيرات
    Dim WS As Worksheet, SH As Worksheet
    Dim lRow As Long
'تعيين أوراق العمل المطلوب الترحيل منها وإليها
    Set WS = Sheet1: Set SH = Sheet2
'تحديد آخر صف فارغ بعد آخر خلية بها بيانات في ورقة العمل المراد الترحيل إليها
    lRow = SH.Cells(Rows.Count, "Q").End(xlUp).Row + 1
'في الصف الفارغ الأخير في ورقة العمل المراد الترحيل إليها [Q] الخلية في العمود
'تساوي
'الخلية التي تحتوي تاريخ اليوم
    SH.Cells(lRow, "Q") = WS.Range("L13")
'في الصف الفارغ الأخير في ورقة العمل المراد الترحيل إليها [O] الخلية في العمود
'تساوي
'الخلية التي تحتوي الزيادة أو العجز
    SH.Cells(lRow, "O") = WS.Range("L12")
End Sub

 

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

متشكر جدا جدا جدا لحضرتك يااستاذ ياسر
بس بعد اللي حضرتك قولتوا دا واضح اني كنت فاهم الموضوع الماكرو غلط  ولازم اتعلم من الاول افضل ^-^
 

هو مفيش لحضرتك فيديو علي صفحتك علي اليوتيوب بيشرح أ ب أكواد لان الموضوع واضح انه مش هينفع في صورة :smile:

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information