ترحيل بيانات الى ورقتين عمل حسب الاختيار (ارجوا التوضيح)

[ism]

المرفق ملف ويوجد به 3 ورقات عمل .. منها ورقه فاتوره واريد ان ارحل البيانات من الفاتوره الى ورقه مشتريات او المبيعات حسب اختيارها بالفاتوره ..

يوجد شرح لكل ما حاولت القيام به بالمرفق .

حاولت الكثير ولم تنفع معي .. وأأومن بقدرات اخواني بهذا المنتدى بان يدلونني الى الطريقه الصحيحه في عملها .

acc.rar

[ism]

لا يوجد رد ...

[أبو حنــــين]

السلام عليكم

أخي جرب هذه المحاولة

acc1.rar

[ism]

مشكور اخي ابو حنين على المتابعه ..

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

شاكر لك جهودك الكبيره معي ...

[أبو حنــــين]

السلام عليكم

التعديل كما طلبت حيث يتم نقل الاسم و الرقم و التاريخ لكل الخانات

لكن لاحظ ان ترقيم الفاتورة متسلسل بمعنى

لوانت في الفتورة رقم 1 في صفحة المبيعات

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

و لا ادري هل هذا الترتيب صحيح او خطأ

acc2.rar

[ism]

اخي ابو حنين .. الكود الذي وضعته لا يفيد حيث عندما نضيف فاتوره جديده يقوم الكود بكتابه التاريخ ورفم الفاتوره والاسم فوق الموجود سابقا وخاصه من السطر 5 وفوق .. فارجوا اعاده النظر فيه ...

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

وبارك الله فيك وبمجهودك الكبير .. يا استاذي الفاضل

[أبو حنــــين]

السلام عليكم

بالفعل كان هناك خطأ

جرب المرفق و اخبرني بالنتائج

acc33.rar

[ism]

ما شاء الله ... عليك يا اخي ابوحنين ..

للان كله تمام ..

لكني حاولت ان اضيف ضريبه مبيعات للفاتوره وطبعا ليس لكل المواد ضريبه فلذلك اردت عمل اختيار CheckBox واذا كان صح يضيف قيمه الضريبه في الخليه المقابل لها للماده كما هو بالمرفق ..

لقد حاولت كثيرا ولم تنفع معي .. وحاولت بطرق كثيره ولكن لا يظهر الترحيل بقيمه الضريبه ولكن باالمعادله والتنسيق فهل استطيع ان يرحل رقم الضريبه فقط الى صفحه sale

.. فهل يمكنني ذلك ..

acc2.rar

[أبو حنــــين]

أخي الكريم

هذه الظريبة من أي رقم تحسب و أبن يكتب الناتج

ارجو التوضيح بالطريقة التالية

الضريبة تحسب من الخلية ؟؟؟ في العمود مثلا A , او B , او C . . . . . .

الناتج ( يكتب أو يضاف أو يضرب في ) الخلية ؟؟؟ من العمود مثلا A , او B , او C . . . . . .

لانني لم استسغ السؤال

[ism]

تم الحل .. باستخدام الكود :

Dim t

ActiveCell.FormulaR1C1 = "=RC[-1]*7%"

t = ActiveCell.Value

ActiveCell = t

اخب ابو حنين اشكرك لمتابعتك ... الذي كنت اريده عندما اريد اضافه ضريبه مبيعات 7% لماده بالنقر على زر اضافه يحتب قيمه الضريبه ويضيفها رقما وليس معادله ..

والمرفق يوضح لك ذلك ..

وانتهت ...

acc2.rar

[أبو حنــــين]

الحمد لله أن المشكل انتهى

تقبل تحياتي الأخوية

سأحاول إيجاد طريقة ربما أسهل ان شاء الله

تم تعديل ديسمبر 21, 2012 بواسطه أبو حنين

[أبو حنــــين]

حسب المرفق

أرى أن الغرض هو الكتابة في العمود G القيمة 7% أو ترك الخلية فارغة

هل هذا هو القصد

[أبو حنــــين]

إذا كان كذلك فيمكن كتابة الكود التالي

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 7 And Target.Row > 6 And Target.Row < 30 Then

Cancel = True

Target.Value = 0.07

End If

End Sub

[ism]

عفوا اخي ابو حنين .. مشكور على مجهودك وتواصلك معي

ولكن الكود لم يفلح .. حيث انه يضيف قيمه 7% فقط .. والمطلوب كان ان ضؤب السعر بقيمه ثابته وهي 7% واضافه النتيجه رقما بالخليه ..

اذا فهناك شرطان : اولا ضرب السعر ب 7 % وثم اضافه النتيحه رقما للخليه

[أبو حنــــين]

ما هو السعر الذي يضرب في القيمة 7% ؟

هل هو الموجود في الخانة الاولى ؟

[ism]

السلام عليكم

خليه الضريبه = السعر الافرادي * 7 %

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

وشكرا للمتابعه اخي ابو حنين

[ism]

طلب اخر اخي ابو حنين .. في المرفق الاخير في المشاركه رقم 10

هل يمكن عمل استخراج فاتوره (استعاده) حسب رقمها او اسم العميل .

[أبو حنــــين]

تم عمل النسبة

انظر الملف و الملاحظة الموجودة داخله

acc33.rar

[ism]

ما شاء الله عليك يا ابا حنين ...

بالفعل كما كان مطلوب

لكن هل يمكن الاستدعاء

[أبو حنــــين]

هل الاستدعاء يكون في صفحة مستقلة او في نفس صفحة الفاتورة

[أبو حنــــين]

السلام عليكم

اضفت صفحة أخرى خاصة بالبحث

acc444.rar

تم تعديل ديسمبر 23, 2012 بواسطه أبو حنين

[ism]

يفضل لنفس الصفحه .. واذا امكن شرح العمليه .. بملف نصي لو تكرمت ..

الله يجزيك الخير .. وينفعك بعلمك وعملك