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

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


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



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





كود دمج بيانات اعمدة لاوراق عمل في ورقة واحدة

السلام عليكم يوجد لدي بيانات في ورقة 1 و 2 و3و4 اريد كود يجعل جميع البيانات تظهر في ورقة 5 بحيث يظهر بيانات عمود ..



10-07-2019 03:39 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 156
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 128
الاعجاب : 41
 offline 

السلام عليكم 
يوجد لدي بيانات في ورقة 1 و 2 و3و4  اريد كود  يجعل  جميع البيانات تظهر في ورقة 5 
بحيث يظهر  بيانات عمود  رقم الكود والصنف  والنوع في ورقة 5 اما العمود الرابع وهو رصيد  آخر المدة فتكون العملية الحسابية كالتالي 
 العمود D في الورقة5 =العمود D في الورقة1 +العمود D في الورقة2+ العمود D في الورقة4- العمودD في الورقة 3  واذا كان يوجد معادلات  حت نستفيد من الطريقتين 
 
 
 
  sheets.rar   تحميل rar مرات التحميل :(3)
الحجم :(24.641) KB







10-07-2019 05:55 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 397
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3241
الاعجاب : 215
 offline 
look/images/icons/i1.gif كود دمج بيانات اعمدة لاوراق عمل في ورقة واحدة
تم التعديل قليلاً على الملف بحيث تستطيع التحرك داخل الشيت حتى وان كان اليوزر مفتوح
 تم ايضاً اعادة تسمية التكس بوكسات لمعرفة كل تسكت بوكس لاي خلية تابع دون عناء التفتيش
الكود

Option Explicit

Sub Get_Data()
 Dim My_array(1 To 4)
 Dim i As Byte, m%
 m = Sheets("ورقة5").Cells(Rows.Count, 1).End(3).Row + 1
  Dim lr%, MY_sh As Worksheet
 Dim RG_to_copy As Range
 My_array(1) = "ورقة1": My_array(2) = "ورقة2"
 My_array(3) = "ورقة3": My_array(4) = "ورقة4"
  For i = 1 To 4
   Set MY_sh = Sheets(My_array(i))
    lr = MY_sh.Cells(Rows.Count, 1).End(3).Row
     Set RG_to_copy = MY_sh.Range("A2:D" & lr)
       RG_to_copy.Copy Sheets("ورقة5").Cells(m, 1)
    m = lr + 1
    
  Next

End Sub

الملف مرفق

 
 
 
  _users And sheets.rar   تحميل rar مرات التحميل :(4)
الحجم :(39.864) KB


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




10-07-2019 06:15 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5780
الاعجاب : 745
 offline 
look/images/icons/i1.gif كود دمج بيانات اعمدة لاوراق عمل في ورقة واحدة
أحسنت استاذ سليم عمل رائع بارك الله فيك وزادك الله من فضله



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


10-07-2019 09:24 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 156
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 128
الاعجاب : 41
 offline 
look/images/icons/i1.gif كود دمج بيانات اعمدة لاوراق عمل في ورقة واحدة
[quote=salim]تم التعديل قليلاً على الملف بحيث تستطيع التحرك داخل الشيت حتى وان كان اليوزر مفتوح
 تم ايضاً اعادة تسمية التكس بوكسات لمعرفة كل تسكت بوكس لاي خلية تابع دون عناء التفتيش
الكود
[code]
Option Explicit

Sub Get_Data()
 Dim My_array(1 To 4)
 Dim i As Byte, m%
 m = Sheets("ورقة5").Cells(Rows.Count, 1).End(3).Row + 1
  Dim lr%, MY_sh As Worksheet
 Dim RG_to_copy As Range
 My_array(1) = "ورقة1": My_array(2) = "ورقة2"
 My_array(3) = "ورقة3": My_array(4) = "ورقة4"
  For i = 1 To 4
   Set MY_sh = Sheets(My_array(i))
    lr = MY_sh.Cells(Rows.Count, 1).End(3).Row
     Set RG_to_copy = MY_sh.Range("A2biggrin2" & lr)
       RG_to_copy.Copy Sheets("ورقة5").Cells(m, 1)
    m = lr + 1
    
  Next

End Sub

اخي سليم كود رائع وشكرا على مجهودك ولكن اردت ان يكون الصنف  مرة واحدة   عندما يضهر في الورقة الخامسة  ويعطيني المجموع  
فمثلا في حالة الصنف 1200R20  هنا يجب ان يعطيني  الكمية بعد العملية الحسابية تساوي 750
 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
جلب البيانات إلى الفورم من ورقة العمل بمجرد تحديد اسم من الليست بوكس Fadel
3 7 YasserKhalil
تعديل على كود تجميع بيانات الشيتات في شيت رئيسي مداد_1423
3 15 YasserKhalil
طلب الوصول الى اسرع طريقه لاستخراج البيانات EM_ACC
10 98 YasserKhalil
فورم مشاهدة البيانات المسجلة بالشيت مجدى يونس
4 41 مجدى يونس
أداة الليست فيو لعرض بيانات ورقة العمل ListView Control On UserForm YasserKhalil
10 64 YasserKhalil

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


 







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



الساعة الآن 08:13 مساء

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