توزيع خلايا عمود على كذا عمود

[سليم الاخرس]

تحية طيية

هل من طريقة لتوزيع خلايا العمود (ا) الى باقي الاعمدة ليتسنى لي طباعة اقل عدد صفحات 

مرفق الملف

توزيع خلايا عمود على كذا عمود.xlsx

[سليم حاصبيا]

جرب هذا الملف

الماكرو

Option Explicit

Sub Touzi3()
Dim RGA As Range
Dim n%, m%, Ro%, i%, x
x = Range("E1")
If Not IsNumeric(x) Or x < 1 Then
 x = 10: Range("E1") = x
 Else
 x = Range("E1")
End If
m = 3
Range("C4").CurrentRegion.ClearContents
Set RGA = Range("A4").CurrentRegion
Ro = RGA.Rows.Count + 3
n = Ro \ x

For i = 4 To Ro Step x
  Cells(4, m).Resize(x).Value = _
  Cells(i, 1).Resize(x).Value
  m = m + 1
Next
End Sub

 

Distribution.xlsm

[سليم الاخرس]

سلمت يداك ممتاز ، لكن سؤال هل يوجد معادلة غير الماكرو ؟

مشكلتي بالماكرو ولغة البرمجة ضعيف 

بارك الله فيك 

 

[سليم حاصبيا]

المعادلات في هذه الحالة صعبة جداً

و ما لك والبرمجة 

عليك فقط ان تختار العدد وتضغط الزر 

[سليم الاخرس]

اقصد في حال احببت التعديل على سبيل المثال : عمود الاسماء يتبع له عمود اخر فيه مبالغ  هل يمكن التعديل ضمن هذه البرمجة بالنسبة لي انا 

تم تعديل مارس 9, 2020 بواسطه سليم الاخرس

[سليم حاصبيا]

يمكن ذلك باستبدال m=m+1   الى    m=m+2   داخل الماكرو

[سليم الاخرس]

قمت باضافة ارقام وعدلت حسب مااخبرتني وهذه النتيجة فيها خطأ 

Distribution1.xlsm

[نبيل عبد الهادي]

بعد اذن اخي واستاذي سليم حاصبيا

واثراء للموضوع

الملف المرفق

1- في ورقة2 عن طريق المعادلات

2- في ورقة3 عن طريق الكود .. وشرح طريقة الاستخدام موجود في نفس الورقة

 

توزيع خلايا عمود على كذا عمود.xlsm

[سليم حاصبيا]

يجب ان يكون العامود الثاني(B) فارغاً وايضاً الصف الثالث(ٌRow 3) كي يعرف الاكسل اي مجموعة يجب اخذها كي يمسح القديم منها ويسجل الجديد

الملف من جديد

Distribution_new.xlsm

[سليم الاخرس]

تحياتي للجميع 

اعتذر على عدم ردي ، لاني كنت في المشفى واليوم خرجت بفضل الله معافى ، على كل اشكر الاستاذ سليم حاصبيا جدا على جهوده واشكر الاستاذ نبيل عبد الهادي ايضا 

سأبدأ اليوم بتجريب الملفات 

تقبلوا تحياتي