تحديث نواتج الدوال بإضافة بيانات جديدة لورقة العمل

[Alsalim1]

مرحبا شباب أتمنى أن تكونوا في أحسن حال

هل توجد طريقة لتحديث نواتج المعادلات بمجرد إضافة بيان جديد لورقة العمل في المثال المرفق عند إضافة موظف جديد يحمل رقم 6 يتغير تلقائي البيان الموجود في ورقة رقم 2

تحديث نواتج الدوال تلقائي بعد إضافة بيان جديد لورقة العمل.xlsx

[mishoexcel]

تحديث نواتج الدوال تلقائي بعد إضافة بيان جديد لورقة العمل.xlsx

[Alsalim1]

استاذ mishoexecel

شاكر كثير ردك و إجابتك بس قرأت مرة إذا حددت العمود كامل بورقة العمل راح يسبب ضغط على الملف فمابالك ب ورقة عمل بها كل تفاصيل بيانات الموظفين البالغ عددهم تقريباً 350 موظف.

[lionheart]

Easier to modify the last row numbers in your formulas but if you need a code to get only values you can try the following code in worksheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lr As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And (Target.Column >= 1 And Target.Column <= 6) Then
        If Application.CountA(Range("A" & Target.Row).Resize(, 6)) = 6 Then
            With Sheet1
                lr = .Cells(Rows.Count, 1).End(xlUp).Row
                Sheet2.Range("A2").Value = Application.Count(.Range("A2:A" & lr))
                Sheet2.Range("B2").Value = Application.CountIf(.Range("C2:C" & lr), Sheet2.Range("B1").Value)
                Sheet2.Range("C2").Value = Application.CountIf(.Range("C2:C" & lr), Sheet2.Range("C1").Value)
                Sheet2.Range("D2").Value = Application.Sum(.Range("F2:F" & lr))
            End With
        End If
    End If
End Sub

 

[Alsalim1]

في ٤‏/١٢‏/٢٠٢١ at 09:24, lionheart said:

Easier to modify the last row numbers in your formulas but if you need a code to get only values you can try the following code in worksheet module

استاذ/ lionheart

أشكر ومقدر ردك عندي في الورقة الأولى تفاصيل بيانات الموظفين وفي الورقة الثانية أريد أعمل تقارير سريعة كما في المرفق ما هي أفضل طريقة لتحديث التقارير في الورقة رقم 2 تلقائي أريد أأمن المعادلات وأسلم الملف إلى الموظف المسؤول عن إدخال البيانات 

تحديث نواتج الدوال تلقائي بعد إضافة بيان جديد لورقة العمل.xlsx

[Alsalim1]

مرحبا شباب

ما زلت أنتظر إجابة أحد الاساتذه

[Alsalim1]

مرحبا شباب كيفكم

 

ما زلت أنتظر التفضل منكم على الإجابة على المشاركة