ناصرالمصرى

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

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

ياعمى خلاص الراجل عرف غلطته كفايه كده " هههههههه " لا حول ولا قوة إلا بالله الراجل دماغة الله يكون فى عونه

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

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

على مايبدو ان الاتجاه على اللغة العربية

اخوانى الافاضل سيتم معرفة السبب وافر تقديرى واحترامى

اخى الفاضل / ياسر خليل الاثنان معا والكود المرتبط بــ Ctrl + Q هو Call All بالموديول رقم 2 استاذى الفاضل / عبد العزيز البسكرى السلام عليكم ورحمته الله وبركاته شاكر جدا جدا مروركم العطربموضوعى هذا هل تقصد حضرتك أن الملف يعمل بشكل جيد مع وجود تلك الشاشة بمعنى انه بعد الدخول من خلال اسم المستخدم وكلمة السر وبالضغط على مفتاحى Ctrl + Q تعمل الاوامر بدون مشاكل ارجو الافادة ***** شاكر سعة صدرالجميع وافر تقديرى واحترامى

أخى ابو البراء السلام عليكم انتظرتك كثيرا وانتظرت مشاركاتك القيمة التى لاغنى عنها فأرجو عدم حرمانى بوضع لمساتك انت وجميع الاخوة الافاضل أخى ياسر ليس هناك خلايا مدمجة ولا نافذة بها كلمة 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