Makro İşlemi Esnasında Bekleme Ekranı

[mustafa1205]

Excel ile yaptığım 75 mb lık bir çalışmam var ve işlemler makro kullanılarak oluyor.Ancak işlem için butona bastığımda yaklaşık olarak tamamlanması 50 sn sürüyor.Bu bekleme esnasında ekranda başka bir görüntü uyarı yada animasyon yapılabilir mi? Teşekkürler

 

[ReBiwAr]

"işlem sürüyor.." veya progressbar tarzı bir şey mi arıyorsunuz?

 

[Korhan Ayhan]

Merhaba,

Bu konu daha önce işlenmişti. Aşağıdaki konuları inceleyiniz.

Makro bitene kadar "Bekleyiniz" mesajı
İşlem devam ederken uyarı penceresi çıkması
Modül çalışırken mesaj yazdırmak
Makro çalışırken bekleyin mesajı

 

[İhsan Tank]

Excel ile yaptığım 75 mb lık bir çalışmam var ve işlemler makro kullanılarak oluyor.Ancak işlem için butona bastığımda yaklaşık olarak tamamlanması 50 sn sürüyor.Bu bekleme esnasında ekranda başka bir görüntü uyarı yada animasyon yapılabilir mi? Teşekkürler

Merhaba
Bir userform oluşturun ve içine bir tane Label oluşturun ona da Lütfen Bekleyiniz yazın.
Sonra Module bu kodu koplanayın

Option Explicit
Sub ileti()
Application.ScreenUpdating = False
UserForm1.Show 0
Application.Wait (Now + TimeValue("0:00:01"))
'kodlar
'kodlar
Application.ScreenUpdating = True
Unload UserForm1
MsgBox "Bitti"
End Sub

Kodlar yazan yere kodlarınızı yazın.

 

[mustafa1205]

Sayın Korhan Hocam çok teşekkür ediyorum linkleri inceledim .Tekrar teşekkürler

 

[mustafa1205]

Sevgili İhsan Hocam çok teşekkür ediyorum.Denedim çok güzel çalıştı.Tekrar teşekkürler

 

[baydeniro]

Teşekkürler

 

[İhsan Tank]

Sevgili İhsan Hocam çok teşekkür ediyorum.Denedim çok güzel çalıştı.Tekrar teşekkürler

Rica ederim
:keyif:

 

[İhsan Tank]

Teşekkürler

Rica ederim
:keyif:

 

[myoldas]

Merhaba
Bir userform oluşturun ve içine bir tane Label oluşturun ona da Lütfen Bekleyiniz yazın.
Sonra Module bu kodu koplanayın

Option Explicit
Sub ileti()
Application.ScreenUpdating = False
UserForm1.Show 0
Application.Wait (Now + TimeValue("0:00:01"))
'kodlar
'kodlar
Application.ScreenUpdating = True
Unload UserForm1
MsgBox "Bitti"
End Sub

Kodlar yazan yere kodlarınızı yazın.

Hocam selamlar
yazınızı okudum .benzer şekilde benim excel içinde buton ile kullandığım bir makrom var.bir excel dosyasından diğer excel dosyasına butona bastıkça verileri aktarıyorum.screen updating false de yapsam dosyalar arası geçiş yaptıkça ekranda sürekli hareketleri izlemek durumunda kalıyoruz
Bu yazdığınız bekle olayını buton ile çalışan macroma nasıl eklerim ?
Selamlar

 

[YUSUF44]

Kullandığınız kodların başına application.screenupdating = false ve sonuna application.screenupdating = true satırlarını eklerseniz sayfa yenileme işlemlerini makro çalışırken görmezsiniz.

sub makro()
application.screenupdating = false
.
.
diğer kodlar
.
.
application.screenupdating = true
end sub

gibi.

 

[myoldas]

Yusuf bey yanıt için teşekkür ediyorum.
Bunu kullanıyorum ama veri aktarımı dosyalar arası yaptığı için git-gel ekranda sürekli görünüyor.
Makro içeriği aşağıda ekledim.Belki bu aktarımın daha kolay bir yolu vardır.

Sub Düğme5_Tıkla()
met = MsgBox("Tüm bilgiler girildi ise yapılan Teklif değerlendirme bilgileri arşiv için 'Teklif değerlendirme arşive'aktarılacak.?", vbYesNo, "Metin diyorki")
If met = vbYes Then
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Veriler arşive aktarılıyor,Lütfen Bekleyin..."
Workbooks.Open Filename:="C:\Users\metin\Desktop\SATINALMA\5-TEKLİF DEĞERLENDİRME-ARŞİV.xlsm"
Sheets("Teklif değ.Arşiv").Select
ActiveSheet.Unprotect Password:="myl"
Windows("2-TEKLİF DEĞERLENDİRME.xlsm").Activate
Sheets("Özet-Değerlendirme").Range("M3").Copy
Windows("5-TEKLİF DEĞERLENDİRME-ARŞİV.xlsm").Activate
sat = Sheets("Teklif değ.Arşiv").Cells(65536, "a").End(xlUp).Row + 1
Sheets("Teklif değ.Arşiv").Range("a" & sat).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Windows("2-TEKLİF DEĞERLENDİRME.xlsm").Activate
Sheets("Özet-Değerlendirme").Range("b6").Copy
Windows("5-TEKLİF DEĞERLENDİRME-ARŞİV.xlsm").Activate
sat = Sheets("Teklif değ.Arşiv").Cells(65536, "b").End(xlUp).Row + 1
Sheets("Teklif değ.Arşiv").Range("b" & sat).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Windows("2-TEKLİF DEĞERLENDİRME.xlsm").Activate
Sheets("Özet-Değerlendirme").Range("f5").Copy
Windows("5-TEKLİF DEĞERLENDİRME-ARŞİV.xlsm").Activate
sat = Sheets("Teklif değ.Arşiv").Cells(65536, "c").End(xlUp).Row + 1
Sheets("Teklif değ.Arşiv").Range("c" & sat).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Cells.Select
With Selection
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
With Selection
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Range("a1").Select
ActiveSheet.Protect Password:="myl"
ActiveWorkbook.Save
Windows("2-TEKLİF DEĞERLENDİRME.xlsm").Activate
Sheets("Özet-Değerlendirme").Select
MsgBox "Teklif değerlendirme bilgileri '5-Teklif değ.Arşiv ' dosyasına aktarıldı"
End If
If met = vbNo Then
End If
Application.ScreenUpdating = True
End Sub

 

[myoldas]

bilgisi olan yok sanırım

 

[myoldas]

Bu konuda hala yardıma ihtiyacım var. İlgilenen arkadaşlara şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Select ve Activate komutlarını kaldırırsanız titremeler bir nebze azalacaktır.

Kod düzenini buna göre kurgulamayı deneyiniz.