Makronun Hızlanması Hk.

[ahmed_ummu]

Merhaba arkadaşlar

Üzerinde çalıştığım dosyayı kapatırken yapılan değişiklikleri kaydediyor ama kaydetme işlemi 15 20 saniye sürüyor. bunu nasıl hızlandırabilirim.
Dosyanın bazı yerlerinden de işlem yaparken de kaydetmesi gerekiyor. Mesela her bir personelin ders ücretini kaydederken çalışma kitabını da kaydetme kodu var. Bilgisayarın kilitlenmesi, elektrik kesilmesi vb. den dolayı dosya kapanırsa girilen bilgiler kaybolmasın diye.

Aşağıdaki kodlarda kırmızı olan kodları buldum ama "Sub or function not defined" hatası veriyor. Bu konuda yardımcı olursanız sevinirim.

cevap = MsgBox("Programı Kapatacak mısınız...?", vbQuestion + vbYesNoCancel, "Kapat")
If cevap = vbYes Then
TurnOnSpeed True
ThisWorkbook.Save
TurnOnSpeed False
Application.Quit
Else
Exit Sub
End If

 

[tamer42]

Merhaba arkadaşlar

Üzerinde çalıştığım dosyayı kapatırken yapılan değişiklikleri kaydediyor ama kaydetme işlemi 15 20 saniye sürüyor. bunu nasıl hızlandırabilirim.
Dosyanın bazı yerlerinden de işlem yaparken de kaydetmesi gerekiyor. Mesela her bir personelin ders ücretini kaydederken çalışma kitabını da kaydetme kodu var. Bilgisayarın kilitlenmesi, elektrik kesilmesi vb. den dolayı dosya kapanırsa girilen bilgiler kaybolmasın diye.

Aşağıdaki kodlarda kırmızı olan kodları buldum ama "Sub or function not defined" hatası veriyor. Bu konuda yardımcı olursanız sevinirim.

cevap = MsgBox("Programı Kapatacak mısınız...?", vbQuestion + vbYesNoCancel, "Kapat")
If cevap = vbYes Then
TurnOnSpeed True
ThisWorkbook.Save
TurnOnSpeed False
Application.Quit
Else
Exit Sub
End If

TurnOnSpeed prosedürünü tanımlamanız gerekiyor.
içeriği nedir bunun?

TurnOnSpeed True

 

[ahmed_ummu]

TurnOnSpeed prosedürünü tanımlamanız gerekiyor.
içeriği nedir bunun?

TurnOnSpeed True

Bende bu forumdan buldum. Ekte eklediği resimdeki gibi

TurnOnSpeed True
Sizin kodlarınız
TurnOnSpeed False

 

[tamer42]

Bende bu forumdan buldum. Ekte eklediği resimdeki gibi

TurnOnSpeed True
Sizin kodlarınız
TurnOnSpeed False

Forumdaki Linkini atar mısınız

 

[ahmed_ummu]

Forumdaki Linkini atar mısınız

Makro çok yavaş çalışıyor. Nasıl hızlandırabiliriz

Merhabalar, Kendimce yapmaya çalışmış olduğum bir veri yönetimi uygulamasında klasik kaydet değiştir sil butonları var. Lakin bu butonlara bastığımda çok yavaş çalışmaktadır. Kodların tamamını forumdan derleyerek yazmaya çalıştım. Muhtemelen bu kodların daha seri çalışması lazım ama biraz...

www.excel.web.tr

 

[ahmed_ummu]

9. mesaj
muratboz06 mesajı

 

[tamer42]

9. mesaj
muratboz06 mesajı

Bu fonksiyonu dosyanıza eklediniz mi?

Public Function TurnOnSpeed(x As Boolean)

    If x = True Then
    With Application
        PriorCalcMode = Application.Calculation
            .ScreenUpdating = False
            .DisplayAlerts = False
            .EnableEvents = False
            .Cursor = xlWait
            .Calculation = xlCalculationManual
    End With
    
    ElseIf x = False Then
    
    With Application
            .ScreenUpdating = True
            .DisplayAlerts = True
            .EnableEvents = True
            .StatusBar = False
            .Cursor = xlDefault
        .Calculation = PriorCalcMode
        End With
    End If

End Function

 

[ahmed_ummu]

Bu fonksiyonu dosyanıza eklediniz mi?

Public Function TurnOnSpeed(x As Boolean)

    If x = True Then
    With Application
        PriorCalcMode = Application.Calculation
            .ScreenUpdating = False
            .DisplayAlerts = False
            .EnableEvents = False
            .Cursor = xlWait
            .Calculation = xlCalculationManual
    End With
   
    ElseIf x = False Then
   
    With Application
            .ScreenUpdating = True
            .DisplayAlerts = True
            .EnableEvents = True
            .StatusBar = False
            .Cursor = xlDefault
        .Calculation = PriorCalcMode
        End With
    End If

End Function

Hayır eklemedim.

Yukarıdaki kodları bir yere eklemek mi gerekiyor.

 

[Korhan Ayhan]

Bahsi geçen prosedürü boş bir modüle ekleyip deneyebilirsiniz.

 

[ahmed_ummu]

Bahsi geçen prosedürü boş bir modüle ekleyip deneyebilirsiniz.

Evdeki bilgisayarda 3-4 saniye de kaydediyor ama bide işyerindeki bilgisayarda denemeliyim.

 

[N.Ziya Hiçdurmaz]

Merhaba; Dosyalarınızın daha hızlı kaydetmesini istiyorsanız. excel ikili çalışma kitabı xlsb uzantılı olarak kullanmayı denemelisiniz.

 

[ahmed_ummu]

Merhaba; Dosyalarınızın daha hızlı kaydetmesini istiyorsanız. excel ikili çalışma kitabı xlsb uzantılı olarak kullanmayı denemelisiniz.

Merhaba N.Ziya Hiçdurmaz farklı bie excel sürümümü kullanmalıyım veya dosyayı xlsb uzantılı olarak farklı mı kaydetmeliyim.

 

[ahmed_ummu]

Merhaba N.Ziya Hiçdurmaz farklı bie excel sürümümü kullanmalıyım veya dosyayı xlsb uzantılı olarak farklı mı kaydetmeliyim.

Teşekkürler Sayın N. Ziya Hiçdurmaz bayağı hızlandı.