Komutları Tek Düğmeye bağlamak

[5353]

3 Komut Düğmesi var. Bunları Tek Düğmeye bağlayabilir miyiz ?

Sub aktar()
Application.ScreenUpdating = False
If Dir("C:\adres.xls") <> "" Then
Workbooks.Open ("C:adres.xls")
Else
MsgBox "Dosya bulunamadı!"
GoTo devam
End If
Sheets(1).Range("A1:k120").Copy ThisWorkbook.Worksheets("ctrlv").Range("A1")
ActiveWorkbook.Close False
Application.ScreenUpdating = True
devam:
End Sub
Sub yaz()
'
' yaz Makro
'
' Klavye Kısayolu: Ctrl+ç
'
Sheets("çıktı").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Veri").Select
End Sub
Sub sill()
Kill "Adres.xls"
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub aktar()
Application.ScreenUpdating = False
If Dir("C:\adres.xls") <> "" Then
Workbooks.Open ("C:adres.xls")
Else
MsgBox "Dosya bulunamadı!"
GoTo devam
End If
Sheets(1).Range("A1:k120").Copy ThisWorkbook.Worksheets("ctrlv").Range("A1")
ActiveWorkbook.Close False
Application.ScreenUpdating = True
devam:


Sheets("çıktı").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Veri").Select

Kill "Adres.xls"
End Sub

 

[5353]

Merhaba.

Sub aktar()
Application.ScreenUpdating = False
If Dir("C:\adres.xls") <> "" Then
Workbooks.Open ("C:adres.xls")
Else
MsgBox "Dosya bulunamadı!"
GoTo devam
End If
Sheets(1).Range("A1:k120").Copy ThisWorkbook.Worksheets("ctrlv").Range("A1")
ActiveWorkbook.Close False
Application.ScreenUpdating = True
devam:


Sheets("çıktı").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Veri").Select

Kill "Adres.xls"
End Sub

Teşekkürler . Selamlar.