كيف انقل صف من جدول عند النقر في احدى خلاياه

[atob]

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء طلبي هو كيف انقل صف كامل من جدول عند عمل دبل كليك على الخليه الثالثه فيه

وبعد ذلك ينتقل الي جدول اخر في نفس الصفحه

والملف المرفق يوضح اكثر

ترحيل صف.rar

واخيرا اشكركم

[عبدالله باقشير]

السلام عليكم

تفضل الكود:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim s As Long

Dim R As Long

Dim Last As Long, LastRow As Long

On Error GoTo 1

R = Target.Row

If R >= 7 And Target.Column = 4 Then

     LastRow = Range("d" & Rows.Count).End(xlUp).Row

    If Not Application.Intersect(Target, Range("d7", Cells(LastRow, "d"))) Is Nothing Then

        Cancel = True

        Last = Range("j" & Rows.Count).End(xlUp).Row + 1

        Range("j" & Last).Resize(1, 6).Value = Range("b" & R).Resize(1, 6).Value

        '''''''''''''''''''''''''''

        'اذا اردت حذف الصف المنقول

        Range("b" & R).Resize(1, 6).Delete xlUp

        '''''''''''''''''''''''''''''

    End If

End If

1:

End Sub

[atob]

اشكرك جزيل الشكر اخي عبدالله فأنت دائما سباق الي الخير