الصراحة الطلب غريب نوعاً ما .. عموماً جرب الكود التالي في حدث ورقة العمل
قبل نسخ الكود قم بحذف الصفوف بدايةً من الصف رقم 14 وكل ما يليه من صفوف بها بيانات وامسح الجدول رقم 2 بما فيه من معادلات وابدأ في عمليات الإدخال في الصف رقم 3 فقط في الجدول رقم 1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Long, n As Long
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Row = 3 And (Target.Column >= 1 And Target.Column <= 3) Then
m = Cells(Rows.Count, Target.Column).End(xlUp).Row + 1
Cells(m, Target.Column).Value = Target.Value
If Target.Column = 3 Then Cells(Target.Row, 1).Select Else Target.Offset(, 1).Select
End If
If Target.Row >= 4 And Target.Column = 3 Then
n = Cells(Rows.Count, 12).End(xlUp).Row + 1
Cells(n, 12).Resize(1, 4).Value = Target.Offset(, -2).Resize(1, 4).Value
End If
End Sub
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
