ناصرالمصرى

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

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

up

الاستاذ الفاضل / اسامة البراوى الله الله عليك **** تسلم تسلم أخى الكريم بعد إذن حضرتك إستفسار وإضافة أخرى كما تعلم أخى الكريم أن هناك حفظ تلقائى كل 10 ثوانى فهل يمكن ترحيل كل مجموعة أسماء من الورقة 4 الى ورقه أخرى مجاورة تلقائيا كل 10 ثواتى إن كان الامر كذلك فيرجى فضلا إضافة ورقة جديدة " ورقة 5 " للعمل على هذا الترحيل بمعنى ان المجموعة الاولى من رقم 1 الى رقم 20 يتم ترحيلها اولا ثم فاصل زمنى 10 ثوانى ثم المجموعة الثانية من رقم 21 الى رقم 40 وهكذا الى ان تنتهى باقى المجموعات علما أخى بأن الترحيل هنا من العمود C الى العمود V بارك الله فيك ******* تفبل وافر تقديرى وإحترامى

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

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

up