[admitos]

Bir excel workbook'unda bir kaç tane makroyu peş peşe çalıştıran genel bir makro yazdım. Ancak isteğim bu işlemleri yaparken sadece ekranda Progress bar gözüksün istiyorum. Arkada 10 tane makro çalışıyor ise her makro bitişinde %10 ilerlemiş bir halde progress bar nasıl yazabilirim?

[Tarkan VURAL]

Yapılan her bir işin toplam mesafesini progressbar bilmesi gerekli. Bunu bilemiyorsa her işi ayrı ayrı da bildirseniz olur. Her makro tamamlanmasından sonra progressbar yeni baştan başlar, son makroda da sonlanmış bitirmiş olur. Çalışmadaki kodlarınıza göre düzenlenebilir. O yüzden ezbere bir şey söylemek zor. Örneklerimizden faydalanabilirsiniz.

[admitos]

Kod: Tümünü seç

Sub ShowUserForm()
    UserForm1.Show
End Sub

Sub Main()
MsgBox "A Dosyasında (B) Olmadığından emin olunuz. ", vbInformation, "Uyarı"
    Dim PctDone As Single

    Application.Run "C"
        PctDone = (1 / 8) * 100
        UpdateProgressBar PctDone

    Application.Run "D"
        PctDone = (2 / 8) * 100
        UpdateProgressBar PctDone

    Application.Run "E"
        PctDone = (3 / 8) * 100
        UpdateProgressBar PctDone

    Application.Run "F"
        PctDone = (4 / 8) * 100
        UpdateProgressBar PctDone

    Application.Run "G"
        PctDone = (5 / 8) * 100
        UpdateProgressBar PctDone

    Application.Run "H"
        PctDone = (6 / 8) * 100
        UpdateProgressBar PctDone

    Application.Run "I"
        PctDone = (7 / 8) * 100
        UpdateProgressBar PctDone

    Application.Run "J"
        PctDone = (8 / 8) * 100
        UpdateProgressBar PctDone

    Unload UserForm1
MsgBox "merhabe", vbInformation, "Uyarı"
    Application.Run "K"
    Sheets("Hepsi").Select
    Sheets("Hepsi").Name = "kitaplık"
    ChDir "C:\Duvar\Kitaplık\Kitap"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Duvar\Kitaplık\Kitap\A.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
   
   

End Sub

Sub UpdateProgressBar(PctDone As Single)
    With UserForm1
          .FrameProgress.Caption = Format(PctDone, "0%")
        .LabelProgress.Width = PctDone * _
            (.FrameProgress.Width - 10)
    End With
 
    DoEvents
End Sub


Şeklinde bir makro yazılı durumda. Bu Makroların Hepsinde giriş bölmelerinde "Application.ScreenUpdating = False"
komutu yazmaktadır. Bu şekilde excel çalıştırdığımda işlemleri arkada yapıyor, ancak progress bar'a dair en ufak bir işlem gözükmemektedir. Yarımcı olursanız sevinirim.

[Erhan Yavuz]

Doevents komutunu

Kod: Tümünü seç

Application.Run "H"

'lardan sonra kullanmayı denediniz mi?

[admitos]

Evet denedim. Forum içerisindeki örneklere baktığımda genellikle bir loop ya da end if komutlarına rastladım. 8 farklı makroyu, bir loop içersindeymiş gibi çalıştırmam mümkünmüdür? Her makro komutundan sonra ProgressBar update alabilsin. Böylece tekrar başa dönebilsin. 8 farklı makrodan sonrada loop dan çıkabilsin.

[Tarkan VURAL]

Yiğit bey dosyanızı ekler misiniz ? Dosyadaki işlemleri inceleyip çözüm sunalım.