انتقال اطلاعات سلول های مورد در شیت به شیت دیگر

[ali.b]

با سلام
با اید کد می تونین رنج های دخواه در سلول های سیک شیت رو به شیت های دیگه منتقل کنین
قسمت هایی که رنگشون تغییر دادم رو باید بر حسب نیازتون تغییر بدین

Sub CopyMoveData()
 
Dim ws As Worksheet
Const sRng As String = "[COLOR=#ff0000]A5:J5[/COLOR]"
Const dRng As String = "[COLOR=#ff0000]A6:J6[/COLOR]"
 
Application.ScreenUpdating = False
 
For Each ws In ActiveWorkbook.Sheets
    With ws
      .Range(dRng).Value = .Range(sRng).Value
    End With
Next ws
 
Application.ScreenUpdating = True
 
End Sub

[علی فاطمی]

.

[علی فاطمی]

.........................

[علی فاطمی]

.

[علی فاطمی]

.