کد:
Sub Macro2()
Range("D1:D3").Copy Destination:=Range("B4")
Range("B1:B6").Copy
Sheets("ÇØáÇÚÇÊ").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("ÝÑã").Select
Range("B4:B6").ClearContents
Range("B1").Select
End Sub
براي پرينت هم ميتونين از كد زير كمك بگيرين:
کد:
Sub Macro4()
Range("A1:D3").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
علاقه مندی ها (Bookmarks)