nazo2007

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

السلام عليكم ورحمة الله وبركاته،،، وبعد انقطاع طويل عن المنتدى الرائع لظروف خاصة ارجو ان يكون الجميع بصحة وعافية ادخل في الموضوع : انا ناوي اعمل ملف اكسل به بيانات الموظفين مقسمه على عده اوراق كل ورقه تحوي بيانات معينة مثل البيانات الشخصية و بيانات التوظيف و بيانات الراتب و بيانات الاجازات ... الخ والفكرة هي انا اعمل واجهات تقارير بواسطة VBA تطلع لي بيانات الموظف المطلوب بمجرد اختيارة من الواجهة . بسب انا اريد هذه البيانات تظهر في ملف نص و تطبع مباشرة ؟! فهل هذا ممكن ؟ اتمنى مساعدتكم ولكم جزيل الشكر مقدما

جزاك الله الف خير اخ ابو اسامة مشكور و ما قصرت ولا بتقصر ولا انته من اهل التقاصير

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

اللهم آمين

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

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

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

اولا : اخ ابو اسامة في مشكلة عندي انه لا الدالة الاولى رحلت ولا الثانية عندما اطبقها عندي ماادري ممكن بسبب ان الشرط (X = Sheets(MYsheet).Cells(Rows.Count, 1).End(xlUp).Row + 1) لا يعمل وانا حاس انك ما فهمت الفكرة الي ابغاها بالضبط لانه انا ابغا الترحيل يتم الى التنسيق الذي عملته في الورقة الخاصة بالموظف (انظر الورقة C4001) ثانيا : اخ احمد يعقوب : يا أخي انته عبقري بس صار عندي شوية لخبطه ليش انشأت ورقة جديدة وليش اضفت عمود جديد فيها وكمان ليش شرط الخلية الحمراء وهل من الممكن ان تعطيني بعض الوقت بس عشان افحص الشفرة ولنا حديث وثالثا : شكرا شكرا لمجهودكما ايها الاخوين العزيزين ابو اسامة و احمد يعقوب واتمنى ان لا اكون طالبا ثقيلا عليكما

مشكور اخ ابو اسامة بس في مشكلة انه انا عندي الخلايا التي فيها بيانات في الواجهة main ليست كلها في عمود واحد علشان الدوران For علشان كذا لو تكون الشفرة باستخدام offset وانا راح اجرب هذه الشفرة التي تكرمت انت فيها و اشوف كيف يمكن ان تضبط معي ومرة ثانية مشكور وكثر الله خيرك

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

يا رجل هذا من بعض ما عند الشباب في هذا المنتدى ما شاء الله علمونا الابداع

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

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

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