أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





جلب بيانات من جميع أوراق مصنف مغلق

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



08-09-2019 11:06 مساء
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 529
الاعجاب : 60
 offline 

أستاذي الفاضل ياسر ها قد أرسلت لك ملفا أوضح فيه المطلوب ، سامحني على الإزعاج ، جزاك الله عني خير الجزاء وبارك الله فيك. 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Rappots_Trms_2019.rar   تحميل rar مرات التحميل :(9)
الحجم :(82.311) KB


أثارت هذه المشاركة إعجاب: محمد حسن المحمد،





08-09-2019 11:37 مساء
مشاهدة مشاركة منفردة [1]
مهند محسن
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 376
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 8
قوة السمعة : 504
الاعجاب : 25
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق

أثارت هذه المشاركة إعجاب: YasserKhalil، محمد حسن المحمد، محمد أبو عبدو،




09-09-2019 08:01 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
أخي الكريم محمد أبو عبدو

جرب الكود التالي عله يفي بالغرض إن شاء الله (قمت بالتعديل في أول كود .. يمكنك دراسة الكود والتعديل في الأكواد الأخرى بنفس الشكل)
مع العلم أنه يمكن عمل إجراء عام طالما أن الكود هو نفسه . تشوف الاختلافات وتعمل ليها بارامترات خاصة بيها ، وتستخدم الكود في سطر واحد فقط
عموماً جرب الكود أولاً وإذا كان الكود يعمل بشكل جيد سنحاول إضافة تلك الميزة إن شاء الله

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أثارت هذه المشاركة إعجاب: محمد حسن المحمد، صلاح الصغير، محمد أبو عبدو، ali mohamed ali،




09-09-2019 09:46 صباحا
مشاهدة مشاركة منفردة [3]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 529
الاعجاب : 60
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
جزاك الله خير الجزاء أستاذي الفاضل وبارك الله فيك ، وحفظك الله وسدد خطاك.
سأجرب الكودين إن شاء الله تعالى ، ويارب تضبط معي .
سأعلمك أن شاء الله.

أثارت هذه المشاركة إعجاب: YasserKhalil،




09-09-2019 09:58 صباحا
مشاهدة مشاركة منفردة [4]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 278
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
يتابعهم : 1
يتابعونه : 4
قوة السمعة : 221
الاعجاب : 82
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
استاذ / ياسر
هما الكودين نفس الموضوع و لا 
انا نفذت الكود الاول على الملف الاول و شغال تمام
بس لما جيت اشغل الكود التانى على الملف التانى بيمسح البيانات فقط دون جلب البيانات من الملف التانى 
مع العلم انى غيرت ال range
و ده الكود التانى بعد تعديل ال range
Sub Grab_Data_From_Closed_Workbook_02()
    Dim wb              As Workbook
    Dim ws              As Worksheet
    Dim a               As Variant
    Dim strFileName     As String
   
    strFileName = ThisWorkbook.Path & "\" & Sheets("UIR").Range("u8").Value & ".xlsx"
    Set ws = ThisWorkbook.Worksheets("UIR")
   
    Application.ScreenUpdating = False
        ws.Range("u12:x141").ClearContents
        ws.Range("$F$11:$F$141").AutoFilter Field:=1
   
        If Len(Dir(strFileName)) > 0 Then
            Set wb = Workbooks.Open(Filename:=strFileName)
            With wb.Worksheets(1)
                .Range("$F$11:$F$141").AutoFilter Field:=1
                a = .Range("u12:x141").Value
                ws.Range("u12").Resize(UBound(a, 1), UBound(a, 2)).Value = a
                .Parent.Close False
            End With
   
            ws.Range("$F$11:$F$141").AutoFilter Field:=1, Criteria1:="1"
            Application.Goto ws.Range("S2")
        Else
            MsgBox strFileName & " Can't Be Found!", vbExclamation, "File Not Found"
        End If
    Application.ScreenUpdating = True
End Sub





09-09-2019 10:19 صباحا
مشاهدة مشاركة منفردة [5]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 529
الاعجاب : 60
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
أستاذي الفاضل الكود يعمل بشكل رااااااائع ، أدعو أن الله يكرمك وأن يجازيك خير الجزاء
وأدعوالله تعالى أن يبارك في وقتك وفي صحتك وفي عملك وفي عمرك.
وأدعو الله الرحمن الرحيم الحنان المنان الكريم أن يجعله في ميزان حسناتك ويكتبه لك صدقة جارية.

كما أرجو أن تكمل تكرمك وفضلك علي بإضافة الميزة التي تختصر الأكواد الثلاث في كود واحد
بارك الله فيك وجزاك الله خير الجزاء، وزادك الله علما ونفع بك.

أثارت هذه المشاركة إعجاب: YasserKhalil،




09-09-2019 10:30 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
بارك الله فيك أخي العزيز محمد أبو عبدو وجزيت خيراً على كلماتك الطيبة ودعائك الطيب المبارك .. ولك بمثل ما دعوت لي وزيادة

يرجى إرفاق ملف فيه الحل النهائي لأخونا صلاح ليطلع عليه ، وسأحاول عمل إجراء عام طالما أن الاكواد نفسها ..ولكن رجاء ارفق صورة للكود والأجزاء التي تختلف من كود لآخر ضع تحتها سطر للتوضيح ..

أثارت هذه المشاركة إعجاب: صلاح الصغير، محمد أبو عبدو،




09-09-2019 10:32 صباحا
مشاهدة مشاركة منفردة [7]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1377
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 56
قوة السمعة : 6256
الاعجاب : 928
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
كود ممتاز استاذ ياسر بارك الله فيك وزادك الله من فضله

أثارت هذه المشاركة إعجاب: YasserKhalil، حسن علي،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


09-09-2019 10:57 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
بارك الله فيك أخي الغالي علي ومشكور على اهتمامك متابعتك الرائعة

أثارت هذه المشاركة إعجاب: ali mohamed ali،




09-09-2019 02:23 مساء
مشاهدة مشاركة منفردة [9]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 229
الجنس : ذكر
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 305
الاعجاب : 7
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
السلام عليكم

كود ممتاز وابداعى  استاذ ياسر
دائما نجد المعلومه بحوزتك حين نحتاجها


سلمت يداك لكا خير

أثارت هذه المشاركة إعجاب: YasserKhalil،




09-09-2019 04:43 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
وعليكم السلام أيها الغائب عن أعيننا حاضر في قلوبنا .. عوداً حميداً
مشكور على كلماتك الطيبة ومرورك العطر





09-09-2019 06:11 مساء
مشاهدة مشاركة منفردة [11]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 529
الاعجاب : 60
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
السلام عليكم ورحمة الله تعالى وبركاته
- أخي صالح قد أرفقت الملف الآن كاملا (بالنسبة للملف الثاني والثالث في المرفق السابق ، لم أدرج بهما نطاق الفلترة فقط ، هذا هو السبب)

* أستاذي الفاضل ياسر قد أرفقت ملف وورد بالملفات أدرجت فيه الكود كاملا ، موضحا فيه بالألوان الأجزاء المختلفة ، والأجزاء المتشابهة.
وإنني في انتظار الميزة التي تختصر الأكواد الثلاث في كود واحد .
جزاك الله عني خير الجزاء وبارك الله فيك ، وزادك علما ونفع بك .
 
 
  Rappots_Trms_2019.rar   تحميل rar مرات التحميل :(7)
الحجم :(134.565) KB


أثارت هذه المشاركة إعجاب: صلاح الصغير،




09-09-2019 06:41 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8083
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 426
قوة السمعة : 23494
الاعجاب : 2346
 offline 
look/images/icons/i1.gif جلب بيانات من جميع أوراق مصنف مغلق
بارك الله فيك أخي الكريم محمد أبو عبدو

>> تم تعديل الكود في نفس الرابط في المشاركة رقم # 2 لكي لا يتشتت الأعضاء
راجع الكود والنتائج وأخبرنا لو هناك أية ملاحظات

أثارت هذه المشاركة إعجاب: محمد أبو عبدو، صلاح الصغير،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل البيانات من ملف اكسل الى ملف اخر ياحبيبي يامحمد
0 7 ياحبيبي يامحمد
فورم جاهز لاضافة البيانات والبحث بثلاث طرق مجدى يونس
2 36 مجدى يونس
اضافة تعليق او اعتمادات اسفل كل صفحة بها بيانات ashraf_hertlion
3 44 هانى على
جلب البيانات الانتخابية للعامل بالرقم القومي باستخدام VBA sameh_lotfy
12 130 sameh_lotfy
السلام عليكم محتاج كود أخفى التكست بوكس فى حالة لو لا تحمل بيانات وإظهار ها فى حالة وجود بيانات بدا emadfawzi
1 31 emadfawzi

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


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 07:46 صباحا

أعلن هنا
أعلن هنا
أعلن هنا