ناصرالمصرى

اخى الفاضل / العيدروس تحية الله عليك نوع الاوفيس 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

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

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

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

السلام عليكم الكود بالمرفق الاخير هو قريب لما أريد تم تجربتة على الملف ولكن هناك ملحوظة وهى عند الانتقال من شيت الى شيت " لاحظ حركة تغيير الماوس عند الانتقال من شيت الى اخر" وكأنه يقوم بعملية حفظ اخى الكريم الله يبارك لك اعذرنى لجهلى بكيفية التعامل بالاكواد واليك تصورى فى التنسيق المطلوب واعتقد انه ليس من المحال تنفيذة اولا الورقة 3 المطلوب استدعاء البيانات بنفس تنسيق الورقه 2 من العمود A الى العمود J ثانيا الورقة 4 المطلوب ترحيل البيانات بنفس تنسيق الورقة 3 من العمود E الى العمود V ثالثا الورقة SALARY المطلوب نقل البيانات بنفس تنسيق الورقة 4 من العمود A الى العمود V علما بانه لايوجد إضافة اوراق أخرى بالملف كما يمكنك تجاهل عرض العمود بالكود ويبقى العمل على نوع الخط = Times New Roman وحجم الخط وارتفاع الصف تقبل وافر احترامى وتقديرى

أخوانى الافاضل نرجو الاهتمام بطلبى هذا المشكلة هنا فى عدم تنسيق الملف فهل يوجد كود يوضع بـــ ThisWorkbook من شأنه تنسيق كافة أوراق المصنف أو تعديل كود الاستدعاء إو إضافة أوامر أخرى على نحو يتم توحيد تنسيق الملف من نوع الخط وحجمه وعرض الاعمدة وارتفاع الصفوف تقبلوا وافر احترامى وتقديرى استدعاء وترحيل ونقل بيانات كل عشر ثوانى + 2.xlsb.rar

للرفع رفع الله قدركم

للرفع

للرفع

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

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

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

والله ياأخى أنت الأغلى عفوا بابا لم انتبه لتسمية الشيتات سأجلب لك خرزانة لعقابى حال خطئى مرة أخرى هههههههههههه تم بفضل الله التغلب على الجزئية السابقة وتم التعديل على النحو المطلوب مع تثبيت رؤس الاعمدة كما بالتعديل التالى Sub Bring_Data() Dim i As Long Dim K As Long Dim LastRow As Integer Dim SourceSheet As Worksheet Set SourceSheet = ThisWorkbook.Sheets("sheet3") LastRow = SourceSheet.Range("e" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("E7").Select K = 0 For i = 8 To LastRow + 8 Step 20 SourceSheet.Range("E" & i & ":V" & i + 19).Copy Range("A" & K + i).Select ActiveSheet.Paste K = K + 7 Next Application.ScreenUpdating = True End Sub وهذا التعديل أيضا Sub Clear_Data() Dim LastRow As Integer LastRow = Range("a" & Rows.Count).End(xlUp).Row Range("A8:V" & LastRow).Clear End Sub وهذا السطر بالكود StartTimer Set A = Sheets("sheet4").Columns("E").SpecialCells(2, 1).Areas لقاؤنا القادم بإذن الله لاستكمال أوامر الطباعة أرجو من الله ان يوفقنا لما يحب ويرضى تقبل وافر تقديرى واحترامى