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

[ali.b]

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

Sub CopyMoveData()

Dim ws As Worksheet
Const sRng As String = "A5:J5"
Const dRng As String = "A6:J6"

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

[علی فاطمی]

.

[علی فاطمی]

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

[علی فاطمی]

.

[علی فاطمی]

.