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

تطبيق كود ترحيل بيانات فاتورة الى شيت اخر


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

بسم الله الرحمن الرحيم

الاساتذه الأعزاء والأخوة الأفاضل

السلام عليكم

حاولت تطبيق فكرة كود فاتورة ولكن لم يفلح عندي

أرجو ابدال الكود او التعديل عليه للخلايا والنطاقات الملونه باللون الأخضر

نظام حسابات شركة الأحسان.rar

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

السلام عليكم

الكود هو للأستاذ طارق محمود ( دام موفقا") ان شاء الله

وهذه محاولتي ولكن توجد أخطاء في الترحيل والأستدعاء لاأعرف اين الخلل

للرفع والمساعده لطفا"

نظام حسابات شركة الأحسان.rar

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

السلام عليكم

أخي العزيز

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

وعند التغيير لابد من الإلمام بكافة جوانبها ، مهما كانت دقيقة أو صغيرة

مع أنني من عملت هذا الكود إلا أن التعديل عليه أصعب من إنشاء واحد جديد يناسب الحالة هذه

علي سبيل المثال ، شكل الفاتورة عندك ثابت وعدد الصفوف غير متغير فيكون الأسهل نسخ المجالات B9:E17 ، B19:E28 ، B33:E43 ، B45:E48 جميعا

إلي ورقة data أي حجز عدد 34 صف لكل فاتورة ، فإذا كنت تحفظ في تلك الورقة مثلا 1000 فاتورة فتصل للصف 34000

يعني أول 9 صفوف من كل فاتورة محفوظة تكون خاصة بالـ Sonar Device ثم 10صفوف ثم 11 ثم آخر 4 خاصة بــ Driver Weel

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

لذلك سأترك لك فرصة بناءا علي ماسبق لتحاول

وإلا سأحلها غدا إن شاء الله

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

أشكرك جزيلا" استاذ طارق , بصراحه كودك عجبني والذي عجبني فيه الآستدعاء الذي أريده

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

شكرأ لكم مره أخرى ودمتم موفقين

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

الاستاذ طارق المحترم

بعد التحية والاحترام

أرفق لكم الملف بصورة كود نسخ بيانات من ورقةInvoice

الى ورقة داتا طبعا" بدأت به بتطبيق بعض الدروس وانا بصدد

اتمام الكود بكيفية ترحيل المجالات الأخرى باللون الأخضر وياحبذا تشرحون لنا

كيفية اتمام الكود وكيف نعمل كود استدعاء الفاتورة

ودمتم سالمين موفقين

نظام حسابات شركة الأحسان.rar

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

الأستاذ طارق المحترم

أشكركم على تعاونكم معنا هذا أولا"

ثانيا" ممكن شرح طريقة الترحيل بالنسخ وهل هناك طرق أفضل ؟؟ ولماذا تم نسخ الفاتوره بالتنسيقات ؟؟؟ هل هذا من أجل الأستدعاء؟؟

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

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

شكرا" جزيلا" مره أخرى أخي وحفظك الله وأهل مصر من كل سوء

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

السلام عليكم

أخي الكريم

ممكن شرح طريقة الترحيل بالنسخ وهل هناك طرق أفضل ؟؟ ولماذا تم نسخ الفاتوره بالتنسيقات ؟؟؟

هل هذا من أجل الأستدعاء؟؟

شرح أمر النسخ هذا بسيط وهو كهذه الصيغة

Range1.Copy (Range2)
حيث يتم ببساطة نسخ المجال الأول Range1 إلي المجال الثاني Range2 وفي حالتنا
[B9:F48].Copy (.Cells(NR, 5))

يتم ببساطة نسخ المجال B9:F48 إلي المجال الذي يبدأ بالخلية التي بالعمود 5 أي E والصف NR بالورقة Data

وحيث أننا لم نحدد تنسيقات خاصة فيتم نسخ المجال بالتنسيقات

وقد تعمدت هذا لأنك طلبت نسخ المجال باللون الأخضر

لو رجعت لردي بالأمس بالمشاركة رقم 5 حيث قلت لك

شكل الفاتورة عندك ثابت وعدد الصفوف غير متغير فيكون الأسهل نسخ المجالات B9:E17 ، B19:E28 ، B33:E43 ، B45:E48 جميعا

وهذه المجالات بالتحديد لو نسختها كقيم فقط Paste Values وتحتفظ بالمعادلات في ورقة الفاتورة فسوف يؤدي المطلوب ويقلل من حجم الملف

والكود الذي بدأت فيه مالخطأ فيه

ليس به خطأ أنا استخدمته كما هو وأضفت عليه

ستجد معظم الكود من السطر المرقم بـ 20 هو نفس كودك

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

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

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