ناصرالمصرى

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

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

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

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

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

للرفع

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

اخى الفاضل الحاج احمد السلام عليكم تمام الله عليك ياحبيب والديك ظهرت رسالة أخرى بالموديول 3 بهذا السطر بعد 10 ثوانى If CurIndex > UBound(Arr) Then كما ارجو ان يكون الانتقال لورقة نقل البيانات تلقائيا بعد الضغط على خيار نعم برسالة نقل البيانات وشاكر فضل حضرتك لمجهودك معى وجزاكم الله خيرا تقبل وافر تقديرى واحترامى

اخى القاضل الحاج احمد السلام عليكم ورحمته الله وبركاته سلمت يمناك ويمنى اخى الكريم ياسر العربى ويمنى القديرالفاضل الحاج / أبو خليل انتم جميعا قيمة علمية نرتوى بعلمهم وقامة عالية يحتذى بها تم تجربة الملفات وبقيت خطوة أخيرة ألا وهى ظهور رسالة خطأ بالموديول رقم 3 عند الانتقال الى رسالة " هل تريد نقل البيانات لطباعة الكشوف "على النحو التالى Set A = Sheets("sheet4").Columns("E").SpecialCells(2, 1).Areas هذا وبعد إذن حضرتك يرجى فضلا بعد تضبيط تلك الجزئية ان يكون الانتقال لورقة نقل البيانات تلقائيا بعد الضغط على خيار نعم برسالة نقل البيانات وشاكر فضل حضرتك وجزاكم الله خيرا تقبل وافر تقديرى واحترامى

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

اخى الفاضل الحاج / احمد السلام عليكم ورحمته الله وبركاته شاكر فضل حضرتك لعودة الروح اليك اخى الفاضل المرفقين الاول بصيغة 2003 والثانى بصيغة XLS تقبل وافر تقديرى واحترامى استدعاء بيانات 111.rar استدعاء بيانات + 111.XLS.rar

السلام عليكم ورحمته الله وبركاته بداية شاكر فضلك وبارك الله فيك وشاكر فضل اخى الكريم احمد زمان واخى الفاضل ابو خليل أدرك انكم مشفقون علىّ بخصوص هذا الموضوع المتوقف على أخر جزئية فى مشروع تخرجى بالنسبة للكود المطروح من أخى الكريم / احمد زمان وماقام به أخى الكريم / ابو خليل من تعديل كلا الكودين يعملان بشكل ممتاز ولكن المشكلة انك لابد أن تدخل على محرر الاكواد أولا لتفعيل عمل الكود من الامر RUN ومن ثم الرجوع للورقة 3 لكى يتم الضغط على Ctrl+q لكى تبدأ العمل بالبرنامج قم باستدعاء البيانات وتتبع الرسائل ومن ثم قم بحذفها وعاود الاستدعاء مرة أخرى ولاحظ تغيير حجم البنط مع عدة محاولات وانظر الفرق وانظر ماذا انت فاعل بهذة المشكلة ملحوظة لقد ذكر اخى الكريم ابو خليل انك تستطيع استدعاء الكود بكتابة عبارة Call macrox فأين يتم وضعها ربما تكون هى الفيصل فى الموضوع تقبل وافر احترامى وتقديرى استدعاء بيانات + 111.xlsb.rar