مساعدة في النسخ واللصق بخلايا مختلفة الحجم

[احمد محمود عبد الفتاح]

أخواتي الكرام

السلام عليكم

مرفق ملف اكسيل يحتوي على 2 شيت

أحداهما به بعض البيانات والآخر يحتوي على التنسيق المراد العمل عليه

المطلوب: نسخ عمود A في شييت 1 ولصقه في عمود B في شييت 2

المشكله اللي بتقابلني هي

أما اعمل نسخ ولصق بيظهري cant change part of merged cell

وشكراً لتعاونكم

 test.rarell

test.rar

[عبد العزيز البسكري]

السلام عليكم و رحمة الله و بركاته

أخي الكريم  .. المشكل بسبب دمج الخلايا FUSIONNER بالعمودB الشيت2

               فائق إحتراماتي

 

 

 

 

test.rar

تم تعديل نوفمبر 2, 2015 بواسطه عبد العزيز البسكري

[الـعيدروس]

بسبب الخلايا المدمجه

استخدم هذا الكود او انسخ على خليه خليه

Sub Ali_Tr()
Set S = Sheets("sheet1"): Set SS = Sheets("sheet2")
With S
For r = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
   SS.Cells(SS.Cells(Rows.Count, 2).End(xlUp).Row + IIf(r = 1, 2, 5), 2) = .Cells(r, 1)
Next
End With
End Sub