muh74 قام بنشر مايو 20, 2016 مشاركة قام بنشر مايو 20, 2016 السلام عليكم لو سمحت كود حلقة دوران لنسخ عددة خلايا افقيا ليس صف من شيت الى شيت و شكرا جزيلا Loop to.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مايو 20, 2016 مشاركة قام بنشر مايو 20, 2016 وعليكم السلام أخي الكريم بدون حلقات تكرارية يمكن تنفيذ المطلوب بسطر واحد فقط Sub Test() Sheet2.Range("B4").Resize(1, 12).Value = Sheet1.Range("B4").Resize(1, 12).Value End Sub إذا لم يؤدي الغرض يرجى توضيح الطلب بشكل تفصيلي رابط هذا التعليق شارك More sharing options...
muh74 قام بنشر مايو 25, 2016 الكاتب مشاركة قام بنشر مايو 25, 2016 السلام عليكم ارفقت ملف توضيحي و شكرا جزيلا تمهيد لعمل شهادة مدرسية 1A.rar رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر مايو 25, 2016 مشاركة قام بنشر مايو 25, 2016 لعلك تقصد هذا Sheets("1A").Range("A1:Z50").Copy Sheets("Sheet1").Cells(1, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.