nazo2007 قام بنشر أبريل 5, 2009 قام بنشر أبريل 5, 2009 الاخوة الاعزاء ...شاكرا ومقدرا في البداية لكل مجهودات الجميع و التي افادتني كثيرا في اكتساب العديد من المهارات وكذا اقدم شكري وامتناني للاخوة المشرفين الافاضل حيث قمت بالاستعانة بالعديد من شفراتهم في تنفيذ برنامجي المرفق بهذا الموضوع ولا اطيل عليكم ياسادة ياكرام انا وصلت الى مرحلة بديت فيها اهلوس حيث عملت كل شي على حسب علمي و لكن بقي معي مشكلة في الترحيل اود مساعدتكم فيها فلا يبخل علينا من لديه المساعدة وانتم كثير ان شاء الله المطلوب في المرفق مع الشكر للجميع New_Folder.rar
ابو اسامة العينبوسي قام بنشر أبريل 5, 2009 قام بنشر أبريل 5, 2009 السلام عليكم اود شكرك على تصميمك وتنسيقك الجميل
nazo2007 قام بنشر أبريل 6, 2009 الكاتب قام بنشر أبريل 6, 2009 يا رجل هذا من بعض ما عند الشباب في هذا المنتدى ما شاء الله علمونا الابداع
احمدزمان قام بنشر أبريل 6, 2009 قام بنشر أبريل 6, 2009 السلام عليكم اود شكرك على تصميمك وتنسيقك الجميل السلام عليكم و رحمة الله وبركاته معليش المطلوب محتاج توضيح اكثر الترحيل يتم الى صفحة بيانات الموظفين او الى الورقة التي تحمل رقم الموظف
nazo2007 قام بنشر أبريل 6, 2009 الكاتب قام بنشر أبريل 6, 2009 لا اخوي احمد ابغاها الى الورقة التي تحمل رقم الموظف وذلك عند الضغط على زر POST انا تقريبا عملت اقصى ما عندي بس لما تجي تبغا تضيف بيان اخر لنفس الموظف ما يجي في السطر الي تحت البيان السابق بل في نفس المكان اتمنى انك فهمت ما اقصد
ابو اسامة العينبوسي قام بنشر أبريل 6, 2009 قام بنشر أبريل 6, 2009 (معدل) السلام عليكم هذا مثال ان كان المطلوب نكمل غير الاسم في |B1 main الى الاسم الذى تريد الترحيل اليه MYsheet = Cells(1, 2).Text X = Sheets(MYsheet).Cells(Rows.Count, 1).End(xlUp).Row + 1 With Sheets(MYsheet) For Y = 1 To 7 .Cells(X, Y) = Cells(Y, 2) Next Y End With يتم الترحيل الى الاسم المحدد Test_it.rar تم تعديل أبريل 7, 2009 بواسطه ابو اسامة العينبوسي
nazo2007 قام بنشر أبريل 7, 2009 الكاتب قام بنشر أبريل 7, 2009 مشكور اخ ابو اسامة بس في مشكلة انه انا عندي الخلايا التي فيها بيانات في الواجهة main ليست كلها في عمود واحد علشان الدوران For علشان كذا لو تكون الشفرة باستخدام offset وانا راح اجرب هذه الشفرة التي تكرمت انت فيها و اشوف كيف يمكن ان تضبط معي ومرة ثانية مشكور وكثر الله خيرك
ابو اسامة العينبوسي قام بنشر أبريل 7, 2009 قام بنشر أبريل 7, 2009 السلام عليكم ممكن تعدل علعى هذا كما تريد MYsheet = Cells(1, 2).Text X = Sheets(MYsheet).Cells(Rows.Count, 1).End(xlUp).Row + 1 With Sheets(MYsheet) .Cells(X, 1) = Cells(1, 2) .Cells(X, 2) = Cells(2, 2) .Cells(X, 3) = Cells(3, 2) .Cells(X, 4) = Cells(4, 2) .Cells(X, 5) = Cells(5, 2) .Cells(X, 6) = Cells(6, 2) .Cells(X, 7) = Cells(7, 2) End With
احمدزمان قام بنشر أبريل 7, 2009 قام بنشر أبريل 7, 2009 السلام عليكم صباح الخير للجميع اخي ابو اسامة انا فهمت الموضوع بطريقة اخرى اخي الفاضلnazo شاهد المرفق الخلية لاحمراء اذا اكتملت البيانات تصبح خضراء عندها يمكنك ترحيل البيانات تم اضافة عمود لكل صفحة وتم اضافة ورقة جديدة لنا حولهما حديث بعد تجربة الترحيل ________Xl0000016nazo2007.rar
nazo2007 قام بنشر أبريل 7, 2009 الكاتب قام بنشر أبريل 7, 2009 اولا : اخ ابو اسامة في مشكلة عندي انه لا الدالة الاولى رحلت ولا الثانية عندما اطبقها عندي ماادري ممكن بسبب ان الشرط (X = Sheets(MYsheet).Cells(Rows.Count, 1).End(xlUp).Row + 1) لا يعمل وانا حاس انك ما فهمت الفكرة الي ابغاها بالضبط لانه انا ابغا الترحيل يتم الى التنسيق الذي عملته في الورقة الخاصة بالموظف (انظر الورقة C4001) ثانيا : اخ احمد يعقوب : يا أخي انته عبقري بس صار عندي شوية لخبطه ليش انشأت ورقة جديدة وليش اضفت عمود جديد فيها وكمان ليش شرط الخلية الحمراء وهل من الممكن ان تعطيني بعض الوقت بس عشان افحص الشفرة ولنا حديث وثالثا : شكرا شكرا لمجهودكما ايها الاخوين العزيزين ابو اسامة و احمد يعقوب واتمنى ان لا اكون طالبا ثقيلا عليكما
احمدزمان قام بنشر أبريل 7, 2009 قام بنشر أبريل 7, 2009 السلام عليكم تم اضافة عمود لكل صفحة وتم اضافة ورقة جديدة لنا حولهما حديث بعد تجربة الترحيل
nazo2007 قام بنشر أبريل 7, 2009 الكاتب قام بنشر أبريل 7, 2009 السلام عليكم .. اخ احمد يعقوب شاكر ومقدر مجهودك معي جربت الطريقة التي تفضلت بها علينا و هي ناجحة مية بالمية بس في شي واحد فيها هو انك انت تقريبا قمت بتنسيق الورقة بنفسك يعني تجاهلت انشأها عن طريق الماكرو بس انا جربت على النسخة الي عندي و ضبطت معي بعد عدت تجارب والان انا جاهز للحديث عن ما قمت به لعل هناك شي يخفى علي لم افهمه في البداية معي تقدير الشديد لك و للاخ ابو اسامة واتمنى ان يستمر تطوير هذه النسخة من قبل الجميع كما اود ايضا ان أسأل عن كيف ادرج دالة التجميع SUM بالمكرو لعمود الرصيد
احمدزمان قام بنشر أبريل 7, 2009 قام بنشر أبريل 7, 2009 بسم الله الرحمن الرحيم نبدأ بموضوع الورقة المضافة وهي Origenal انا لاحظت انك عملت ماكرو يقوم بادراج ورقة جديدة لكل حساب وثم يقوم بتنسيقها بالكامل من جديد ثم يقوم باعادة تسميتها هو عمل ممتاز ولكن اختصارا كما شاهدة في احد ملفات الأستاذ خبور خير يتم عمل الورقة وتنسيقاتها كاملة و جاهزة ثم اخفائها وعند عمل كشف حساب جديد يتم التالي فتح الورقة المخفية و انشاء نسخة جديدة منها ثم تسمية النسخة الجديدة برقم الموظف ثم اخفاء الورقة الأصلية مرة اخرى
احمدزمان قام بنشر أبريل 7, 2009 قام بنشر أبريل 7, 2009 (معدل) الآن بالنسبة لموضوع العمود الذي تم اضافته دور هذا العمود هو اخفاء بقية الصفوف التي لايوجد بها بيانات في المرفق تم تعديل كود الترحيل بحيث انه بعد عملية الترحيل يقوم باخفاء بقية الصفوف الفارغة وتبقى الصفوف التي بها بيانات فقط و صف المجموع وذلك باستخدام التصفية آمل التجربة ________Xl0000016nazo2007.rar تم تعديل أبريل 7, 2009 بواسطه احمد يعقوب
nazo2007 قام بنشر أبريل 8, 2009 الكاتب قام بنشر أبريل 8, 2009 اخي العزيز : احمد يعقوب انا اسف لتأخري في الرد بسبب بعض المشغوليات وكلام جميل جدا وانا مقتنع به ولكن هناك مشكله واحدة وهي مثل ما شاهدة في التنسيق الذي عملته انا حيث اني اهدف لجعل الصفحة الخاصة بالموظف تزداد تلقائيا كلما تم اضافة بيان له واما بخصوص اخفاء بقية الصفوف الفارغة فأنا ايضا سوف ادخل شرط في معادلة الترحيل بحيث اذا كان نوع المدخل سلفه توضع في debit واذا كان النوع استقطاع يوضع البيان في Credit مع مراعاة ايضا وضع شرط اخر لا يسمح بالترحيل الا عند استكمال جميع البيانات هذا ولك جزيل الشكر والتوفيق
احمدزمان قام بنشر أبريل 8, 2009 قام بنشر أبريل 8, 2009 اخي الفاضل بالتوفيق ان شاء الله انا حبيت ابدي اقتراحاتي ولك حرية الإختيار جزاك الله خيرا
nazo2007 قام بنشر أبريل 12, 2009 الكاتب قام بنشر أبريل 12, 2009 كلمات الشكر لا تكفي للتعبير عن مدى الامتنان لك اخ احمد يعقوب وبالتوفيق للجميع ان شاء الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.