mra63 قام بنشر أكتوبر 31, 2021 مشاركة قام بنشر أكتوبر 31, 2021 (معدل) لدي هذا الكود الذي ينسخ صف من شيت إلي آخر عن طريق تحديد رقم الصف في التيكست بوكس ولكنه يتعامل مع ارقام صفوف الأكسل وليس الاقام الموجودة في الجدول فمثلاً اكتب الرقم 23 ينسخ الصف رقم 20 لأن الرقم 1 عندي يبدأ بالصف رقم 4 . هل يمكن تعديله من قبل الخبراء ارجوا المساعدة ولكم جزيل الشكر . Dim Myrow As Integer Myrow = Val(TextBox1.Text) Rows(Myrow).Copy Sheet3.Activate erow = Sheet3.Cells(Rows.Count,1).End(xlup).Offset(1,0).Row ActiveSheet.Paste Destination:=WorkSheets("Sheet3").Rows(erow) WorkSheets("Sheet1").Activate تم تعديل أكتوبر 31, 2021 بواسطه mra63 محاذاة الكود إلي اليسار رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر نوفمبر 1, 2021 مشاركة قام بنشر نوفمبر 1, 2021 erow = Sheet3.Cells(Rows.Count,1).End(xlup).Offset(1,0).Row+3 رابط هذا التعليق شارك More sharing options...
mra63 قام بنشر نوفمبر 1, 2021 الكاتب مشاركة قام بنشر نوفمبر 1, 2021 شكراً ياأخ محي الدين علي اهتمامك ولكن ما زالت نفس المشكلة فهو ينسخ الصف رقم 3 من صفوف الأكسل وهذا الصف فيه البيانات التوضيحية مثل الأسم والرقم الوطني ... الخ والرقم ثلاثة عندي في الجدول يطابق الصف رقم 6 من صفوف الأكسل . رابط هذا التعليق شارك More sharing options...
أفضل إجابة محي الدين ابو البشر قام بنشر نوفمبر 1, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 1, 2021 أها اعتقد اني فهمت بشكل خاطئ المشكلة بالنسخ اذا ربما حسب ما فهمت Myrow = Val(TextBox1.Text)+3 Rows(Myrow).Copy 2 رابط هذا التعليق شارك More sharing options...
mra63 قام بنشر نوفمبر 2, 2021 الكاتب مشاركة قام بنشر نوفمبر 2, 2021 اشكرك شكراً جزيلاً ياأستاذ محي الدين اخيراً نجح الكود وانحلت المشكلة بارك الله فيك وزادك علماً ومعرفة . ينسخ الرقم الموجود في الجدول الي الشيت الآخر . رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر نوفمبر 3, 2021 مشاركة قام بنشر نوفمبر 3, 2021 الحمد لله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان