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

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


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





شيت أجمالى بكل الحركات

اساتذتى الافاضل مرفق ملف اكسيل مكون من عدد 4 شيتات منهم شيت مجمع المطلوب نقل كل التفاصيل من الشيتات ( 2013 و 2014 و 2015 ..


موضوع مغلق


02-02-2021 12:16 مساء
Excelawy
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 30
المشاركات : 460
الجنس : ذكر
تاريخ الميلاد : 9-12-1989
الدعوات : 2
يتابعهم : 8
يتابعونه : 10
قوة السمعة : 730
 offline 

اساتذتى الافاضل
مرفق ملف اكسيل مكون من عدد 4 شيتات منهم شيت مجمع
المطلوب
نقل كل التفاصيل من الشيتات ( 2013 و 2014 و 2015 ) الى الملف المجمع تحت بعض
المعطيات
1- عناوين رؤوس الشيتات لن تتغير فى اى سنه فهى ثابته
2- طول الحركات فى كل عام غير معروف

شكرا جزيلا
 
Shit compound
 
 
 
  بيان تجميعى.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(12.57) KB



أفضل إجابة مقدمة من حسين مامون وهي:
جرب هذا الكود
Sub Envoier_DO()
Dim SH As Worksheet
Dim ws As Worksheet
Dim lr1, lr2
Set ws = Sheets("المجمع")
Application.ScreenUpdating = False
ws.Range("b4:i1000000").ClearContents
For Each SH In Sheets
If SH.Name <> "المجمع" Then
  lr1 = ws.Range("b" & Rows.Count).End(xlUp).Row + 1
    lr2 = SH.Range("b" & Rows.Count).End(xlUp).Row
    SH.Range("b4:i" & lr2).Copy ws.Range("b" & lr1)
End If
Next SH
Application.ScreenUpdating = True

End Sub
عرض الإجابة




02-02-2021 12:34 مساء
مشاهدة مشاركة منفردة [1]
حسين مامون
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 172
الجنس : ذكر
الدعوات : 1
يتابعهم : 5
يتابعونه : 11
قوة السمعة : 957
عدد الإجابات: 22
 offline 
look/images/icons/i1.gif شيت أجمالى بكل الحركات
جرب هذا الكود
Sub Envoier_DO()
Dim SH As Worksheet
Dim ws As Worksheet
Dim lr1, lr2
Set ws = Sheets("المجمع")
Application.ScreenUpdating = False
ws.Range("b4:i1000000").ClearContents
For Each SH In Sheets
If SH.Name <> "المجمع" Then
  lr1 = ws.Range("b" & Rows.Count).End(xlUp).Row + 1
    lr2 = SH.Range("b" & Rows.Count).End(xlUp).Row
    SH.Range("b4:i" & lr2).Copy ws.Range("b" & lr1)
End If
Next SH
Application.ScreenUpdating = True

End Sub
 
 
  بيان تجميعى.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(21.566) KB




الكلمات الدلالية
أجمالى ، الحركات ،


 










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

الساعة الآن 05:12 صباحا