الصـقر

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

السلام عليكم الدرس الثالث ما هو المقصود بأغلاق الفترة المحاسبية المقصود هو عدم ادخال اى قيد او تعديل قيد فى فترة زمنية محدده وتستطيع اغلاق الفترة من من الشاشة الرئيسية الخلية Q4 عند الوقوف على الخلية سيطلب رقم الباسورد وهو 1500 ثم تكتب تاريخ بداية الفترة التى تريد عدم الادخال او التعديل بها الخلية Q5 عند الوقوف على الخلية سيطلب رقم الباسورد وهو 1500 ثم تكتب تاريخ نهاية الفترة التى تريد عدم الادخال او التعديل بها ولتعديل الرقم السرى وهو حاليا 1500 قم بالضغط على زر تعديل صلاحيات الحذف والتعديل فعند الضغط يتطلب منك رقم سرى هو نفس الرقم السرى للعم الفنى 123 حيث ان هذه الشاشة من اعمال الدعم الفنى وليس من حق اى مستخدم الاطلاع عليها وبعد ادخال الباسورد 123 سيظهر لك فورم به عدة خيارات ستجد منها الرقم السرى لأغلاق الفتراه المحاسبية قم بتعديل الرقم من 1500 الى ما تشاء ثم اضغط ايقونة تغيير الرقم السرى الان اتمنى ان يكون الشرح واضح زادكم الله من علمه

السلام عليكم اقدم لكم الدرس الثانى شاشة تسجيل قبض نقدى من الشاشة الرئيسية قم باختيار مقبوضات ستظهر لك شاشة المقبوضات اضغط على تسجيل سند قبض نقدى ستظهر لك شاشة تسجيل قبض نقدى قم بالضغط على زر جديد ثم قم بتعبئة تاريخ المستند ويجب ان يكون التاريخ بعام 2014 م قم باختيار الصندوق من القائمة المنسدلة بالخلية D3 ثم قم باختيار نوع الحساب الرئيسى من الخلية B4 من خلال الضغط دبل كليلك بالخلية سيظهر لك فورم بحث قم بكتابة اى حرف من اسم الحساب سيظهر لك الحساب المطلوب وقم بالضغط على ادراج مثلا قم باختيار حساب رئيسى ( العملاء) وبنفس الطريق قم باختيار الحساب الفرعى من الخلية C4 من خلال الضغط دبل كليك بالخلية سيظهر لك فورم بحث قم بكتابة اى حرف من اسم العميل سيظهر لك قائمة بأسماء العملاء قم باختيار العميل المطلوب ثم الضغط على اختيار ثم كتابة المبلغ بالارقام بالخلية B5 ثم كتابة شرح للسند بالخلية B6 ثم بعد الانتهاء من كتابة بيانات السند كامله قم بالضغط على زر حفظ ثم قم بالضغط على طباعه السند او طباعه القيد اذا كنت تريد سند جديد قم بالضغط على زر جديد كما يمكنك استخدام عملية البحث من خلال كتابة رقم القيد الذى تريده بالخلية E2 ثم الضغط على زر البحث فاذا كنت تريد من عملية البحث طباعه القيد فقم بالضغط على زر الطباعه السند او القيد واذا كنت تريد من عملية البحث تعديل القيد قم بتعديل ما تشاء من البيانات ثم قم بالضغط على زر تعديل ارجوا ان اكون وفقت فى الشرح واتمنى لكم التوفيق

السلام عليكم سأقوم بشرح كيفية استخدام البرنامج الدرس الاول فى الشاشة الرئيسية قم بكتابة اسم الشركة الخاصه بك بالخلية Q2 سيقوم البرنامج بأظهارها بكل اوراق العمل وفى طباعه السندات والتقارير مما لا شك فيه فى اى برنامج محاسبى لابد من تعريف اسم حساب جديد ويكون ذلك من خلال الشاشة الرئيسية - اختارشاشة اضافه حساب - ستظهر لك شاشة بها عدة خيارات فمثلا اضافه اسم عميل قم بأضافه اسم الفرع و اسم العميل فأذا قمت بكتابة اسم الفرع فقط ستظهر لك رسالة الرجاء ادخال اسم العميل بالصف....... فأذا قمت بكتابة اسم العميل فقط ستظهر لك رسالة الرجاء ادخال اسم الفرع بالصف ... وبعد ادخال اسم العميل والخروج من الشاشة والعوده الى الرئيسية او العوده الى شاشة اضافه حساب جديد سيقوم البرنامج بحفظ اسم العميل فاذا قمت بالدخول مرة اخرى الى شاشة اضافه عميل وحاولت الغاء اى اسم من اسماء العملاء ستظهر لك رسالة ERORR اى لا يمكنك حذف العميل واذا كنت تريد تعديل أسم العميل قم بالضغط على اسم العميل الذى تريده تعديل اسمه دبل كليك سيظهر لك فورم بحث واستبدال قم بكتابه الاسم الجديد الذى تريده وثم اختيار ادراج سيقوم البرنامج بتغيير الاسم فورا وايضا تغيير اسم العميل بقاعدة البيانات وميزان المراجعه كما انه لا يسمح بتكرار اسم العميل فو قمت بتسجيل اسم عميل ويوجد اسم عميل مسبقا بنفس الاسم سوف يقوم البرنامج باظهار رساله بتغيير اسم العميل لعدم التكرار وهكذا فى باقى الشاشات لاضافه اى حساب الى اللقاء بالدرس الثانى وهو كيفية العمل على سندات القبض والصرف اتمنى لكم التوفيق

منذ ان نشأ بخاطرى عمل برنامج محاسبى بعد عمل دام 200 يوم من تاريخ 10-3-2014م وحتى تاريخ اليوم أقدم لكم هذا البرنامج المتواضع أهداء لكل الاساتذه والاخوة بالمنتدى هو الاصدار الاول من الجزء الاول من برنامج EMA بالادارة المالية ادعو الله ان اكون وفقت بهذا العمل ويكون نفع للجميع أود أن اشكرك كل القائمين على هذا المنتدى هذا الصرح العظيم وكل القائمين علية وأخص بالذكر العلامه القدير / استاذنا / عبدالله باقشير والاستاذ / محمد طاهر والاستاذ الفاضل / رجب جاويش والاستاذ/ عبدالله المجرب والاستاذ / طارق محمود والاستاذة / أم عبدالله والاستاذ / محمود الشريف والاستاذ / حمادة عمر والاستاذ / ضاحى الغريب والاستاذ/ ابراهيم ابوليله والاستاذ / سليم حاصبيا والاستاذ/بن علية حاجى والاستاذ/ محمود حموده وكل الاساتذه بهذا الصرح المبارك جعله الله فى ميزان حسانتكم أتمنى من الاخوة كتابة اى تعليق او ملاحظه او أخطا تم اكتشافه لا يتردد لحظة بمراسلتى سوف اقوم بعملية الشرح لكيفية العمل واستخدام البرنامج وانتظرو الجزء الثانى من البرنامج ( المخازن-والمشتريات-والمبيعات) فى نفس الملف واليكم البرنامج على امتداد XLSB الرقم السرى 123 اتمنى منكم دعوه صادقه من القلب لى ولوالدى EMA.zip

الاستاذ القدير والعلامه الكبير بارك الله فيك وزداك من لى استفسار ماذا يعنى الرقم 103 بالداله

اخى الحبيب بعطي لك مثال انت الان بخليه وليكن C3 وتريد عمل بها معادله جمع B2+B3 مثلا لو قمت بتسجيل مكرو ستجد الكود كالتالى [C3]=Rc[-1]+R[-1]c[-1] الشرح [Rc[-1 وهى تشير الى الخليه B3 R تعنى الصف C تعنى العمود الخلية B3 اين يكون موقعها بالنسبة للخلية C3 تكون على نفس الصف فنكتب R فقط ولكن ليس نفس العمود فهى تقع بالعمود B فنكتب[ C[-1 أى العمود اللى قبله فيصبح [Rc[-1 وهكذا بالنسبة [R[-1]c[-1 فهى تشير الى الخليه B2 الخلية B2 اين موقعها من C3 هى ليست على نفس الصف فهى بالصف اللى قبله وهو رقم 2 [R[-1 ولا نفس العمود فهى بالعمود 2 [C[-1 اتمنى ان تكون وضحت الفكرة

اخى الكريم اتمنى من القائمين على هذا الصرح العظيم ان يكون هناك خاصيه للتواصل بين الاعضاء عن طريق الميك فالشرح باكتابة اصبح كتير جدا من وقت ومشقة بالكتاب وصعوبة توصيل المعلومه للمتلقى ولكن بوجه لكل القائمين على المنتدى تفعيل التواصل بين الاعضاء بالميك

اخى الحبيب قم بتسجيل ماكرو ثم قم بعمل معادله باى خليه وبعد الانتهاء من المعادله قم وبق تسجيل الماكرو ثم اذهب الى محرر الاكود فيجوال بيسك وشاهد المودويل كيف تم كتابه المعادله بالماكرو سيتضح لك ماذا يعنى الرقم الى بعد R و C جرب وعلمنى

اخى الكريم هذال الكود يكون بحدث ورقه عمل If Target.Column = 6 Then وهذا يعنى لو حصل اى تغيير بالخلايا الواقعه بالعمود 6 وهى العمود F قم بتنفيذ الاتى 'Cells(Target.Row, 7).Value = "=R1015C5" اى الخليه المقابله لها بالعمود 7 وهو العمود G نفذ بها هذه المعادله وهى RC R تشير الى الصف C تشير الى العمود End If ارجوا ان اكون وصلت المطلوب لحضرتك

اخى الحبيب لا يوجد ملف قم باعادة الرفع مره اخرى

اخى فى الله الاستاذ / محمد الريفى ما شاء الله عليك من ابداع الى ابداع ومن تقدم الى تقدم بالتوفيق دائما وجعله فى ميزان حسناتك

اخى الحبيب بارك الله فيك كلنا نتعلم من بعضنا البعض بارك الله فى القائمين على المنتدى

اخى الكريم انت عملت تحديد للمدى من Range("A3:K100000").ClearContents وانا ملاحظ ان العمل كله على عمودين هما A .B فقم بتغيير المدى الى Range("A3:b100000").ClearContents واذا كان ولابد من Range("A3:K100000").ClearContents فتأكد من عدم وجود حماية للورقة

Sub ÍÝÙ() Application.ScreenUpdating = True Dim Lr As Integer Dim nr As Integer Lr = [a100000].End(xlUp).Row Range("A3:b" & Lr).Copy nr = Sheets("ÇáãÈíÚÇÊ ÚÇã").[a100000].End(xlUp).Row + 1 Sheets("ÇáãÈíÚÇÊ ÚÇã").Range("A" & nr).PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "Êã ÇáÍÝÙ ÈäÌÇÍ", vbOKOnly, "ÊäÈíÉ" Range("A3:K100000").ClearContents End Sub جرب هذا الكود بعد التعديل

Lr = [b100000].End(xlUp).Row قم بتغيير b100000 الى a100000 ثم تعديل Range("A3:l" & Lr).Copy الى Range("A3:b" & Lr).Copy قم بتغيير 1 الى حرب b

Lr = [b100000].End(xlUp).Row قم بتغيير b100000 الى a100000 ثم تعديل Range("A3:l" & Lr).Copy الى Range("A3:2" & Lr).Copy

اخى الكريم هل هذا الكود يعمل على ورقه عمل محمية بباسورد اذا كانت الورقه محمية فالخطأ بالكود هو Range("A3:K100000").ClearContents ويجب وضع كود فك الحماية ثم غلق الملف مرة اخرة

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

السلام عليكم اخى الكريم هذا يشير الى اخر خلية بها بيانات

اخى الكريم أ/ محمود الشريف بارك الله فيك وزادك من علمه عمل أكثر من رائع بالتوفيق دائما

الاستاذ / شوقى ربيع الماكرو عندى منخفض وكل الملفات الاخرى تعمل بكفاءة وما ادرى وين المشكله عند تغيير التحديد لاى خلية يفتح محرر الاكود وتاتى رسالة خطا

الاخ الكريم الاستاذ/ شوقى ربيع بارك الله فيك وزادك الله من علمة الملف لا يعمل وبه مشكله الرجاء متابعه الملف وشكرا لتعاونكم

الاخ الكريم الاستاذ/ سليم حاصبيا بارك الله فيك وزادك الله من علمة تقبل تحياتى

اخى الكريم واستاذى سليم شكرا لتعاون حضرتك اليك الملف به المطلوب لوائح منسدلة مترابطة.zip