اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





مشكلة فى ايجاد اخر صف والترحيل

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



10-05-2018 12:18 صباحا
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 196
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 9
قوة السمعة : 308
الاعجاب : 115
 offline 


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


LR = Sheets("Banks").Range("C4").End(xlDown).Row + 1

ثم ترحيل البيانات الى الصف الذى يلية (+1)
لكن الكود لا يعمل وهناك مشكلة
واخر صف به بيانات فى هذه الورقة وحسب الكود 
من المفترض C4
اى عند الترحيل من المفترض ان يرحل فى C5
لكنه لا يقوم بذلك ، فما السبب ؟
كما اريد ان يتوقف الترحيل بعد 20 صف ، اى الصف رقم 24

هذا هو الملف المرفق      لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  مشكلة فى ايجاد اخر صف والترحيل.rar   تحميل rar مرات التحميل :(2)
الحجم :(52.797) KB







10-05-2018 02:15 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11119
الاعجاب : 3943
 offline 
look/images/icons/i1.gif مشكلة فى ايجاد اخر صف والترحيل
جرب السطر التالي ...
LR = Sheets("Banks").Cells(Rows.Count, "C").End(xlUp).Row + 1





13-05-2018 11:28 صباحا
مشاهدة مشاركة منفردة [2]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 196
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 9
قوة السمعة : 308
الاعجاب : 115
 offline 
look/images/icons/i1.gif مشكلة فى ايجاد اخر صف والترحيل
جزاكم الله خيرا اخي الفاضل أ- ياسر 
الكود يعمل 
لكن ستواجهنا مشكلة عند استخدامه
قد يقوم المستخدم بمسح اسماء بعض البنوك فى وسط القائمة او الجدول
كما هو موضح بالصورة

Mjc3NDE3MQ7070%D8%A7%D9%84%D8%A8%D9%86%D9%88%D9%83
واذا قام بالاضافة مرة اخري 
فحسب هذا الكود سيبحث عن اخر صف به بيانات وهو هنا C24
ويقوم بالترحيل فى الصف الذى يلية وهو C25
فى حين انه اخر صف فى الجدول (حيث يسمح باضافة 20 بنك من الصف 5 حتي الصف 24)
------
والمطلوب ان تتم الاضافة فى اول صف فارغ من اعلى وهو هنا كما بالصورة الصف 11 (مسلسل 7)
 
  البنوك.png   تحميل png البنوك.png مرات التحميل :(0)
الحجم :(36.758) KB
 






14-05-2018 05:32 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3938
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 295
قوة السمعة : 11119
الاعجاب : 3943
 offline 
look/images/icons/i1.gif مشكلة فى ايجاد اخر صف والترحيل
في هذه الحالة أقترح عمل حلقة تكرارية إلى أن تصل إلى أول خلية فارغة .. حينها تخرج من الحلقة التكرارية وتسجل رقم الصف داخل متغير





16-05-2018 08:15 صباحا
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 801
الجنس : ذكر
الدعوات : 10
يتابعهم : 2
يتابعونه : 439
قوة السمعة : 5463
الاعجاب : 1438
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif مشكلة فى ايجاد اخر صف والترحيل
 
 
  مشكلة فى ايجاد اخر صف والترحيل.zip   تحميل zip مرات التحميل :(5)
الحجم :(51.558) KB


أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :Yasser Elaraby
663013020





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


 







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



الساعة الآن 03:48 مساء

أعلن هنا
أعلن هنا
أعلن هنا