مساعدة في إدراج صف تلقائي بعد الانتهاء من تسجيل كل يوم

[حاتم عيسى]

الرجا من سيادتكم التكرم بمساعدتي في إدراج صف تلقائي بعد الانتهاء من تسجيل كل يوم في ملف تسجيل إيراد و مصروف يوم مع عمل تجمع لإيرادات اليوم ومصروفاته والفرق بينهم وهكذا عند انتهاء كل يوم

مرفق ملف للعمل عليه وموضح به المطلوب

ليس هناك داعى لرفع الملف مضغوط ,طالما حجمه صغير -تجنبا لعدم اهدار وقت الأساتذة

 

إدراج صف تلقائى.xlsm

[Ali Mohamed Ali]

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

Private Sub Worksheet_Change(ByVal Target As Range)
                 Dim L&
    If Target.Address = Cells(Rows.Count, 5).End(xlUp).Address Then
        If IsDate(Target) And IsDate(Target(0)) Then
            If Target.Value2 <> Target(0).Value2 Then
                     Application.EnableEvents = False
                     Application.ScreenUpdating = False
                     Target.EntireRow.Insert
                     If IsEmpty(Target(-2)) Then L = Target(-1).Row Else L = Application.Max(6, Target(-1).End(xlUp).Row)
                With Target(0).EntireRow
                    .Interior.ColorIndex = 4
                    .Interior.Pattern = xlSolid
                    .Columns("B:C").Formula = "=SUM(B" & L & ":B" & Target(-1).Row & ")"
                    .Cells(4).Value2 = "إجمالى اليوم "
                End With
                     Application.ScreenUpdating = True
                     Application.EnableEvents = True
            End If
        End If
    End If
End Sub

 

 

 

إدراج صف تلقائى - 1.xlsm

[Ali Mohamed Ali]

تم التعديل على الملف السابق كما تريد بالضبط ....

وهذا حل اخر ان اردت

 يمكنك ذلك من خلال قائمة Data ثم تختار Subtotal

إدراج صف تلقائى - 1.xlsm

[حاتم عيسى]

الأستاذ الفاضل : Ali Mohamed Ali

شكرا جزيلا لحضرتك على المجهود الرائع والعمل الممتاز وجعل الله جميع أعمالك في موازين حسناتك ونفعك بها يوم لقاه .

وشكرا للمنتدى الغالي على السادة المشرفين والرواد والقائمين على المنتدى لما يبذلوه من جهد لخدمة الجميع .