نسخ صف من شيت إلي آخر

[mra63]

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

فمثلاً اكتب الرقم 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
محاذاة الكود إلي اليسار

[محي الدين ابو البشر]

erow = Sheet3.Cells(Rows.Count,1).End(xlup).Offset(1,0).Row+3

 

[mra63]

شكراً ياأخ محي الدين علي اهتمامك ولكن ما زالت نفس المشكلة فهو ينسخ الصف رقم 3 من صفوف الأكسل وهذا الصف فيه البيانات التوضيحية مثل الأسم والرقم الوطني ... الخ والرقم ثلاثة عندي في الجدول يطابق الصف رقم 6 من صفوف الأكسل .

[محي الدين ابو البشر]

أها اعتقد اني فهمت بشكل خاطئ المشكلة بالنسخ

اذا ربما حسب ما فهمت 

Myrow = Val(TextBox1.Text)+3
Rows(Myrow).Copy

 

[mra63]

اشكرك شكراً جزيلاً ياأستاذ محي الدين اخيراً نجح الكود وانحلت المشكلة بارك الله فيك وزادك علماً ومعرفة . ينسخ الرقم الموجود في الجدول الي الشيت الآخر .

[محي الدين ابو البشر]

الحمد لله