İki farklı kod birleştirme

[alperalper]

Arkadaşlar şu aşağıdaki kodları nasıl birleştireceğiz. İkiside aynı cammandbuttonda olacak şekilde....

Private Sub CommandButton6_Click()
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs isim
End Sub

Private Sub CommandButton6_Click()
Unload UserForm3
Application.Visible = True
End Sub

Ayrıca birinci kod belgelerim içine yedek alıyor. Kodda başka değişiklik yapmadan sadece yedek aldığı yeride değiştirebilirmiyiz...

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs ("c:\test\" & isim)
Application.Visible = True
Unload Me
End Sub