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

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


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


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





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

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



16-10-2018 05:13 مساء
عبدالله فتحى
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-07-2018
رقم العضوية : 7066
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 28-11-1982
قوة السمعة : 189
الاعجاب : 0
 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
قوة السمعة : 557
الاعجاب : 0
 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
المشاركات : 1483
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6867
الاعجاب : 11
 offline 
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
قوة السمعة : 557
الاعجاب : 0
 offline 
look/images/icons/i1.gif تعديل جديد على تقرير جلب البيانات
المشاركة الأصلية كتبت بواسطة: ali mohamed ali
بارك الله فيك استاذى الكريم وجزاك الله كل خير-أحسنت
وهنيئا للأخ عبدالله فى وصوله وتحققه لما اراد

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




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




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

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




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



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


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


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


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


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


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


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


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


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


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


















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




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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شيت مراقبة الاقساط للاستاذ حسام بعد الاضافات الجديدة OmarGad
79 5003 كريم نظيم
دالة جديدة لفصل الارقام عن النصوص Bo-Jassem
6 701 Excelawy
كود ..يقوم بغلق كود ويبدا كود جديد ahmed moh
2 126 YasserKhalil
حفظ الفاتورة وتصدير ورقة العمل إلى مصنف جديد Save Invoice Export ActiveSheet To New Workbook YasserKhalil
9 588 YasserKhalil
الان رابط ولينك البوابة الإلكترونية لتسجيل وظائف المعلمين والاداريين والعمال الجديدة -موقع الوزارة Yasser Elaraby
3 481 خالد حسن محمد مصلحى

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


 







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

الساعة الآن 01:36 صباحا

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