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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil تجزئة الاسماء المركبة وفصلها عن الاسماء العادية اكسيل اسئله واجابات


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



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





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

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



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

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







10-07-2019 05:55 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 362
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 15
قوة السمعة : 3052
الاعجاب : 140
 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
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1072
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4581
الاعجاب : 276
 offline 
look/images/icons/i1.gif كود دمج بيانات اعمدة لاوراق عمل في ورقة واحدة
أحسنت استاذ سليم عمل رائع بارك الله فيك وزادك الله من فضله



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


10-07-2019 09:24 مساء
مشاهدة مشاركة منفردة [3]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 115
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 73
الاعجاب : 15
 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
 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل البيانات الى اى عدد من اوراق العمل من خلال اليوزرفورم DATA ENTRY USERFORM emad ghazi
11 1341 رشاد احمد
التعبئة التلقائية للبيانات باحتراف l سلسلة دروس الاكسيل Emad Ibrahem
1 110 Emad Ibrahem
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
144 3382 مالك ماريه
تعديل في كود حدف البيانات لمكررة المبتدأ
2 95 المبتدأ
جلب بيانات على اساس رقم الفقرة و رقم الدار خالد ابوعوف
5 66 YasserKhalil

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


 







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



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

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