twaiti

مشكور استاذ محمد الدسوقي على تفاعلك معي هذا هو المطلوب تحياتي

السلام عليكم ورحمة الله ارجوا المساعدة في الملف المرفق اريد ان تجتمع مجتويات الخلايا في خانة واحدة twaiti.xlsx

شكرا لك نبهتني الى امر مهم والحمد لله انحلت المشكله عملت للملف تحويل وظهرت بقية الاعمدة

مالاحظته ان لديا ملفات امتدادها xlsx وهذا الامتداد الاعمده فيه موجوده من بعد iv والملف الذي انا بصدده الامتداد فيه xls هل يعني ذلك ان الملف تحتاج الى تحويل الى التنسيق xlsx

الاوفس المحمل عندي في الكمبيوتر 2013 افتحه عندك اذا كان الاوفس لديك حديث هل تقصد ان الملف تم انشائه باستخدام اوفس 2003

لديا ملف اكسل لا واحتاج في صفحة اليومية يكون عددها اكثر من الموجود حيث ان نهاية عمود في الصفحة IV ارجوا المساعدة لاظهار باقي الاعمدة حيث ان احتاج اعمدة ولم استطع ادارج عمود الملف مرفق لكم مديرية ارحب 2020م.rar

السلام عليكم ورحمة الله وبركاته معي نموذج اشتغل عليه عملي في المالية يشمل على تقارير مطلوبة وبالتالي هناك صفحة ادخال البيانات اسمها اليومية وصفحة التقارير بحسب المكتب والتاريخ من خلالها احصل على التقارير الملف برنامج محاسبي حكومي فيه الموارد والاستخدامات لها عدة تبويبات نقدر نسميها مراكز تكلفه مثلا ولكن يجب التقيد باشكال التقارير الموجودة المطلوب ياليت اذا بالامكان يكون عندي شاشة ادخال يتم الترحيل منها مساعدة في تبسيط النموذج على ان يلبي الاحتياج وكمان اريد ان تكون شموليته للاضافات مقبولة ارجو ممن لديهم الخبرة مديرية ارحب 2019.rar

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim My_String As String My_String = "" If Not Intersect(Target, Range("A:A")) Is Nothing Then m = Target.Count c = [AA1] k = tt If IsEmpty(k) Then GoTo 1 If m * c >= 1 Then Application.EnableEvents = False my_pass = Application.InputBox(" لا يمكن التعديل في هذه الخلايا.... الا بحالات خاصة تتطلب كلمة مرور", "password") If my_pass <> "pass" Then If Not (IsArray(k)) Then My_String = k Else For x = LBound(k, 1) To UBound(k, 1) My_String = My_String & k(x, 1) & "," Next My_String = Left(My_String, Len(My_String) - 1) End If MsgBox "اسف كلمة المرور غير صحيحة" & Chr(10) & " سيتم اعادة الخلايا الى قيمتها الاصلية: " & Chr(10) & My_String, _ vbMsgBoxRtlReading + vbInformation + vbMsgBoxRight, "ســليم حاصــبيّا يبلغك :" Application.Undo GoTo 1 End If End If End If 1: Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) tt = Selection.Value End Sub هدا هو الكود

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

مشكور على مجهودك واتمنى لك التوفيق

مشكور على مجهودك الرائع والى الامام

مشكور اخي خبور على برامجك المميزة وجاري التحميل

مشكور على المجهود الرائع

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

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

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

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

مشكور اخي وجعله الله في ميزان حسناتك

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

تحياتي لك اخي خبور مع الاضافات التي عملتها ولكن حساب الارباح والخسائر مازال لايستوعب سوى خمسين حساب ارجو ان تضع ملاحظتي بعين الاعتبار ونظرا لعدم وجود دليل محاسبي مما يظطرنا لعمل حساب برقم لكل من الحسابات تحياتي لك والى الامام الاخ خبور المحترم بالنسبة للتعديل على القيد ففي البرنامج السابق كان هناك صعوبه من ناحية التعديل ابسطها لك بالمثال الاتي اذا كان لديك القيد الاتي 50000 من حـ مصروفات نثرية 50000 الى حـ الصندوق وكان لزاماً عليك التعديل الى 15000 من حساب مصروفات نثرية 35000 من حـ مصروفات صيانه 50000الى حـ الصندوق يعني لابد من وجود سطر جديد لكتابة القيد بشكله الحالي ولكن عندما اضفت سطر جديد لاحظت عدم ظهور الحساب الذي ياخذ السطر الثالث ومع ذلك يتم قبول التعديل ولكن في النهايه يتم ضهور الفارق في الميزانيه لعدم ترحيل الحساب الذي اخذ السطر الثالث ارجو معالجة الموضوع لا اعرف اذا كنت قد عالجته في برنامجك الجديد ولكن ولاى ان اجربه ارجوا تلافي مثل هذه المشكله

تحياتي لك اخي خبور مع الاضافات التي عملتها ولكن حساب الارباح والخسائر مازال لايستوعب سوى خمسين حساب ارجو ان تضع ملاحظتي بعين الاعتبار ونظرا لعدم وجود دليل محاسبي مما يظطرنا لعمل حساب برقم لكل من الحسابات تحياتي لك والى الامام الاخ خبور المحترم بالنسبة للتعديل على القيد ففي البرنامج السابق كان هناك صعوبه من ناحية التعديل ابسطها لك بالمثال الاتي اذا كان لديك القيد الاتي 50000 من حـ مصروفات نثرية 50000 الى حـ الصندوق وكان لزاماً عليك التعديل الى 15000 من حساب مصروفات نثرية 35000 من حـ مصروفات صيانه 50000الى حـ الصندوق يعني لابد من وجود سطر جديد لكتابة القيد بشكله الحالي ولكن عندما اضفت سطر جديد لاحظت عدم ظهور الحساب الذي ياخذ السطر الثالث ومع ذلك يتم قبول التعديل ولكن في النهايه يتم ضهور الفارق في الميزانيه لعدم ترحيل الحساب الذي اخذ السطر الثالث ارجو معالجة الموضوع لا اعرف اذا كنت قد عالجته في برنامجك الجديد ولكن ولاى ان اجربه ارجوا تلافي مثل هذه المشكله

العفو منك كماهو مبين في الصوره اضافة حسابات لا اعرف اين ذهبت الاجماليات سوف ارفق لك البرنامج بعد اضافة الحسابات لترى ما صار اليه الحال ولاحظ ان حساب الاحتياطي اصبح رقمه 47 لاني اضطريت ان اضيفه في الاخير وحساب السلف الدائنه تم الاستغناء عنه وبالامكان اضافته في الاخير ____________________.rar

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

مشكور عزيزي على ابداعك وتفانيك المميزين وبصراحه عمل جبار نسأل الله ان يجعله في ميزان حسناتك سوف اطلع على التعديل الاخير وان شاء الله نوافيك باي تعديل اذا لزم الامر كي نصل واياك الى عمل مميز تفتخر به ونستفيد منه بارك الله فيك

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