حلقة دوران

[muh74]

السلام عليكم
 لو سمحت كود حلقة دوران لنسخ عددة خلايا افقيا ليس صف 
من  شيت الى شيت 
و شكرا  جزيلا

 

Loop to.rar

[ياسر خليل أبو البراء]

وعليكم السلام

أخي الكريم بدون حلقات تكرارية يمكن تنفيذ المطلوب بسطر واحد فقط

Sub Test()
    Sheet2.Range("B4").Resize(1, 12).Value = Sheet1.Range("B4").Resize(1, 12).Value
End Sub

إذا لم يؤدي الغرض يرجى توضيح الطلب بشكل تفصيلي

 

[muh74]

السلام عليكم

ارفقت ملف توضيحي

و شكرا جزيلا

تمهيد لعمل شهادة مدرسية
 

1A.rar

[عبدالسلام ابوالعوافي]

لعلك تقصد هذا

    Sheets("1A").Range("A1:Z50").Copy
    Sheets("Sheet1").Cells(1, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True