السلام عليكم
الاخ الكريم / Islam_4a
بارك الله فيك
اليك الملف المرفق به الاكواد التاليه
ضع الكود التالي في موديل
Sub SAMA()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("صفحة العملاء")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = ActiveCell
End Sub
ثم قم بوضع الكود التالي في حدث الصفحة
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Call SAMA
End Sub
حيث يمكنك ذلك الكود من انه عند اختيار وتحديد اي خليه تريدها في الشيت ( دبل كليك )
يتم نسخها تلقائيا في آخر صف اي بعد آخر كود في الجدول ..
هل هذا ما تقصده انت ...
جزاك الله خيرا
qustion+.rar