ناصرالمصرى

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

السلام عليكم ورحمته الله وبركاته أعضاء ومشرفى منتديات اوفسينا الكرام طبتم وطاب ممشاكم وتبوئتم جميعا من الجنة منزلا إستكمالا لهذا الموضوع http://www.officena.net/ib/topic/64191-طلب-تعديل-كود-جلب-بيانات-للأستاذ-ياسرخليل-ابو-البراء/?page=1 برجاء الاطلاع على المرفق التالى حيث تم تنفيذ الطلب الاول وهو استدعاء كافة البيانات من الورقة الرئيسية " الورقة 2 " الى" الورقة 3 " المطلوب بعد إذن حضراتكم أولا هل يمكن أن يكون إستدعاء البيانات بالورقة 3 بنفس تنسيقات ورقة البيانات الرئيسية " ورقة 2 " ثانيا وهل يمكن ترحيل جميع البيانات التى تم استدعاؤها "بالورقة 3 " الى " الورقة رقم 4 " على أن ترحل الاسماء لعدد 20 أسم مع وجود عدد 7 صفوف فارغة بين كل مجموعة أسماء وبنفس تنسيقات الورقة 3 دمتم فى رعاية الله وبارك فيكم وافر تقديرى واحترامى إستدعاء البيانات وترحيلها لعدد معين من الاسماء مع وجود عدد معين من الصفوف الفارغة بين كل مجموعة أسماء.xlsb.rar

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

للرفع

اخى الفاضل ايو البراء حياكم الله وبارك فيكم ارجو التفضل بمتابعة الملف المرفق علما بأنىى إطلعت على موضوعك المميز المصفوفات بالأكسيل وأحاول منذ اطلاعى فهم الموضوع جيدا http://www.officena.net/ib/topic/56521-المصفوفات-في-الإكسيل-arrays/ ولكن هناك من الامور التى لم أستوعبها حتى الان أرجو التعديل فضلا أخى الكريم كما فى المرفق ***** بارك الله فيك وبإنتظار ردكم Grab Data Using Arrays.rar

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

اخى العزيز الفاضل ياسر خليل السلام عليكم وطابت اوقاتك بكل خير معذرة اخى الفاضل نرجو فضلا من سيادتكم تعديل المدى الى من العمود A الى العمود J وجزاكم الله خيرا

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

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

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

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

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

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