إستدعاء البيانات وترحيلها لعدد معين من الاسماء مع وجود عدد معين من الصفوف الفارغة بين كل مجموعة أسماء

[ناصرالمصرى]

السلام عليكم  ورحمته الله وبركاته

أعضاء ومشرفى منتديات اوفسينا الكرام

طبتم وطاب ممشاكم وتبوئتم جميعا من الجنة منزلا

إستكمالا لهذا الموضوع 

http://www.officena.net/ib/topic/64191-طلب-تعديل-كود-جلب-بيانات-للأستاذ-ياسرخليل-ابو-البراء/?page=1

برجاء الاطلاع على المرفق التالى حيث تم تنفيذ الطلب الاول وهو استدعاء كافة البيانات من الورقة الرئيسية " الورقة 2 " الى" الورقة 3 "

المطلوب بعد إذن حضراتكم 

أولا  هل يمكن  أن يكون إستدعاء البيانات بالورقة 3  بنفس تنسيقات ورقة البيانات الرئيسية " ورقة 2 "

ثانيا وهل يمكن  ترحيل جميع البيانات التى تم استدعاؤها   "بالورقة 3 "  الى " الورقة رقم 4 "

على أن ترحل الاسماء لعدد 20 أسم مع وجود عدد 7 صفوف فارغة بين كل مجموعة أسماء وبنفس تنسيقات الورقة 3

دمتم فى رعاية الله  وبارك فيكم 

وافر تقديرى واحترامى

إستدعاء البيانات وترحيلها لعدد معين من الاسماء مع وجود عدد معين من الصفوف الفارغة بين كل مجموعة أسماء.xlsb.rar

تم تعديل أكتوبر 17, 2015 بواسطه ناصر المصرى

[ناصرالمصرى]

up

[أسامة البراوى]

السلام عليكم

مرفق الحل للترحيل مع ترك صفوف فارغة

وكمان حل لو عايز تضيف فاصل طباعة قبل كل مجموعة

لكن موضوف الفورمات اللى انت ببتكلم عليه مش واضح ..

لو عايز الالوان وخلافه ليها طريقة اما لو عايز "عرض الأعمدة" او ارتفاع الصفوف ده ليه حل تانى.

 

aaaa.rar

[ناصرالمصرى]

السيد الاستاذ الفاضل / أسامة البراوى

السلام عليكم ورحمته الله وبركاته

شرف كبير لى مداخلتك المباركة 

الله يسلم عمرك

الله ينورعلى حضرتك 

أولا وبعد إذن حضرتك بالنسبة للفورمات يرجى فضلا أن يكون بنفس فورمات ورقة " بيانات العاملين"

لجميع أوراق العمل وبما أننى لاأحبذ الالوان فيرجى فضلا ان يكون الفورمات على عرض الاعمدة وارتفاع الصفوف

بحيث عندما يتم تغيير الفورمات بورقة " بيانات العاملين يتم التغيير تلقائيا بباقى أوراق العمل

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

بارك الله فيكم **** تقبل وافر إحترامى وتقديرى

إستدعاء البيانات وترحيلها لعدد معين من الاسماء.xlsb.rar

تم تعديل أكتوبر 19, 2015 بواسطه ناصر المصرى

[ناصرالمصرى]

أخى الفاضل الاستاذ القدير / أسامة البراوى

السلام عليكم

تم تعديل فكرة استدعاء أوامر استدعاء البيانات وترحيلها 

برجاء مشاهدة المرفق التالى

وافر تقديرى واحترامى

إستدعاء البيانات وترحيلها لعدد معين من الاسماء.xlsb.rar

[أسامة البراوى]

اتفضل

انا كملت على الملف اللى ارسلته لك بالامس لان الملف اللى انت بعته لا يعمل جيدا

اما استدعاء الماكرو فيكون من خلال Ctrl+q

BBB.rar

[ناصرالمصرى]

 

الاستاذ الفاضل / اسامة البراوى

الله الله عليك **** تسلم تسلم

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

كما تعلم أخى الكريم أن هناك حفظ تلقائى كل 10 ثوانى

فهل يمكن ترحيل كل مجموعة أسماء من الورقة 4 الى ورقه أخرى مجاورة تلقائيا كل 10 ثواتى

إن كان الامر كذلك فيرجى فضلا إضافة ورقة جديدة " ورقة 5 " للعمل على هذا الترحيل

بمعنى ان المجموعة الاولى من رقم 1 الى رقم 20 يتم ترحيلها اولا ثم فاصل زمنى 10 ثوانى ثم

المجموعة الثانية  من رقم 21 الى رقم 40 وهكذا الى ان تنتهى باقى المجموعات علما أخى بأن الترحيل هنا

من العمود   C الى العمود V  

 بارك الله فيك ******* تفبل وافر تقديرى وإحترامى

 

[ناصرالمصرى]

up

[ناصرالمصرى]

up

[ناصرالمصرى]

 

الاستاذ الفاضل / اسامة البراوى

الله الله عليك **** تسلم تسلم

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

كما تعلم أخى الكريم أن هناك حفظ تلقائى كل 10 ثوانى

فهل يمكن ترحيل كل مجموعة أسماء من الورقة 4 الى ورقه أخرى مجاورة تلقائيا كل 10 ثواتى

إن كان الامر كذلك فيرجى فضلا إضافة ورقة جديدة " ورقة 5 " للعمل على هذا الترحيل

بمعنى ان المجموعة الاولى من رقم 1 الى رقم 20 يتم ترحيلها اولا ثم فاصل زمنى 10 ثوانى ثم

المجموعة الثانية  من رقم 21 الى رقم 40 وهكذا الى ان تنتهى باقى المجموعات علما أخى بأن الترحيل هنا

من العمود   C الى العمود V  

 بارك الله فيك ******* تفبل وافر تقديرى وإحترامى

 

الاساتذه الاجلاء 

تحيه طيبه 

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

كيف يمكن ربط الملف الرائع الخاص بالاستاذ القدير / اسامة البراوى 

بهذا المرفق مع مراعاة فضلا الاخذ بعين الاعتبارعملية تنسيق أوراق المصنف فيما بينهم

حيث توجد مشكلة فى عملية التسيق مع عملية الترحيل بين إوراق المصنف

تقبلوا وافر إحترامى وتقديرى

 

نقل بيانات كل 10 ثوان.rar

تم تعديل نوفمبر 2, 2015 بواسطه ناصر المصرى

[ناصرالمصرى]

up

 

 

[ياسر العربى]

تفضل اخي الغالي لعله المطلوب 

وموضوع التنسيق  اعمله اول مره مثل كود الاخ اسامة البراوي 

المهم بينقل علي نفس التنسيق مش بيغير  تفضل

انا مجرد ربطت الملفين شوف اللي محتاجه تاني واعمله ليك باذن الله

ونقل البيانات علي مجموعات لابد من عمل فاصلة بين كل مجموعة واخرى بفراغ

 

إستدعاء البيانات وترحيلها لعدد معين من الاسماء .xlsb.rar

[ناصرالمصرى]

اخى الكريم الاستاذ ياسر

السلام عليكم 

حقيقى انا بشكر حضرتك على اهتمامك بالموضوع

جارى الاطلاع  وسأوافيك بالرد فى حينه

تقبل وافر إحترامى وتقديرى

 

[ناصرالمصرى]

السلام عليكم

لو عايز الالوان وخلافه ليها طريقة اما لو عايز "عرض الأعمدة" او ارتفاع الصفوف ده ليه حل تانى

اخى ياسر العربى

السلام عليكم

الله يحدث بعد العسر ميسرة ***** لاتجزعن فإن الصانع الله

المشكلة هى فى موضوع تنسيق جميع شيتات الملف

مع استدعاء البيانات من الورقة 2 الى الورقة 3 يظل حجم الخط صغير جدا 

نفس الحكاية مع الترحيل فضلا عن توقف عمل الكود الخاص بنقل البيانات

المطلوب بعد إذن حضرتك هو كيفية توحيد الفورمات على جميع

شيتات الملف من عرض الاعمدة وارتفاع الصفوف ونوع وحجم الخط وكذا الالوان

وافر تقديرى واحترامى

تم تعديل نوفمبر 4, 2015 بواسطه ناصر المصرى

[ياسر العربى]

هل تقصد مثل هذا الموضوع تفضل

http://www.officena.net/ib/topic/64534-تنسيق-تلقائى-لجميع-ورقات-العمل-اعتمادا-على-الصفحة-الرئيسية/

 

وكود ترحيل البيانات يتوقف عند انتهائه من نقل جميع بيانات الشيت الثاني

 

تم تعديل نوفمبر 4, 2015 بواسطه ياسر العربى

[ناصرالمصرى]

اخى الغالى الاستاذ ياسر العربى

تحية الله عليك

تم تجربة الكود المشار إليه  منذ عدة أيام ولكنه لايجدى فى هذا الموضوع

لآنه وبمجرد الانتقال من شيت الى شيت  يأخذ COPY  من الصفحة الرئيسية

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

فضلا أخى الكريم اضغط Ctrl+Q وتتبع حركة الرسائل التى ستشاهدها تباعا وهو المطلوب إثباته

ومن ثم فضلا لاحظ حجم الـــ Font size وباقى المطلوب كمرحلة أولى  من داخل المرفق التالى

ملحوظة تم اعادة رفع الملف بنفس المشاركة ولاحظ حجم الـــ Font size 

من خارج نطاق الاستدعاء والترحيل ومن داخل النطاق 

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

 

إستدعاء البيانات وترحيلها لعدد معين من الاسماء .xlsb.rar

تم تعديل نوفمبر 4, 2015 بواسطه ناصر المصرى

[ياسر العربى]

عملت تعديل بسيط خالص 

ياريت يكون  طلبك

 

إستدعاء البيانات وترحيلها لعدد معين من الاسماء .xlsb.rar

[ناصرالمصرى]

اخى ياسر

السلام عليكم

على مايبدو أنك تنبهت لجم البنط

ههههههههههه

والدليل انك قمت بتكبير البنط الخاص بمشاركاتك 

جارى الاطلاع ومن ثم الرد

تقبل وافر احترامى وتقديرى

 

[ياسر العربى]

المفروض كدا بقي ينسخ تمام  بنفس تنسيق المصدر

 

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

انت كنت بتفتح تلاته

 ابقي شوف  شيت اتنين ودوس start

وهينقل البيانات لشيت خمسه تمام  دا المرفق القديم ملناش دعوة بيه   مجرد تلميح

خليك في المرفق الاخير دا

 

[ناصرالمصرى]

اخى الغالى ياسر العربى

السلام عليكم

عادة لاأعلق على وجود خطأ ما من باب الاحترام لمن يقدم 

مالديه من حلول فجزاك الله خيرا

ولكنى أدخل فى صلب الموضوع 

ومن أجل ذلك تم تنقيح المرفق واعداده من جديد حتى يسهل

الوصول لحل المشكلة وبالفعل تم الوصول بإضافة هذان السطرين

ولنعتبر هذا الحل حل مؤقت نظرا لآنك ستقوم بتنسيق جميع الملفات يدويا وليس تلقائيا

 

        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 كما هو

تقبل وافر تقديرى واحترامى

تم تعديل نوفمبر 4, 2015 بواسطه ناصر المصرى

[ياسر العربى]

تفضل اخي الغالي ياريت اكون توصلت لما تقصد 

وارجو  تسمية الشيتات تكون منسقة ومنظمة لسهولة الاستيعاب  ولكن انظر

شيت اتنين اسمه برمجيا واحد

وتلاته اتنين

طيب  انا افهم انت تقصد شيت تلاته اللي هو خمسه ولا تلاته اللي هو اتنين 

ولا اربعة اللي هو داتا ولا اربعة اللي هو خمسه

وزي ما بقولها علي طول انا دماغي لفت يابا 

ارجو اكون وفقت في هذه النقطة 

واي ملحوظة انا موجود 

إستدعاء البيانات وترحيلها لعدد معين من الاسماء .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

 

لقاؤنا القادم بإذن الله لاستكمال أوامر الطباعة

أرجو من الله ان يوفقنا لما يحب ويرضى

تقبل وافر تقديرى واحترامى

تم تعديل نوفمبر 5, 2015 بواسطه ناصر المصرى

[ياسر العربى]

ايه الناس اللي طلبتها مش بتخلص دي

ولا يهمك ياعم ناصر  احنا موجودين  بس جيب معاك خرطوم ولا عصاية  عشان لزوم الحل

[ناصرالمصرى]

ياغالى الله يبارك فيك

اسعد دائما بوجودك

ليتك تجد حلا لموضوع التنسيق التلقائى

وسأفتح يدى اليك ضريا ولكن برفق

يعنى خليك حنين تم تعديل المشاركة السايقة

وافر تقديرى واحترامى

تم تعديل نوفمبر 5, 2015 بواسطه ناصر المصرى

[عبدالله المجرب]

في ٥‏/١١‏/٢٠١٥ ١:٥٠:١٩, ياسر العربى said:

ايه الناس اللي طلبتها مش بتخلص دي

اكيد الاستاذ ياسر العربي بيمزح 

==============================================

اخي الفاضل ناصر المصري 

اعذر وصولي المتأخر للمشاركة 

 

ولكني وجدت أن اخواني قاموا بالواجب ومستمرين 

 

بارك الله فيكم اخواني واعذروني على التقصير

 

وشكراً