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

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


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





استفسار بخصوص ظهور رسالة خطأ عند تنفيذ كود نسخ

السلام عليكم ورحمة الله وبركاته عند تنفيذ كود نسخ المرفق بالكود التالي [code]PGJyIC8+DQpGb3IgaSA9IDYgVG8gQ2VsbHMoUm93cy5 ..



13-06-2020 08:46 مساء
manola_mr
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس : أنثى
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 206
موقعي : زيارة موقعي
 offline 

السلام عليكم ورحمة الله وبركاته
عند تنفيذ كود نسخ المرفق بالكود التالي

For i = 6 To Cells(Rows.Count, "I").End(xlUp).Row
If Cells(i, 9) = Range("ES2") Then Range(Cells(i, 4), Cells(i, 135)).Copy: Exit For
Next

If Range("ES1049") = 0 Then

ActiveSheet.Range("D1049").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
Else
    X = ActiveSheet.Range("D4049").End(xlUp).Row + 1

ActiveSheet.Range("D" & X).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End If
Application.CutCopyMode = False

End If



تظهر هذه الرسالة

5GwpA_FALSE

ممكن حل لهذه المشكلة ؟
 
 
 


13-06-2020 08:58 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif استفسار بخصوص ظهور رسالة خطأ عند تنفيذ كود نسخ
وعليكم السلام أختي الفاضلة
الرجاء إرفاق ملف ليعمل عليه الأعضاء.

14-06-2020 06:23 صباحا
مشاهدة مشاركة منفردة [2]
manola_mr
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس : أنثى
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 206
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif استفسار بخصوص ظهور رسالة خطأ عند تنفيذ كود نسخ
المشكلة يا استاذ ياسر الملف كبير
 

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

15-06-2020 06:43 صباحا
مشاهدة مشاركة منفردة [4]
manola_mr
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس : أنثى
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 206
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif استفسار بخصوص ظهور رسالة خطأ عند تنفيذ كود نسخ
تم حل المشكلة خلاص يا استاذ ياسر
جزاك الله كل خير

15-06-2020 08:14 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10444
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36522
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif استفسار بخصوص ظهور رسالة خطأ عند تنفيذ كود نسخ
تمام الحمد لله
يمكن إفادة الآخرين بوضع الحل بحيث يستفيد الأعضاء.

15-06-2020 09:56 صباحا
مشاهدة مشاركة منفردة [6]
manola_mr
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 16-11-2018
رقم العضوية : 9154
المشاركات : 152
الدولة : مصر
الجنس : أنثى
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 206
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif استفسار بخصوص ظهور رسالة خطأ عند تنفيذ كود نسخ
والله يا استاذ ياسر انا مسحت الكود ده كله واستبدلته بالكود ده
بدل ما اعمل copy و past بالكود
عملت الكود ده


xx = Range("VV1").Value
yy = Range("VW1").Value
zz = Range("VX1").Value
pp = Range("VZ1").Value + 1
'--------------------------------------------
On Error Resume Next
Range("D" & zz & ":" & "EE" & pp).Value = Range("D" & xx & ":" & "EE" & yy).Value
Range("D" & pp & ":" & "EE" & pp).ClearContents




الكلمات الدلالية
استفسار ، بخصوص ، ظهور ، رسالة ، تنفيذ ،


 










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

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