حلقة دوران

muh74 · مايو 20, 2016

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

ياسر خليل أبو البراء · مايو 20, 2016

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

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

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

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

muh74 · مايو 25, 2016

السلام عليكم

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

و شكرا جزيلا

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

عبدالسلام ابوالعوافي · مايو 25, 2016

لعلك تقصد هذا

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

الردود الموصى بها