UserFormun açılıp kapanışındaki yavaşlık

[tet42]

merhaba excellde bir çalışma yaptım ama açarken ve kapanırken kayıt ediyor çok yavaş açılıp kapanıyor user form
kodu bu şekilde nasıl hızlandırabilirm
Sub auto_open()
ThisWorkbook.Save
Application.Caption = "Esnaf ve Sanatkarlar Kredi Kefalet Kooperatifleri"
ActiveWindow.Caption = "KREDİ HAZIRLAMA PROGRAMI-V-16.0"
Sheets("ANASAYFA").Select
Kredi.Show
End Sub

 

[Ömer]

Merhaba,

Konu başlığını sorunun içeriğini ifade edecek şekilde değiştirmenizi rica ederim.

Açılan Konu Başlığını Düzeltmek

Forum Kurallarina Uymayan Basliklar Hakkinda

.

 

[Husgvarna]

merhaba excellde bir çalışma yaptım ama açarken ve kapanırken kayıt ediyor çok yavaş açılıp kapanıyor user form
kodu bu şekilde nasıl hızlandırabilirm
Sub auto_open()
ThisWorkbook.Save
Application.Caption = "Esnaf ve Sanatkarlar Kredi Kefalet Kooperatifleri"
ActiveWindow.Caption = "KREDİ HAZIRLAMA PROGRAMI-V-16.0"
Sheets("ANASAYFA").Select
Kredi.Show
End Sub

Merhaba.
Dosyanın açılırken kaydedimesi (Farklı kaydetmek istemiyorsanız) anlamsız; kırmızı bölümü silip deneyin.
Kapanırken dosyanızın büyüklüğüne göre yavaşlaması normaldir.

Sub auto_open()
[COLOR="Red"]ThisWorkbook.Save[/COLOR]
Application.Caption = "Esnaf ve Sanatkarlar Kredi Kefalet Kooperatifleri"
ActiveWindow.Caption = "KREDİ HAZIRLAMA PROGRAMI-V-16.0"
Sheets("ANASAYFA").Select
Kredi.Show
End Sub

 

[tet42]

Merhaba.
Dosyanın açılırken kaydedimesi (Farklı kaydetmek istemiyorsanız) anlamsız; kırmızı bölümü silip deneyin.
Kapanırken dosyanızın büyüklüğüne göre yavaşlaması normaldir.

Sub auto_open()
[COLOR="Red"]ThisWorkbook.Save[/COLOR]
Application.Caption = "Esnaf ve Sanatkarlar Kredi Kefalet Kooperatifleri"
ActiveWindow.Caption = "KREDİ HAZIRLAMA PROGRAMI-V-16.0"
Sheets("ANASAYFA").Select
Kredi.Show
End Sub

silincede hata veriyor onu denedim