makro atama

[dr_1356]

makro atamayı bilmiyorum nasıl yapabilirim anlatabilirmisiniz ör....şu makroSub YEDEK_OLUŞTUR()
Dim Dosya_Yolu As String
Dim Dosya_Adı As String
Application.DisplayAlerts = False
Dosya_Yolu = ThisWorkbook.Path & "\"
Dosya_Adı = Format(Date, "dd.mm") & ".xls"
ActiveWorkbook.SaveAs (Dosya_Yolu & Dosya_Adı)
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
If Excel.Application.Windows.Count = 1 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.excel.web.tr/f157/sayfada-buton-dugme-olusturmak-ve-makro-atamak-resimli-t59436.html

 

[dr_1356]

çok teşekür ederim sagoloun