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

rami91 · يونيو 20, 2012

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

**أبو حنــــين** · يونيو 20, 2012

السلام عليكم

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

rami91 · يونيو 21, 2012

rami91 · يونيو 21, 2012

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

**عبدالله المجرب** · يونيو 22, 2012

ضع هذا الكود في زر أمر في الورقة 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 · يونيو 23, 2012

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

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

rami91 · يونيو 23, 2012

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

**عبدالله المجرب** · يونيو 24, 2012

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

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