أخي الكريم أكرر أنه لابد من تعلم الأساسيات وعند شرح الموضوع لابد من ذكر التفاصيل المرتبطة بالنقطة التي تسأل عنها فأنا لا أحب التخمين ولا العمل على التخمين
وسأعتبر هذا استثناء في الموضوع
أعتقد أنك تريد ترحيل البيانات التي يتم إدخالها في النطاق من A3 إلى D3 إلى أول سطر فارغ في نهاية الجدول رقم 1
أولاً قبل وضع الكود قم بحذف الصفوف بدايةً من الصف رقم 14 ثم ضع الكود التالي في حدث ورقة العمل (كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود من المشاركة)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim m As Long
If Target.Row = 3 And Target.Column >= 1 And Target.Column <= 4 Then
Target.Offset(, 1).Select
If Target.Column = 4 Then
Cells(Target.Row, 1).Select
m = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(m, 1).Resize(1, 4).Value = Cells(3, 1).Resize(1, 4).Value
Cells(m, 5).Formula = "=C" & m & "*D" & m
Application.EnableEvents = False
Range("A3:D3").ClearContents
Application.EnableEvents = True
End If
End If
End Sub
عمل الكود: ستقوم بتحديد A3 وتدخل بيانك ثم تضغط إنتر فينتقل بك الكود للخلية المجاورة B3 بشكل تلقائي وهكذا حتى الخلية D3 .. بعد الضغط على إنتر في الخلية D3 أي بعد انتهاء إدخال البيانات ستتم عندها عملية ترحيل البيانات ومسح النطاق A3 إلى D3 وكذلك يتم وضع المعادلة تلقائياً في الصف الذي تم فيه الترحيل
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
