- Katılım
- 20 Ocak 2005
- Mesajlar
- 526
- Excel Vers. ve Dili
- Excel 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-01-2024
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
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