ism

اخي العزيز انا حاولت ان اجده .. ولم اجد له الحل .. الا من خلال التالي : اضافه هذا لسطر في اخر كود الطباعه وتختار الطابعه انت ActiveWindow.SelectedSheets.PrintPreview مثال انا اسخدمه : Range("a1:d25").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$d$" & Range("d25").Row With ActiveSheet.PageSetup .PrintTitleRows = "$25:$6" End With ActiveWindow.SelectedSheets.PrintPreview ستظهر الصفحه لتدقيق الطباعه وعند ضغط طباعه ستختار من الطابعات المتوفره لديك ارجوا ان تستفيد منه

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

ما شاء الله عليك يا ابا حنين ... بالفعل كما كان مطلوب لكن هل يمكن الاستدعاء

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

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

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

تم الحل .. باستخدام الكود : Dim t ActiveCell.FormulaR1C1 = "=RC[-1]*7%" t = ActiveCell.Value ActiveCell = t اخب ابو حنين اشكرك لمتابعتك ... الذي كنت اريده عندما اريد اضافه ضريبه مبيعات 7% لماده بالنقر على زر اضافه يحتب قيمه الضريبه ويضيفها رقما وليس معادله .. والمرفق يوضح لك ذلك .. وانتهت ... acc2.rar

ما شاء الله ... عليك يا اخي ابوحنين .. للان كله تمام .. لكني حاولت ان اضيف ضريبه مبيعات للفاتوره وطبعا ليس لكل المواد ضريبه فلذلك اردت عمل اختيار CheckBox واذا كان صح يضيف قيمه الضريبه في الخليه المقابل لها للماده كما هو بالمرفق .. لقد حاولت كثيرا ولم تنفع معي .. وحاولت بطرق كثيره ولكن لا يظهر الترحيل بقيمه الضريبه ولكن باالمعادله والتنسيق فهل استطيع ان يرحل رقم الضريبه فقط الى صفحه sale .. فهل يمكنني ذلك .. acc2.rar

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

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

لا يوجد رد ...

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

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

لم تنجح اخي ابو حنين ... وشطرا للمتابعه قد حللتها والحمد لله .. من خلال ماكرو واخذ الصبغه منه .. كانت باضافه ActiveCell.FormulaR1C1 = "=RC[-1]*0.07" الى البرمجيه في الزر ... شكرا لكم للمتابعه Book1.rar

شكرا لمتابعتك اخ عبدالله ... ولكن لم تعمل ... المطلوب هو ان ياخذ قيمه الخليه التي بجانب الخليه النشطه (بالمثال هي السعر) وعند الضغط على زر 7% يحتسب القيمه(السعر * 7%) ويضفها للخليه النشطه ارجزا ان شرحي قد توضح لكم ..