• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro İşlemi Esnasında Bekleme Ekranı

M

mustafa1205

Altın Üye
Katılım
23 Ekim 2010
Mesajlar
1,435
Excel Vers. ve Dili
Office 2016 / 64 Bit - Türkçe
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
 
"işlem sürüyor.." veya progressbar tarzı bir şey mi arıyorsunuz?
 
mustafa1207' Alıntı:
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
Genişletmek için tıkla ...

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
Kod: 
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.
 
Sayın Korhan Hocam çok teşekkür ediyorum linkleri inceledim .Tekrar teşekkürler
 
Sevgili İhsan Hocam çok teşekkür ediyorum.Denedim çok güzel çalıştı.Tekrar teşekkürler
 
İhsan Tank' Alıntı:
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
Kod: 
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.
Genişletmek için tıkla ...


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
 
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.
 
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
 
Bu konuda hala yardıma ihtiyacım var. İlgilenen arkadaşlara şimdiden teşekkür ederim.
 
Select ve Activate komutlarını kaldırırsanız titremeler bir nebze azalacaktır.

Kod düzenini buna göre kurgulamayı deneyiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst