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

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


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





نقل عمود من ورقة عمل الى اخر مع تحديث اي تغيرات

السلام عليكم ورحمة الله الاساتذه الافاضل برجاء المساعده بعمل كود تحديث تلقائى سواء بالحذف او الاضافه من ورقة العمل Sheet ..


موضوع مغلق


31-01-2022 07:50 مساء
روان احمد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2022
رقم العضوية : 23583
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 1-9-1980
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 23
 offline 

السلام عليكم ورحمة الله
الاساتذه الافاضل
برجاء المساعده بعمل كود تحديث تلقائى سواء بالحذف او الاضافه من ورقة العمل Sheet1
الى ورقتى العمل sheet2 و Sheet3
المعطيات
sheet1 هى ورقة العمل الرسميه لادخال البيانات والمطلوب نسخ القيم الموجوده من فى الاعمد A,B,C من sheet1 الى الاعمده A,B,C بورقتى عمل Sheet2 & Sheet3 مع تحديث اي تغيرات قد تطراء في ورقة العمل الرئيسيه Sheet1 من حذف او اضافه
 
 
  نقل عمود وتحديث بياناته.xlsx   تحميل xlsx مرات التحميل :(11)
الحجم :(14.839) KB



أفضل إجابة مقدمة من ابراهيم الحداد وهي:
السلام عليكم ورحمة الله
يوضع هذا الكود فى موديول جديد
Sub UpdateData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, Arr
Set ws = Sheets("Sheet1")
Arr = ws.Range("A3:C" & ws.Range("C" & Rows.Count).End(3).Row).Value
For Each Sh In Sheets(Array("Sheet2", "Sheet3"))
LR = Sh.Range("C" & Rows.Count).End(3).Row
Sh.Range("A3:C" & LR).ClearContents
Sh.Range("A3").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
Next
End Sub

اما هذه الكود فيتم وضعه فى حدث كل من sheet2 و sheet3 
Private Sub Worksheet_Activate()
UpdateData
End Sub


 
عرض الإجابة




31-01-2022 10:54 مساء
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 236
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2329
عدد الإجابات: 30
 offline 
look/images/icons/i1.gif نقل عمود من ورقة عمل الى اخر مع تحديث اي تغيرات
السلام عليكم ورحمة الله
يوضع هذا الكود فى موديول جديد
Sub UpdateData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, Arr
Set ws = Sheets("Sheet1")
Arr = ws.Range("A3:C" & ws.Range("C" & Rows.Count).End(3).Row).Value
For Each Sh In Sheets(Array("Sheet2", "Sheet3"))
LR = Sh.Range("C" & Rows.Count).End(3).Row
Sh.Range("A3:C" & LR).ClearContents
Sh.Range("A3").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
Next
End Sub

اما هذه الكود فيتم وضعه فى حدث كل من sheet2 و sheet3 
Private Sub Worksheet_Activate()
UpdateData
End Sub


 

31-01-2022 11:03 مساء
مشاهدة مشاركة منفردة [2]
روان احمد
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 12-01-2022
رقم العضوية : 23583
المشاركات : 9
الجنس : ذكر
تاريخ الميلاد : 1-9-1980
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 23
 offline 
look/images/icons/i1.gif نقل عمود من ورقة عمل الى اخر مع تحديث اي تغيرات
اخى ابراهيم الحداد
استاذ ورئيس قسم 
تسلم ايدك وربنا يجعله في ميزان حسناتك

01-02-2022 06:16 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif نقل عمود من ورقة عمل الى اخر مع تحديث اي تغيرات
بارك الله فيك أخي الغالي ابراهيم الحداد وجعله الله في ميزان حسناتك يوم القيامة.

01-02-2022 01:28 مساء
مشاهدة مشاركة منفردة [4]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 236
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2329
عدد الإجابات: 30
 offline 
look/images/icons/i1.gif نقل عمود من ورقة عمل الى اخر مع تحديث اي تغيرات
السلام عليكم ورحمة الله
بارك الله فيكم و حفظكم من كل شر
شكرا لكلماتكم الطيبة

13-02-2022 07:38 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif نقل عمود من ورقة عمل الى اخر مع تحديث اي تغيرات
وعليكم السلام ورحمة الله وبركاته 
بارك الله فيك استاذنا الغالى ابراهبم
اخى صاحب السؤال 
اين وضع افضل اجابه لسؤالك



الكلمات الدلالية
عمود ، ورقة ، تحديث ، تغيرات ،


 










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

الساعة الآن 06:44 صباحا