الصـقر

السلام عليكم اذا كان فى مشكله بالماكرو فيجب اولا حلها او عمل نسخه اوفيس جديده

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

السلام عليكم ممكن اعرف انت قمت بالعمل على الملف اللى ارسلته ولا قمت بنقل الاكواد الى الملف الخاص بيك لان الملف اللى ارسلته يعمل بدون اى مشاكل اما اذا كنت قمت بنسخ الاكواد الى ملف الاكسيل الخاص بك وظهرت معك هذه الرساله فيجب اتاكد من انك عملت تصميم عدد 5 فورم ونسخ الاكواد لها + نسخ عدد 3 مودويل + نسخ عدد 1 مودويل كلاس يرجى التاكد او الافاده اذا كنت انا فاهم خطا اما المتطلبات الاخرى فسوف نقوم بعملها بس انا عايز اعملها على الملف بتاعك بعد نسخ الاكواد اليه لتفعيل صلاحيات المستخدمين او تقوم بعمل الجدول وكل ما تريد داخل الملف اللى ارسلته وبعدها اقوم بعمل كل الملاحظات اللى طلبتيه

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

اخى الحبيب شيت المبيعات هو بمثابة فورم ادخال وبعد اتمام عملية الادخال تقوم بالضغط على زر حفظ فيقوم الكود بترحيل البيانات الى شيت عام ( وهذا الشيت بمثابة قادعه بيانات ) ثانيا / ممكن عمل شاشة مقبوضات اى عندما ياتى عميل لسداد مبلغ تقوم بتعبئة بيانات سند القبض ثم تضغط على زر حفظ فيقوم بترحيل البيانات الى شيت عام ( قاعده البيانات ) وكشف الحساب لاى عميل يقوم بجلب كل الحركات التى تمت للعميل سوء مبيعات او سندات قبض فما رائيك فى ذلك

السلام عليكم اليك مرفق يحدد صلاحيات المستخدمين قم بعمل الجدول باى من الصفحات الموجوده جرب وبانتظار الرد الدعم الفنى انت فقط من يقوم بالعمل علية ويسمح لك بكل شئ صلاحيات المستخدمين - الاصدار 2.zip الشرح.zip

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

اخى الحبيب اليك هذا الملف فهو قريب لما تبحث عنه قم بتعديل الجدول الادخال بشكل الذى تريده وانتظر منك ما تريد تعديله كشف حساب عميل.zip

الاخ الحبيب السلام عليكم الرجاء ارفاق ملف حتى يتثنى للاساتذه بالموقع تلبية طلبك

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

ما شاء الله كود اكثر من رائع بارك الله فيكم وزادكم الله من علمه

استاذنا الكبير / جمال عبدالسميع السلام عليكم ورحمة الله وبركاتة صدقت بكل حرف كتببتة فالمنتدى ملئ بما لا يقل عن 90% من الاسئلة التى يتم طرحها يوميا ولكن بعض الاخوة لا يقوم بعملية البحث ولا التفكير والتعلم بما يريد فهدف المنتدى الاول هو العلم والتعلم فانا لى اقتراحان الاول: الى الاستاذه الافاضل بالمنتدى / ان امكن شرح اى كود بالفيديو فجزاهم الله خيرا وذلك تيسيرا لتحصيل العلم بين الاعضاء والثانى : الى الاخوة الاعضاء بالمنتدى / اتبع الحكمة الاتية لاتعطنى سمكة ولكن علمنى كيف اصطاد وأسف للاطاله أخوكم / حسام عيسى

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

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

السلام عليكم اخى الحبيب / صلاح الدين يجب عليك اولا ان تبدأ مشروعك بنفسك ثم تطلب معاونة الاخرين قم بعمل ملف وحاول الاطلاع داخل المنتدى على كيفية عمل الفاتورة بما اكثر الملفات داخل المنتدى على ذلك العمل ابحث وابداْ بالعمل ونحن معك وفقك الله

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

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

اخى الفاضل / اليك الكود كم بنسخ الكود ومن الفيجوال بيسك اعمل ادراج مودويل جديد وقم بلصق هذا الكود به ثم الذهب لكل صفحه وادرج عدد 2 زر / الزر الاول اضغط علية كليك يمين واختار تعيين ماكرو ثم اختار معاينة / الزر الثانى اضغط علية كليك يمين واختار تعيين ماكرو ثم اختار طباعه () معاينة Sub HIDE_BLANK ActiveSheet.PrintPreview UNHIDE_BLANK End Sub () طباعه Sub HIDE_BLANK ActiveSheet.PrintOut UNHIDE_BLANK End Sub ()Sub HIDE_BLANK ActiveSheet.Range("$A$1:$H$45").AutoFilter Field:=1, Criteria1:="<>" Range("A1").Select End Sub ()Sub UNHIDE_BLANK ActiveSheet.Range("$A$1:$H$45").AutoFilter Field:=1 Range("A1").Select End Sub

السلام عليكم استاذى الفاضل اولاً كل عام وانت بخير اسال الله ان يمن عليك برحمة هذا الشهر ويغفر لك ويجعلك من العتقاء من النار ثانيا : كم انت مبدع ورائع بحق زادك الله من علمه ووفقك الى ما فيه الخير جربت الملف والكود رائع وقمت بوضع سؤال بالكود يسال المستخدم عن باسورد لاتمام عمليه التعديل / ولكن بقى شئ وهو يسمح للمستخدم اضافه اسم جديد ولا يسمح بتعديل الاسم او حذفه الا من خلال الفورم هل بالامكان ذالك وشكرا جدا على تعاون حضرتك فنحن تلاميذك بالمنتدى

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

استاذى الفاضل / ابوعبدالله السلام عليكم اولا اود ان احييك على هذا المجهود الرائع فانت بحق مبدع وعلامه لضيق الوقت لم اتمكن من تصفح جميع الاكود للتعلم منها ولكن قمت فقط بمشاهدة قيود اليومية ولى بعض الملاحظات عليها عند تسجيل قيد يومية يمكن ان اقوم بوضع مبلغ بالمدين ومبلغ بالدائن فى بنفس الصف وهذا فى المحاسبة غير منطقى فيجب اما وضع مبلغ مدين او مبلغ دائن للحساب وذلك يكون بالكود التالى Dim ws As WorksheetFunction Dim Lr As Integer Set AA= WorksheetFunction Lm= [A311].End(xlUp).Row For Ww = 12 To Lm Ww: Exit Sub & " يجب وضع مبلغ فى المدين او الدائن بالصف " If AA.CountA(Range("E" & Ww & ":F" &Ww)) = 2 Then MsgBox وذلك حتى تجبر المستخدم على وضع مبلغ فى خانة المدين او خانة الدائن ثانيا : فى حسابات تحتاج الى مراكز تكلفه مثل المصروفات وحسابات اخرى لا تحتاج ربطها بمراكز تكلفه مثل الصناديق فى هذا البرنامج يسمح بوضع مركز تكلفه على اى حساب وهذا محاسبيا خطا فلابد من وضع كود يجبر المستخدم بادخال مركز تكلفه لو الحساب كان مصروف مثلا فلا يقوم بحفظ القيد الا بوضع مركز تكلفه وايضا وضع كود يجبر المستخدم بعدم ادخال مركز تكلفه لو كان الحساب صندوق مثلا فلا يقوم بالحفظ اذا تم وضع مركز تكلفه بصف حساب الصندوق Ww: Exit Sub& " الرجاء ادخال مركز تكلفه بالصف " And Cells(Ww, "C") = "" Then MsgBox "مصروفات" = (If (Cells(WW, "A Ww: Exit Sub& "الرجاء عدم وضع مركز تكلفه بالصف " And Cells(Ww, "C") <> "" Then MsgBox "صندوق" = (If (Cells(Ww, "A واسف جدا لحضرتك ولكن هذا العمل المبدع من حضرتك لا يقوم به الا عالم ذادك الله من علمه وسوف اقوم بمرجعة البرنامج كله ان شاء الله وتجربتة واقوم بافادتك باى ملاحظات اخوك / حسام عيسى

الاخت الفاضله / ام بسمة احنا كلنا فى المنتدى بنتعلم من بعض جربى الملف وان شاء الله يكون هو المطلوب واى تعديل او ملاحظة انا موجود 22ان شاء الله الاخير - Copy.zip

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

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

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