- Katılım
- 7 Temmuz 2007
- Mesajlar
- 111
- Excel Vers. ve Dili
- Office 2003 Tr
Arkadaşlar şu aşağıdaki kodları nasıl birleştireceğiz. İkiside aynı cammandbuttonda olacak şekilde....
Ayrıca birinci kod belgelerim içine yedek alıyor. Kodda başka değişiklik yapmadan sadece yedek aldığı yeride değiştirebilirmiyiz...
Kod:
Private Sub CommandButton6_Click()
zaman = Application.Text(Now(), "mm-dd-yy hh-mm")
isim = "Yedek" & zaman & ".XLS"
ActiveWorkbook.SaveCopyAs isim
End Sub
Kod:
Private Sub CommandButton6_Click()
Unload UserForm3
Application.Visible = True
End Sub