از قبل هم گذاشتم منظورتون این حالتیه؟
کد:
Sub sabt()
ActiveSheet.Unprotect "123"
Dim c As Range
For i = 1 To Sheets.Count
For Each c In Sheet1.Range("I3")
If c.Value = Sheets(i).Name Then
Range("A3:H3").Select
Selection.Copy
Sheets(i).Activate
Range("A3").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("A3").Select
Sheets("ËÈÊ").Select
Range("A3:G3,I3").Select
Selection.ClearContents
Range("A3").Select
End If
Next c
Next i
ActiveSheet.Protect "123"
End Sub
اما گزینه
کد:
Selection.Insert Shift:=xlDown
مشکل پیدا میکنه
علاقه مندی ها (Bookmarks)