ناصرالمصرى

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

اخى الغالى ياسر العربى السلام عليكم عادة لاأعلق على وجود خطأ ما من باب الاحترام لمن يقدم مالديه من حلول فجزاك الله خيرا ولكنى أدخل فى صلب الموضوع ومن أجل ذلك تم تنقيح المرفق واعداده من جديد حتى يسهل الوصول لحل المشكلة وبالفعل تم الوصول بإضافة هذان السطرين ولنعتبر هذا الحل حل مؤقت نظرا لآنك ستقوم بتنسيق جميع الملفات يدويا وليس تلقائيا Arr = .PasteSpecial .PasteSpecial = Arr طيب ياسيدى وبعد إذنك اليك هذا التعديل بالكود Bring_Data ليتم الترحيل من بداية العمود E ولكن ظهرت مشكلة ستجدها فى الـ sheet4 وهى وجود أربعة اعمدة فارغة مما أدى الى ظهور رسالة خطأ بالكود StartTimer بهذا السطر Set A = Sheets("sheet4").Columns("A").SpecialCells(2, 1).Areas واليك تعديل الكود ليتم الترحيل من بداية العمود E 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 SourceSheet.Range("E7:V7").Copy Range("E7").Select ActiveSheet.Paste K = 0 For i = 8 To LastRow + 8 Step 20 SourceSheet.Range("E" & i & ":V" & i + 15).Copy Range("E" & K + i).Select ActiveSheet.Paste K = K + 7 Next Application.ScreenUpdating = True End Sub فهل يمكن أخى الكريم ان يتم الترحيل من بداية العمود E بالشيت 3 وفى نفس الوقت يكون ترتيبه بالعمود A بالشيت 4 وفى نفس الوقت يتم الترحيل الى الشيت 5 كما هو تقبل وافر تقديرى واحترامى

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

اخى الغالى الاستاذ ياسر العربى تحية الله عليك تم تجربة الكود المشار إليه منذ عدة أيام ولكنه لايجدى فى هذا الموضوع لآنه وبمجرد الانتقال من شيت الى شيت يأخذ COPY من الصفحة الرئيسية ولكنه يجدى فى حالات أخرى عامة أعددت مرفق يوضح المشكلة فضلا أخى الكريم اضغط Ctrl+Q وتتبع حركة الرسائل التى ستشاهدها تباعا وهو المطلوب إثباته ومن ثم فضلا لاحظ حجم الـــ Font size وباقى المطلوب كمرحلة أولى من داخل المرفق التالى ملحوظة تم اعادة رفع الملف بنفس المشاركة ولاحظ حجم الـــ Font size من خارج نطاق الاستدعاء والترحيل ومن داخل النطاق شاكر لك اخى الكريم سعة صدرك وتقبل وافر إحترامى وتقديرى إستدعاء البيانات وترحيلها لعدد معين من الاسماء .xlsb.rar

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

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

up

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

up