ترحيل مع ترك صفوف فارغة للصفحة المرحل اليها لعمل حساب اجمالى

[محمد فاروق محمود]

برجاء المساعدة من محترفى الاكسيل

ترحيل مع ترك صفوف فارغة للصفحة المرحل اليها لعمل حساب اجمالى

الاسماء.rar

[عبدالله باقشير]

السلام عليكم

يمكنك تغيير عدد صفوف الجدول

في الثابت ContRow

ولم تذكر هل تريد صف عناوين الاعمدة

يتكرر في الجداول

الكود:

'   عدد صفوف الجدول

Const ContRow As Integer = 28

'   اول صف للبيانات

Const iRow As Integer = 2


Sub kh_Start()

Dim i As Long, ii As Long, iii As Long

Dim LastRow As Long

'''''''''''''''''''''''

With Sheet3

    .Cells.Clear

    Range("A1:G1").Copy .Range("A1")

End With

'''''''''''''''''''''''

LastRow = Range("B" & Rows.Count).End(xlUp).Row

ii = 2

For i = iRow To LastRow Step ContRow

    If i <> iRow Then GoSub kh_Sum

    Range("A" & i).Resize(ContRow, 7).Copy Sheet3.Range("A" & ii)

    ii = ii + ContRow + 1

Next

'''''''''''''''''''''''

Exit Sub

'''''''''''''''''''''''

kh_Sum:

    With Sheet3.Range("A" & ii - 1)

        .Range("A1:G1").Style = "total"

        .Range("C1").Value = "الاجمالي"

        .Range("E1:G1").Formula = "=SUM(R[-" & ContRow & "]C:R[-1]C)"

    End With

Return

'''''''''''''''''''''''


End Sub

المرفق 2003

الاسماء.rar

[محمد فاروق محمود]

جزاك الله كل الخير

والله اكثر من رائع

بس لو امكن الترحيل بشرط الراتب اكبر من 1200 جنية

كذلك كنت عايز خانة الاجمالى لكل 30 صف

وهل ممكن ترحيل اعمدة اخرى من k حتى q فى نفس عملية الترحيل اعذرنى لكثرة الطلبات

تم تعديل يناير 11, 2013 بواسطه محمد فاروق محمود

[محمد فاروق محمود]

اخى الكريم فى انتظار ردك

[محمد فاروق محمود]

للرفع

[أبو سجده]

جزاك الله خيرا