با سلام
با اید کد می تونین رنج های دخواه در سلول های سیک شیت رو به شیت های دیگه منتقل کنین
قسمت هایی که رنگشون تغییر دادم رو باید بر حسب نیازتون تغییر بدین
با اید کد می تونین رنج های دخواه در سلول های سیک شیت رو به شیت های دیگه منتقل کنین
قسمت هایی که رنگشون تغییر دادم رو باید بر حسب نیازتون تغییر بدین
کد:
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
کامنت