- Katılım
- 3 Nisan 2012
- Mesajlar
- 41
- Excel Vers. ve Dili
- 2010 türkçe
arkadaşlar elimde makrolu bi dosyamın küçük bi kısmı var 1 hafta öncesine kadar normal bi şekilde çalışıyordu fakat şimdi çok sıkıntılı çalışıyor ayrıca bu makronu değşik şekillerini kullandığım bi çok dosya var ve hepsindede kaydet çık butonu nu kullandığım zaman ya hata alıyorum yada garip garip bişeyler söylüyor dosyanın onarılması gerektiğini filan onar dediğimdede onarılacak bişeyin bulunadığını söylüyor garip bi durum yani yardımcı olabilecek misiniz acaba arkadaşlar şimdiden teşekkürler.
Private Sub CommandButton1_Click()
UserForm7.Hide
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim DosyaSistemi As Object, Aktif_Dosya_Adı As String
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Aktif_Dosya_Adı = ThisWorkbook.FullName
Yedek_Dosya_Adı = Replace(ThisWorkbook.Name, "", "")
Kayıt_Yeri = "G:\Programlar\PROGRAMLAR VE KURULUMLARI\SAYAÇ & BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\" & Yedek_Dosya_Adı
ThisWorkbook.Save
On Error Resume Next
If Dir("G:\Programlar\PROGRAMLAR VE KURULUMLARI\SAYAÇ & BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\") = "" Then MkDir ""
DosyaSistemi.CopyFile Aktif_Dosya_Adı, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Yedek_Dosya_Adı, vbInformation, "CELL_O"
cevap = MsgBox(" DOSYA KAPATILACAK DEĞİŞİKLİKLER KAYDEDİLSİN Mİ ? ", vbYesNoCancel, "CELL_O")
If cevap = vbCancel Then Exit Sub
If cevap = vbNo Then Application.Quit
If cevap = vbYes Then
ActiveWorkbook.Save
Application.Quit
End If
End Sub
Private Sub CommandButton4_Click()
UserForm7.Hide
UserForm8.Show
End Sub
Private Sub CommandButton6_Click()
UserForm7.Hide
LOGİN3.Show
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then MsgBox "BURADAN ÇIKAMAZSIN TOSUN": Cancel = True
End Sub
Private Sub CommandButton1_Click()
UserForm7.Hide
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim DosyaSistemi As Object, Aktif_Dosya_Adı As String
Dim Yedek_Dosya_Adı As String, Kayıt_Yeri As String
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
Aktif_Dosya_Adı = ThisWorkbook.FullName
Yedek_Dosya_Adı = Replace(ThisWorkbook.Name, "", "")
Kayıt_Yeri = "G:\Programlar\PROGRAMLAR VE KURULUMLARI\SAYAÇ & BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\" & Yedek_Dosya_Adı
ThisWorkbook.Save
On Error Resume Next
If Dir("G:\Programlar\PROGRAMLAR VE KURULUMLARI\SAYAÇ & BACA GAZI PROGRAMLARI\alp teknik)\e680\Kilitli\") = "" Then MkDir ""
DosyaSistemi.CopyFile Aktif_Dosya_Adı, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Yedek_Dosya_Adı, vbInformation, "CELL_O"
cevap = MsgBox(" DOSYA KAPATILACAK DEĞİŞİKLİKLER KAYDEDİLSİN Mİ ? ", vbYesNoCancel, "CELL_O")
If cevap = vbCancel Then Exit Sub
If cevap = vbNo Then Application.Quit
If cevap = vbYes Then
ActiveWorkbook.Save
Application.Quit
End If
End Sub
Private Sub CommandButton4_Click()
UserForm7.Hide
UserForm8.Show
End Sub
Private Sub CommandButton6_Click()
UserForm7.Hide
LOGİN3.Show
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then MsgBox "BURADAN ÇIKAMAZSIN TOSUN": Cancel = True
End Sub
