kod kısaltma

[acar6783]

merhabalar kolay gelsin .

aşağıdaki kodu kısaltabiliyoöuyuz daha pratik olsun diye .


Columns("A:V").Copy
Application.CutCopyMode = False

Range("W1").Select
ActiveSheet.Paste
Range("AS1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub

 

[acar6783]

yardımcı olabilecekmisiniz..

 

[ExcelF1]

Columns("A:V").Copy Range("W1")
Columns("A:V").Copy Range("AS1")
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

şeklinde yapabilirsiniz.