السلام عليكم
تفضل أخي
المرفق وبه الشرح
الحل عن طريق ماكرو خاص بالدبل كليك
وضعت منه نسخة داخل جميع الصفحات التي سيتم الترحيل منها
هذا هو الماكرو
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column <> 27 Then Exit Sub
If Target.Row < 2 Then Exit Sub
Dim r(3) As Double, tx(3) As String
x = Target.Value
rr = Target.Row
Range(Cells(rr, 1), Cells(rr, 26)).Copy
Sheets(x).Range("A195").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub
work_tareq.rar