makro çalışırken bekleyin mesajı

[uzmanamele]

merhaba
örnek dosyada, makro çalışırken "lütfen bekleyiniz..." mesajı verdirmek istiyorum ama beceremedim.

not: örnek dosyayı değiştirdim. son halinde belirgin bir süre beklemek gerekiyor.

 

[uzmanamele]

merhaba
ekteki örnek dosya tek başına açıkken makro çalıştırıldığında 4-5 saniye sürüyor.
8 Mb büyüklüğünde ve içersinde epey çok makro olan birbaşka dosya açıkken örnek dosyadaki makro çalıştırıldığında her sayfa için 1 saniye, toplam 25 saniye gibi bir süre beklemem gerekiyor. bu normal mi?

 

[uzmanamele]

merhaba
makro çalışırken "lütfen bekleyiniz..." mesajı verdirmeye çalışıyorum ama userform ekranda görünse bile ProgressBar'da hareketi görüntüleyemiyorum. kodları nasıl düzenlemem gerekiyor?

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

Userform (Modal False), iki adet progressbar, iki adet Label

Userformun activate kodları şöyle olmalı ...

Private Sub UserForm_Activate()
Dim syf As Worksheet
With ProgressBar1
    .Min = 1
    .Max = ThisWorkbook.Worksheets.Count + 1
End With
With ProgressBar2
    .Min = 1
    .Max = 1000
End With
For Each syf In Worksheets
    DoEvents
    Label3.Caption = "İşlenen sayfa : " & syf.Name
    y = y + 1
    ProgressBar1.Value = y
    Select Case Left(syf.Name, 3)
           Case "ben": ad = "Uzman": soyad = "Amele"
           Case "sen": ad = "Süleyman": soyad = "Özyüksel"
           Case Else: GoTo f1
    End Select
    
    syf.Select
    Range("A:C").ClearContents
    For i = 1 To 1000
        DoEvents
        Label2.Caption = "İşlenen Satır : " & i
        ProgressBar2.Value = i
        With syf
            .Cells(i, 1) = ad
            .Cells(i, 2) = soyad
            .Cells(i, 3) = ad & soyad
        End With
    Next i
f1:
Next
End Sub

 

[uzmanamele]

merhaba
syn Ferhat Pazarçevirdi, sanırım bu örneği dosyama uyarlayabileceğim.
çok teşekkür ederim