أبو حنــــين

السلام عليكم تم تعديل كل من الطاكس و المسجد بحيث عندما تكتب فيهما قيمة تحفظ آليا هذه القيمتان لانني ربطتهما مع الخليتية N1 و N2 و يمكنك تغيير القيمتين متى تشاء فقط اكتب في مربع النص القيمة التي تريدها بيانات 2.rar

جرب المرفق ضمان (تم 2الحفظ تلقائياً).rar

مرحبا أخ حسين قمت بالعمل مع تغيير مكاني (من . . الى .. .) و مكان الاستهلاك في ورقة العمل في الفورم بمجرد كتابة رقم العداد تسرد جميع المعلومات السابقة لصاحب العداد ثم الضغط على أنتر أو الزر ( ج ) فتمسح البيانات الغير هامة و يتحول الحالي في الفاتورة السابقة الى السابق في الفاتورة الحالية ثم تظغط على انتر يتحول بك الى كتابة ( تاريخ من ) و بمجرد كاتبة اليوم و الشهر فقط يكمل هو التاريخ ( 5/11 فقط يحولها الى 5/11/2016 ) ثم الضغط على انتر فيضيف شهر الى مربع النص ( الى تاريخ ) و يكتب الاستهلاك بالصيغة 03/2016 ثم انتر لتدخل الحالي ثم تمر الضريبة ( الطاكس ) 10 وضعتها ثابتة لكنك تستطيع تغييرها ثم انتر الى الفترة ثم انتر الى حفظ بيانات.rar

السلام عليكم ارسل ملفا يحتوي على ثلاثة أشهر مثلا و كيفية ترتيبها ليكون العمل واضحا

السلام عليكم امهلني بعض الوقت و سأنجر العمل ربما هذا المساء ان شاء الله

اخي انا إتبعت ما جاء في ملفك

مرحبا وضعت لك دالة معرفة لكن كما طلبت رغم انني لم اقتنع بكتابتك لبعض الارقام مثل الأول مائة و الاول الاول مائة و الثاني و هكذا لم استصغ كتابة كلمة الاول في كل مرة التسلسل كتابة 3.rar

مرحبا جرب المرفق الكشف المجمع.rar

جرب الملف تنظيم المعاملات 3.rar

السلام عليكم و هذه طريقة ثالثة inout.rar

السلام عليكم أبــويا محي الدين ( أبويا لأنك أبو البشر ) جزاكم الله خيرا على المرور تقبل فائق شكري و تقديري

Private Sub CommandButton1_Click() With Range("B2") .Value = TextBox1.Value: .NumberFormat = "00#" End With End Sub استعمل هذا الكود

السلام عليكم انظر اخي الصورة Sans titre.rar

السلام عليكم تم تعديل الملف بحيث يمكن الاضافة و التعديل Book1.rar

السلام عليكم قمت بتعديل بسيط على الملف جربه و اخبرني 7الفاتورة.rar

اخي محمد السلام عليكم هذه هي الاكواد مع الاخذ بعين الاعتبار Range("A5") حيث تكتب مكانها اين تريد ظهور الناتج '=H10*F10 Range("A5") = Val(Range("H10").Value) * Val(Range("F10").Value) '************************************************************** '=H62+H61-H63 Range("A5") = (Val(Range("H62").Value) + Val(Range("H61").Value)) - Val(Range("H63").Value) '******************************************************************** '=SUM(I10:I60) Range("A5") = Application.WorksheetFunction.Sum(Range("I10:I60"))

السلام عليكم و رحمة الله اخي 1 - لو تذكر باقي العمليات مثل طريقة حساب المجسد و المبلغ 2 - هناك اسماء مكررة هل عملت ذلك قصدا ( بمعنى هل السابق يكون هو نفسه في حالة تكرار الاسم ) 3 - هل تريد طباعة الفاتورة 4 - و هل الترحيل يكون الى آخر سطر و ان كان الترحيل الى نفس الاسم فهناك اسماء مكررة اي الاسماء ترحل اليها البيانات

اخي ابراهيم جزاكم الله خيرا على المرور و انا ايضا اشتقت للجميع ( إييييييييه أيام زمان لما كنا في الاعدادي ههههههههههههه ) اسأل الله ان يوفقكم و يسدد خطاكم بالمناسبة تقبل الله منا و منكم صالح الاعمال و عيدكم مبارك و كل عام و انتم و كل الاسرة بخير

السلام عليكم اخي محمد جرب المرفق 6الفاتورة.rar

السلام عليكم اخي محمد الخطأ غير موجود عندي العمليات تجري بطريقة عادية

السلام عليكم أخي محمد و بعد إذن أخي أبوعبد الباري قمت بالعمل لكن أخرني انقطاع الكهرباء 5 الفاتورة.rar

السلام عليكم إضغط مرتين متتاليتين في أي ورقة على الخلية A1 book1-1.rar

مرحبا جرب هذه الطريقة 11.rar

مرحبا تم وضع زر مسح المحتويات في كل ورقة ابو حنين + 66666.rar

السلام عليكم و رحمة الله أخي أبو عبد الرحمان أولا : قم بتحديد كامل العمود E و اضبط محاذات الخلية كما تريد ثانيا : بداخل الكود هناك سطران بقوم الاول بتفريغ محتوى الورقة الاولى و الثاني يفرغ الورقة الثانية إلا إذا أردت زر آخر وظيفته مسح البيانات فقط ثالثا : بقيت ساعات على حلول عيد الفطر المبارك ، لذلك اقول لكم تقبل الله منا ومنكم صالح الأعمال ، و أعاده علينا و عليكم و على كل الأمة الاسلامية بالخير و اليمن و البركاة