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

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


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





مشكلة في كود ترحيل

السلام عليكم ورحمة الله وبركاته ... أرجو من حضراتكم التكرم والتعطف علي فى الأتى : عايز اعرف الخطأ في كود الترحيل .. انا ..


موضوع مغلق


subject icon تمت الإجابة مشكلة في كود ترحيل
08-09-2021 11:54 مساء
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 

السلام عليكم ورحمة الله وبركاته ... أرجو من حضراتكم التكرم والتعطف علي فى الأتى :

عايز اعرف الخطأ في كود الترحيل .. انا برحل اعمدة معينة من شيت ( الصف الرابع ) الي شيت ( سعد ) .. 
ولما اضغط علي زر الترحيل اجد الترحيل في نصف الصفحة ... مش عارف ليه

 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 

 

 

 

 

 

 
 
  سعد4.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(186.457) KB



أفضل إجابة مقدمة من hassona229 وهي:
السلام عليكم ورحمه الله وبركاته
وبها نبدأ اي موضوع

امسح جميع البيانات في ورقه العمل (سعد )
ثم عدل هذا السطر
lr = sh1.Cells(Rows.Count, 1).End(xlUp).Row

الى
lr = sh1.Cells(Rows.Count, 2).End(xlUp).Row
عرض الإجابة




09-09-2021 10:33 صباحا
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif مشكلة في كود ترحيل
السلام عليكم ورحمه الله وبركاته
وبها نبدأ اي موضوع

امسح جميع البيانات في ورقه العمل (سعد )
ثم عدل هذا السطر
lr = sh1.Cells(Rows.Count, 1).End(xlUp).Row

الى
lr = sh1.Cells(Rows.Count, 2).End(xlUp).Row

09-09-2021 09:33 مساء
مشاهدة مشاركة منفردة [2]
saad mohamed
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-08-2019
رقم العضوية : 14161
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 12-5-1973
يتابعهم : 1
يتابعونه : 0
قوة السمعة : 65
 offline 
look/images/icons/i1.gif مشكلة في كود ترحيل
شكرا جزيلا



الكلمات الدلالية
مشكلة ، ترحيل ،


 










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

الساعة الآن 01:59 صباحا