این کدبه دردت میخوره
کد:
Sub sabt()Dim c As Range
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For Each c In Sheet1.Range("K3")
If c.Value = Sheets(i).Name Then
Sheets(i).Activate
Range("A3").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Sheet1.Range("A3:J3").Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next c
Next i
Application.ScreenUpdating = True
End Sub
داده هارو تو ی شیت مینویسی بعد اسم شیتموردنظر رو تو سلول k3 میزاری اطلاعات رو به شیتیکه هم نامk3 باشه می فرسته
علاقه مندی ها (Bookmarks)