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

أريد ملف حسابات بسيط - لو تكرمتم


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

السلام عليكم

أولا أحب أن أشيد بالموقع وبالأعضاء الكرام

أنا أعمل مصمم ولست محاسب لكن أحب الإكسل

وعملت ملف حسابات يخصنى بالإكسل لكنه ضعيف

أريد أن يقوم خبير بتظبيطه ولكم جزيل الشكر

الملف

أنا أعمل عليه أنا وزميل لى

ونقوم بالعمل لأربعة أقسام ( مبيعات - أوفست - سلك سكرين - مكتب )

المبيعات نتعامل مع العميل مباشرة ونقوم باخراج كلك أو أفلام للطباعة ويدفع لى العميل مباشرة ويوجد بعض العملاء يدفعوا على دفعات

أما قسم الأوفست والسلك سكرين والمكتب ففى نهاية الشهر يكون التسديد

وشكرا لكم

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

أخى قمت بعمل بعض التعديلات لتقليل مساحة الملف وظبط الطباعة ارجو توضيح ماتريده

جزاك الله خيرا

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

ثم فى خانة القسم اختار القسم المراد ( مبيعات - أوفست - سلك سكرين - مكتب )

النوع كلك - أركازول - أفلام

خانة العدد أكتب عدد الكلك المطبوع

خانة المقاس اكتب مقاسه

خانة الفئة اكتب سعر الوحدة

خانة قيمة التصميم أو أخرى اكتب القيمة

خانة الإجمالى

خانة المدفوع

خانة الباقى

ولو اريد حصر عميل معين اعرف دائن / مدين

وشكرا

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

السلام عليكم

أخي أبا يوسف

لاحظ:

1. تحديد المدخلات في كلا من القسم والنوع والمقاس

2. تغير لون حالة العميل من دائن / مدين

3. تستطيع معرفة حالة كل عميل ببساطة بالفلتر

تفضل المرفق

وأخبرني النتيجة

Hesabat2.rar

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

أخى الكريم TareQ M

جزاك الله خيرا

أود أن أشكرك على مجهودك معى

وأرجوا أن يكون هناك بعض التعديلات

من إضافة صفحة رئيسية ومن خلالها يتم ترحيل البيانات

إلى صفحتين صفحة يكون فيها كل المعلومات

وصفحة يكون فيها دائن ومدين لكل عميل

مرفق ملف للتوضيح

جزاك الله خيرا

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

السلام عليكم

أخي الفاضل أبايوسف

أولا لإرفاق الملف بالمنتدي بدلا من إستعمال مواقع أخري ، لابد من ضغطه أولا باستخدام winrar or winzip

ثانيا أرفقت لك الملف وقد حللت لك نقطة ولي إستفسار في الترحيل

أرجو الرد علي إستفسار في الملف المرفق صفحة "ترحيل البيانات"

Abu_Yousef.zip

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

السلام عليكم

أخي أبايوسف

بعدما قرأت ردك :

عند ترحيل البيانات يوضع الععد تحت مقاسه وتحت نوعه

مثلا لو التصميم على 2 A4 و 3 A3 كلك يوضع رقم 2 تحت A4 وقم 3 تحت A3 تحت صنف الكلك

فهمت أنه لايوجد مقاسات A4 أو A3 أو 30×47 إلا في الكلك

ولايوجد مقاسات ربع أو نص أو فرخ في الكلك لكن في الأركازول والأفلام فقط

(1) أرجو تأكيد هذا

(2) ثم ماذا عن الورق؟

(3) وفي المرفق ، أضفت لك حسب طلبك 3 خانات المقاس والعدد

لو أضفنا 3 خانات للمقاس والعدد

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

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

أنتظر ردك لأن بعد عمل كود الترحيل لن يكون التعديل سهلا

تفضل المرفق

Abu_Yousef2.rar

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

السلام عليكم

أخي أبايوسف

فهمت أنه لايوجد مقاسات A4 أو A3 أو 30×47 إلا في الكلك

ولايوجد مقاسات ربع أو نص أو فرخ في الكلك لكن في الأركازول والأفلام فقط

وعليكم السلام

نعم لايوجد مقاسات A4 أو A3 أو 30×47 إلا في الكلك والورق

نعم لايوجد مقاسات ربع أو نص أو فرخ في الكلك لكن في الأركازول والأفلام فقط

وكله تمام بعد ذلك

جزاك الله خيرا

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

الشكر كل الشكر للأخ الفاضل TareQ M

على مجهوده وجزاه الله خيرا

شكرا أخي أبايوسف

تفضل نسخة تجريبية من الملف

مازال بها بعض العيوب ممكن التعايش معها

مثلا المقاسات لازم توضع بالترتيب

مثلا في الكلك ِA4

ثم A3

ثم

A3S

أو في الأركازول ربع ثم نص ثم فرخ

بمعني لوعندك تصميم 2 نص + 1فرخ

ستملأ البيانات كالتالي 0 ، 2 ،1

راجع المرفق ثم أعطيني رأيك

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

Abu_Yousef3.rar

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

جزاك الله خيرا على المجهود المبذول

أولاً الصفحة الرئيسية عند الإنتهاء من إدخال البيانات بها والضغط على مفتاح الترحيل تبقى البيانات كما هى

أرجو ان تحذف البيانات فور ترحيلها

ثانيا الصفحة الثانية لاتعمل التى بها إجمالى دائن وإجمالى مدين

وأسف على الإطالة وعلى تعب حضرتك

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

أولاً الصفحة الرئيسية عند الإنتهاء من إدخال البيانات بها والضغط على مفتاح الترحيل تبقى البيانات كما هى

أرجو ان تحذف البيانات فور ترحيلها

لعمل الإزالة تضيف آخر الكود قبل النهاية مباشرة الجزء التالي

Worksheets("MAIN").Select

    Range("C5:C21,E5:E21").Select

    Range("E5").Activate

    Selection.ClearContents

ليصبح الكود هكذا
           For j = 1 To dq

                  Range(ad_r).Offset(j - 1, 0) = d(9 + j - 1)

                  Range(ad_r).Offset(j - 1, st_Col + j - 1) = d(6 + j - 1)

           Next j


Worksheets("MAIN").Select

    Range("C5:C21,E5:E21").Select

    Range("E5").Activate

    Selection.ClearContents


End Sub

ثانيا الصفحة الثانية لاتعمل التى بها إجمالى دائن وإجمالى مدين

الصفحة الثانية بها جدول محوري

ويلزم تجديده دائما كلما غيرت البيانات الأصلية

تجديده بالوقوف داخله ثم كليك يمين ثم Refresh

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

السلام عليكم

عفوا أخي أبويوسف

الكود السابق غير مضبوط

كان يمحو البيانات والمعادلات

مرفق الملف بالكود المضبوط

مع تحديث تلقائي للجدول المحوري بدون عمل شسيء من عندك

تفضل

Abu_Yousef4.rar

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

بارك الله فيك أخى الكريم طارق

أبشرك بأن صفحة الجدول المحورى أصبحت تعمل تسلم إيدك

لكن صفحة التجميع بها مشكلة تكتب على كذا سطر اذا كان بها أكثر من تصميم

والسبب خانة سعر الوحدة حيث يقوم بضرب العدد فى سعر الوحدة

لكن أريد أن يقوم الترحيل فى سطر واحد ممكن نلغى سعر الوحدة ومش عارف ايه اللى يكون

أنتظر إبداعك

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

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