تغيير تنسيق ملف الإكسل إلى شكل آخر

[rami91]

السلام عليكم المطلوب في المرفقات

سؤال.zip

[أبو حنــــين]

السلام عليكم

هل تقصد هكذا ؟ ( المرفق )

سؤال.rar

[rami91]

سؤال بعد التوضيح.zip

[rami91]

السلام عليكم هذا تبسط للسؤال وأنا على يقين بأنكم ستساعدونني .

تبسيط السؤال.zip

[عبدالله المجرب]

ضع هذا الكود في زر أمر في الورقة 1

Sub Abu_Ahmed_Twzee3()

R = 1

For i = 1 To [A1000].End(xlUp).Row

Sheets("ورقة2").Range("A" & R) = Cells(i, 1)

R = R + 6

Next

End Sub

[rami91]

شكرا ً أخي أبو أحمد على مساعدتك الدائمة لي .

وجعلها الله في ميزان حسناتك , وغفر الله لك ولوالديك ولوالديَّ وللمسلمين أجمعين . اللهم آمين .

[rami91]

السلام عليكم طلب أخير: هل يمكن تعديل الكود ليشمل الصف بأكمله وليس خلية واحدة وشكرا لكم جميعا ً

[عبدالله المجرب]

تم اضافة حل لطلبك الاخير هنا

http://www.officena.net/ib/index.php?showtopic=42373