Çalışma kitabınınn YEDEÃÃNÃ ALMA ile ilgili bir soru
Merhaba Arkadaşlar;
Sub yedekle()
cevap = MsgBox("Bilgilerinizin son hali bugunku tarihle farklı kayıt edilerek yedeklenecektir. Yedeklenen bilgilere :" & yedekyolu & " My Documents ''Belgelerim'' klasöründen erişebilirsiniz. Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
GoTo son
End If
[J57].Select
ActiveCell.FormulaR1C1 = " Belgeniz: C/Belgelerim/O.z.G.Yedek-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "O.z.G.Yedek-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
[J57].Select
ActiveCell.FormulaR1C1 = "Yedekleme Tamamlandı"
[G10].Select
End Sub
kodları yardımıyla kitabımı yedeklediğimde AKTİF OLARAK yedekleme yapmış olduğum dosya açılıyor.Bunu nasıl önleyebilirim.Yani diyelimki çalışma kitabım OZG ,ben bunu yedekle dediğimde O.z.G-12.12.1978 şeklinde yedeklesin ama OZG çalışma kitabı aktif olsun.Bunu nasıl yapabiliriz.?
Teşekkürler... İyi çalışmalar
Merhaba Arkadaşlar;
Sub yedekle()
cevap = MsgBox("Bilgilerinizin son hali bugunku tarihle farklı kayıt edilerek yedeklenecektir. Yedeklenen bilgilere :" & yedekyolu & " My Documents ''Belgelerim'' klasöründen erişebilirsiniz. Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
GoTo son
End If
[J57].Select
ActiveCell.FormulaR1C1 = " Belgeniz: C/Belgelerim/O.z.G.Yedek-" & Date & " olarak kaydediliyor... Lutfen Bekleyiniz..!"
dosyaadi = "O.z.G.Yedek-" & Str(Date)
ActiveWorkbook.SaveAs Filename:=dosyaadi & ".xls"
son:
[J57].Select
ActiveCell.FormulaR1C1 = "Yedekleme Tamamlandı"
[G10].Select
End Sub
kodları yardımıyla kitabımı yedeklediğimde AKTİF OLARAK yedekleme yapmış olduğum dosya açılıyor.Bunu nasıl önleyebilirim.Yani diyelimki çalışma kitabım OZG ,ben bunu yedekle dediğimde O.z.G-12.12.1978 şeklinde yedeklesin ama OZG çalışma kitabı aktif olsun.Bunu nasıl yapabiliriz.?
Teşekkürler... İyi çalışmalar