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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





تعديل جديد على تقرير جلب البيانات

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



16-10-2018 05:13 مساء
عبدالله فتحى
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
يتابعهم : 20
يتابعونه : 2
قوة السمعة : 168
الاعجاب : 19
 offline 

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







17-10-2018 08:44 مساء
مشاهدة مشاركة منفردة [1]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 93
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 557
الاعجاب : 32
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
وعليكم السلام ورحمة الله وبركاته
تم عمل تعديل على الكود ليناسب ماطلبت
ارجوا من الله أن يكون هذا ماطلبت
Sub report()
   
  Dim ws          As Worksheet

  Dim sh          As Worksheet
 
  Dim dic         As Object
   
 Dim a            As Variant
 
 Dim s            As String
  
  Dim i           As Long
 
  
 
    Set ws = ThisWorkbook.Sheets(2)

    Set sh = ThisWorkbook.Sheets(3)
    
Set dic = CreateObject("Scripting.Dictionary")
 
 a = ws.Range("A3:N" & ws.Cells(Rows.Count, 1).End(xlUp).Row).Value
 
  For i = LBound(a, 1) To UBound(a, 1)
  If sh.Range("G9").Value = a(i, 2) Then
                  
  s = a(i, 6) & vbTab & a(i, 4) & vbTab & a(i, 5) & vbTab & a(i, 12)
           
 If Not dic.Exists(s) Then dic(s) = Array(, , 0, 0, , , 0, , 0, "", "")
          
  dic(s) = Array(a(i, 6), a(i, 4), dic(s)(2) + a(i, 7), dic(s)(3) + a(i, 10), a(i, 8), a(i, 9), dic(s)(6) + a(i, 11), a(i, 13), dic(s)(8) + a(i, 14), a(i, 12), a(i, 5))
      
  End If
   
 Next i
    
  
  sh.Range("A13:K1000").ClearContents
    
sh.Range("A13").Resize(dic.Count, 11).Value = Application.Transpose(Application.Transpose(dic.items))

End Sub





17-10-2018 09:44 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5719
الاعجاب : 716
 Online 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
بارك الله فيك استاذى الكريم وجزاك الله كل خير-أحسنت
وهنيئا للأخ عبدالله فى وصوله وتحققه لما اراد



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


18-10-2018 06:20 صباحا
مشاهدة مشاركة منفردة [3]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 93
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 557
الاعجاب : 32
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
المشاركة الأصلية كتبت بواسطة: ali mohamed ali
بارك الله فيك استاذى الكريم وجزاك الله كل خير-أحسنت
وهنيئا للأخ عبدالله فى وصوله وتحققه لما اراد

الله يبارك فى عمرك استاذى 
وبارك الله لصاحب الكود وجزاه خيرا على هذا الابداع





19-10-2018 01:36 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
بارك الله فيك أخي الحبيب أبو نور وجزاك الله خيراً
ومشكور على تفاعلك المثمر في المنتدى ومساعدة إخوانك





19-10-2018 02:58 مساء
مشاهدة مشاركة منفردة [5]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 93
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 557
الاعجاب : 32
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
المشاركة الأصلية كتبت بواسطة: YasserKhalil
بارك الله فيك أخي الحبيب أبو نور وجزاك الله خيراً
ومشكور على تفاعلك المثمر في المنتدى ومساعدة إخوانك

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





19-10-2018 10:59 مساء
مشاهدة مشاركة منفردة [6]
عبدالله فتحى
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
يتابعهم : 20
يتابعونه : 2
قوة السمعة : 168
الاعجاب : 19
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
السلام عليكم اخى الفاضل الكريم ابو نور 
 اشكرك كثير جدا  
على مجهودك وعلى براعتك وعلى وقتك وجزاك الله خيرا وبارك الله فيك وفى عمرك وفى علمك 



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


جزاك الله كل خير 


واود أن أشكر بعد اذن سيادتك 


استاذنا الكبير  ياسر      استاذنا الكبير  اسلام 


استاذنا الكبير  على    وكل الأفاضل والكرام 


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


حفظكم الله ورعاكم  جزاكم الله كل خير 


جزاكم الله كل خير 


انا ضفت مديول جديد واضفت الكود لم يتفعل ولا اضيف على الكود القديم 


اخوكم عبدالله فتحى 



















20-10-2018 12:44 صباحا
مشاهدة مشاركة منفردة [7]
ابونور
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-09-2017
رقم العضوية : 576
المشاركات : 93
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-11-1974
يتابعهم : 3
يتابعونه : 5
قوة السمعة : 557
الاعجاب : 32
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
اخى الفاضل عبدالله
شكرا لك على كلامك الراقى
والشكر موصول لكل من ذكرت ولم تذكر من الاساتذة الكرام
فهم اصحاب فضل جزاهم الله عنا خيرا
اخى عبدالله الكود تعديل على كودك فهو بديل له
فان امكن ارفاق الملف للاطلاع على المشكله





16-11-2018 02:15 مساء
مشاهدة مشاركة منفردة [8]
عبدالله فتحى
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
يتابعهم : 20
يتابعونه : 2
قوة السمعة : 168
الاعجاب : 19
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
السلام عليكم ورحمه الله وبركاته 
جعل الله يوم الجمعة عليكم جميعا بخير والستر والرزق والشفاء والسعاده اللهم امين 
بالنسبة للموضوع الكود انا ضفت على الكود القديم لم يتفعل وظهر كتابة حمراء على الكود 





16-11-2018 09:59 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20928
الاعجاب : 1486
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
وعليكم السلام أخي الكريم
هلا وضحت بالصور المشكلة بالضبط ...؟
ويفضل طرح موضوع جديد بالمشكلة حتى لا تتداخل الموضوعات






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
6 63 hassona229
تصدير أوراق محددة إلى مصنف جديد سعيد بيرم ابوعبدالرحمن
7 85 YasserKhalil
تصدير ورقة عمل محددة إلى مصنف جديد Export Specific Sheet To New Workbook YasserKhalil
10 134 YasserKhalil
تصدير أوراق العمل المحددة أو النشطة إلى مصنف جديد Export Selected Sheets To New Workbook YasserKhalil
6 86 محمد الدسوقى
تم تطبيق نظام التعليم الجديد 2.0 على صفوف رياض الأطفال والصف الأول الابتدائي Yasser Elaraby
3 111 ali mohamed ali

الكلمات الدلالية
البيانات ، تقرير ، جديد ، تعديل ،


 







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



الساعة الآن 10:05 مساء

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