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

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


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





تعديل عمل كود

ورقة العمل اسمها (صفحة) احتاج نسخها لاكثر من 400 نسخة وفي كل نسخة يجب ادخال بيانات جديدة تختلف عن الاخرى ثم ترحيل البيان ..


موضوع مغلق


subject icon تمت الإجابة تعديل عمل كود
04-08-2022 09:03 صباحا
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 

ورقة العمل اسمها (صفحة) احتاج نسخها لاكثر من 400 نسخة وفي كل نسخة يجب ادخال بيانات جديدة تختلف عن الاخرى ثم ترحيل البيانات الموجودة فيها كما موضح الى شيت 2 وان تكون اسفل البيانات القديمة التي تم ترحيلها سابقا لكن عند نسخ الصفحة بالضغط على زر اضافة صفحة جديدة لا يقوم الكود بالترحيل من الصفحة الجديدة  لان اسم الشيت بعد نسخ الصفحة قد تغير الرجاء المساعدة لحل هذا الاشكال وجزاكم الله خيرا

 
 
  نسخ.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(316.591) KB



أفضل إجابة مقدمة من osama barawy وهي:
السلام عليكم

الحل فى الكود  ان يتم تغيير الجمله
Set ws = Sheets("صفحة")
الى
Set ws = Sheets(ActiveSheet.Name)
  سيتم استعمال الشيت الحالى ايا كان اسمه فى تحديث البيانات
عرض الإجابة




10-08-2022 12:21 مساء
مشاهدة مشاركة منفردة [1]
osama barawy
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-10-2017
رقم العضوية : 1307
المشاركات : 24
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 27-5-1970
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 330
عدد الإجابات: 11
 offline 
look/images/icons/i1.gif تعديل عمل كود
السلام عليكم

الحل فى الكود  ان يتم تغيير الجمله
Set ws = Sheets("صفحة")
الى
Set ws = Sheets(ActiveSheet.Name)
  سيتم استعمال الشيت الحالى ايا كان اسمه فى تحديث البيانات

10-08-2022 05:10 مساء
مشاهدة مشاركة منفردة [2]
وليد 99999
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-06-2021
رقم العضوية : 22562
المشاركات : 69
الجنس : ذكر
تاريخ الميلاد : 1-1-1999
يتابعهم : 3
يتابعونه : 0
قوة السمعة : 32
 offline 
look/images/icons/i1.gif تعديل عمل كود
جزاك الله خيرا ربي يحفظك 



الكلمات الدلالية
تعديل ،


 










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

الساعة الآن 08:42 صباحا