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

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


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





نسخ الصفحة بقيم الخلية

الاساده الخبراء مرفق ملف به ماكرو نسخ صفحة 3 فى ملف جديد ولكن هذه الصفحة عامل لها ربط بعض الخلاياء بدالة INDIRECT بالص ..


موضوع مغلق


22-01-2021 12:35 مساء
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 

الاساده الخبراء

مرفق ملف به ماكرو نسخ صفحة 3 فى ملف جديد

ولكن هذه الصفحة عامل لها ربط بعض الخلاياء بدالة INDIRECT بالصفحة السابقة

ولكن عند نسخ هذه الص داله INDIRECT تعمل خطاء لانه لا يرى الارتباط

و سبب اختيار داله INDIRECT لربط الخلاياء هى ان يوجد احتمال مسح بعض الصفوف بصفحة 2

فاذا كان الربط ب = او iferror  لا يتم الربط مع مسح الصف لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

فهل يوجد حل

ولكم جزيل الشكر
 
 
  نسخ القيم.rar   تحميل rar مرات التحميل :(4)
الحجم :(85.875) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم
جرب التعديل في الجزء التالي في الكود
With ActiveSheet
    MySheet = .Name & "  ( " & Format(Now, "hh-mm-ss") & " )"
    Dim a
    a = .UsedRange.Value
    .Copy
End With

With ActiveSheet.UsedRange
 .Value = a
End With
عرض الإجابة




22-01-2021 01:57 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نسخ الصفحة بقيم الخلية
السلام عليكم
جرب التعديل في الجزء التالي في الكود
With ActiveSheet
    MySheet = .Name & "  ( " & Format(Now, "hh-mm-ss") & " )"
    Dim a
    a = .UsedRange.Value
    .Copy
End With

With ActiveSheet.UsedRange
 .Value = a
End With

22-01-2021 02:38 مساء
مشاهدة مشاركة منفردة [2]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif نسخ الصفحة بقيم الخلية
اشكرك استاذ ياسر

جزاك الله كل خيراً

22-01-2021 05:37 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نسخ الصفحة بقيم الخلية
وجزيت خيراً أخي العزيز خالد بمثل ما دعوت لي وزيادة.
تقبل تحياتي



الكلمات الدلالية
الصفحة ، بقيم ، الخلية ،


 










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

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