ناصرالمصرى

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

اعتقد أن الامر متعلق بالاتى اولا بالكود المدون بالموديول رقم 1 ثانيا بالجزء الاول من الكود المدون بالموديول رقم 2 Sub Call_All() Dim myConfirm myConfirm = MsgBox("هل تريد نسخ التنسيقات", vbYesNo) If myConfirm = vbYes Then MACRO1 والله أعلم مع العلم بأننى أعمل على اوفيس 2007

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

أعضاء ومشرفى منتديات اوفسينا الاعزاء السلام عليكم ورحمته الله وبركاته فى البداية أود أن أشكر كلا من الاخوة الاجلاء القدير ابو خليل والقدير احمد زمان والقدير ياسر خليل والقدير ياسر العربى والقدير العيدروس ابو نصار عما قدموه من مساعدات فى اتمام هذا العمل دون كلل أو ملل الذى لايكتمل الا من خلالهم ومن خلال جميع السادة إخوانى بهذا الصرح التعليمى المبارك وسأبدأ مع حضراتكم من حيث ماأنتهيت بالرابط بالمرفق التالى أضفت شاشة دخول برقم سرى مع شاشة ترحيبية ولكن مع إضافة هذة الشاشة حدث خلل باستدعاء الماكرو Call_All من خلال الضغط على مفتاحى Ctrl + Q حتى يتم البدء فى العمل بالبرنامج لذا أرجو تصويب تلك الجزئية وهناك من الامورالبسيطة التى ستأتى تباعا مع ردود حضراتكم اسم المستخدم " اوفسينا " الرقم السرى " 3333 " شاكر فضل الجميع **** تقبلوا وافر تقديرى واحترامى ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة +666.rar

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

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

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

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

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

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

حبيب فلبى ياسر أدرك حديثك جيدا ولكنى قمت بعدة تعديلات والدليل أن الموضوع أختلف بإضافة هذين السطرين لاخى الفاضل / ابو نصار Set Ws = Sheets("salary"): Tx = "ßÔÝ" وهذا ايضا And Not Trim(Ws.Cells(Rng.Row, 1)) Like "*" & Tx & "*" Then عموما جارى التعديل على الملف الاصلى وافر تقديرى واحترامى

السلام عليكم ورحمته الله وبركاته عذرا إحوانى الافاضل على مايبدو أن السطر التالى له سحر غريب لاأستطيع إستيعابه كما ينبغى If Rng.Borders(xlEdgeRight).LineStyle <> -4142 Then تم التعديل ليشمل الترحيل على عدة أعمدة وتم إضافة صف يحتوى على الاجمالى وصف أخر ليحتوى على جملة ماقبله فما السبيل نحو تعديل السطر المشار اليه لعدم ظهور تلك الصفين مع عملية الترحيل بالورقة " salary " اليكم هذا الملف للتوضيح **** وافر تقديرى واحترامى ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة + 4444.rar

اخى الفاضل ابو نصار اخى الفاضل ياسر العربى جزاكم الله عنى خير الجزاء

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

اخى الفاضل ابو نصار السلام عليكم مع تنفيذ الكود ظهرت رسالة خطأ بهذا السطر تقيل وافر تقديرى واحترامى .[J8].Select ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديد 333.rar

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

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

اخى الفاضل / العيدروس تحية الله عليك نوع الاوفيس 2007 تم بحمد الله تعالى وارجو تفسير السطر الاول من الكود من منطلق لازم نفهم ()مستطلمستدير الزاويا 1 - انقر sub معنى مستطيل مستدير الزاويا وهذا الجزء من السطر (( 4123 - ) Ws.Range("Am8:Am" & L).SpecialCells(-4123)).Copy Sheets("Total").[J8] وافر تقديرى واحترامى اخى ياسر السلام عليكم تم بحمد الله وافر تقديرى واحترامى

للرفع

وعليكم السلام ورحمته الله وبركاته أخى الكريم العيدروس برجاء الافادة بمرفق نظرا لوجود رسالة خطأ بهذين السطرين Union(Ws.Range("C8:C" & L).SpecialCells(2), _ Ws.Range("Am8:Am" & L).SpecialCells(-4123)).Copy Sheets("Total ").[J8] شاكر فضلك مع قبول وافر تقديرى واحترامى

اخوانى الافاضل السلام عليكم ورحمته الله وبركاته الطلب بعد إذن حضراتكم على النحو المبين بالمرفق التالى أرغب بكود ينفذ عملية الترحيل بدون الصفوف الفارغة الظاهرة بين كل مجموعة أسماء من كلا العمودين C و AM بداية من الصف 8 حتى أخر صف به بيانات بالورقة " salary" الى كلا العمودين J و K بالورقة " Total " شاكر فضل حضراتكم تقبلوا وافر تقديرى واحترامى ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة.rar

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

اخى ياسر السلام عليكم جارى تحميل المرفق والله العظيم انا شاكر فضلك فأنتم جميعا تيجان فوق رأسى وافر تقديرى واحترامى

للرفع

ليس صحيحا أخى ياسر جميع المنتديات ظاهرة جلية حاول تنزيل نسخة جديدة تحياتى