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%) ويضفها للخليه النشطه ارجزا ان شرحي قد توضح لكم ..

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

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

مشكور جدا اخي العزيز ... ابو نصار ... وزادك الله من علمه

في المرفق ملف .. اريد ان اوسه كود البحث فيه ليشمل الملاحظات ... acc - Copy_2.rar

ظلل الخلايا المراد حمايتها واضفط بيمين الماوس واختر تنسيق خلايا ... ثم الى حمايه ومنها علم اشاره الصح على مؤمنه ثم من ادوات اختر حمايه (ولك الخيار بان تظيف رقم سري او لا) .. وشاهد النتيجه ..

اكثر من رائع ... كنت قد احببت ان استفيد من هذا الفورم في برنامج ولكني لا اعلم كيف اغير امتداد الخلايا في البرنامج فهل تعينني فيه ؟؟

هذا هو الملف الذي تم عمله .. وقد استحوذ الكثير من العمل .. ومساعده اخي العزيز احمد زماان _ جزاه الله خيرا _ .. فهو يقوم بعمل صفحه جديده باسم العميل على شكل كشف حساب وبشكل سهل جدا .. كما انه يقوم ببحث عن اسم العميل من القائمه .. ارجوا ان تستفيدوا منه .. customer.rar

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

استاذ احمد قد اتعبتك معي في هذا الملف .. ولا لدي سوى الدعاء لك .. ولكني وجدت في الملف : 1. ان كومبوبوكس لا يحتوي على ورقه الرئيسيه , فهل يمكن اشمالها في الكومبو . وعندما غيرت القائمه بشكل ضاعت علاقته بالشييت . 2. عند انشاء ورقه جديده يتم عملها بالاسم المحدد لكن يعطي خطأ (Sheets("الرئيسيه").Cells(TR, 2) = SN) لا اعرف ما هو . وظهور الاسم في خليه g2 لكن ليس بنفس الورقه - ليس بكل الورق -. 2. ان امكن صياغه كود زر الحذف - لعدم خبرتي في الاكواد ... فقد حاولت ان اقوم بها لكنها تعطيني اخطاء في كل مره ... ومن بعد اذنكم حاولت ان اجعل في الرئيسيه ليست في حاله الكشف في العمود a حيث اختار منها قيم محدده موجوده بخليه 1a و a2 فقط اي اختيار مفتوح ومغلق , فان امكنك ارجوا ان تساعدني بها .. واكيد ستجد اخظاء في الملف المرفق .. ارجوا الاطلاع .. والملف مرفق بعد التعديل والمحاوله customer.rar

عذرا اخي فقد قمت بتجربته لكن يضيف حسب التسلسل .. ولكن عندي استفسار اخر اذ امكنك الوقت .. هل يمكن ان اعمل في القائمه بدل عدد الصفحات واضافه صفحات جديده ان اضيف للفورم textbox وزر اضافه بحيث ان اكتب اسم الورقه ويضيف ورقه جديده بالاسم - وان تكون نسخه من surce .. .. قد قمت بتعديل الملف وعمل قائمه جديده لكن لم اضف اي كود بالقائمه بعد - وذلك لكي تعطينا من خبرتك فيها - وهو هنا مرفق شكرا لك على متابعتك للموضوع .. وجزاك الله خيرا انشاء الله 0.rar