Progressbar % sorunu

[vivident]

Merhaba

Listboxdaki verileri excel sheetine aktarıyorum. Lakin ProgressBar %'lik kısmı istediğim gibi çalışmıyor. Aşağıdaki kodda kırmızı font rengi ile işaretlediğim değeri değiştirdiğimde %'lik kısımda değişiyor. Ben bu değerle oynamayıp excele veriler aktarılırken ProgressBarla birlikte senkronize çalışmasının sağlanmasını istiyorum. Nasıl yapılabilir

Private Sub UserForm_Activate()
Application.Calculation = xlCalculationManual
Dim L As Long, son As Long, i
son = 1000 - UserForm0.ListBox1.ListCount
For L = Label1.Width To son + UserForm0.ListBox1.ListCount - 100

DoEvents
Me.Caption = "İşlem durumu : % " & Fix((L / son) * 100)
Label1.Width = (L / son) * Frame1.Width

 

[vivident]

Konu günceldir.
%, listboxdaki verilere göre kimi zaman %106 oluyor, kimi zaman %91 oluyor.
Maksimum %100 olarak kalmasını sağlanamaz mı

 

[vivident]

Konu günceldir

 

[vivident]

Arkadaşlar senkronize çalışma olayını çözdüm, % ifadesi konusunda yardıma ihtiyacım var. tekrar = Round(100 / son, 1) kodunda 100 değişken bir şey olmalı, % değeri bu koddan veri alıyor. Dosyamın son hali ektedir. Rica ediyorum

Private Sub UserForm_Activate()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim son As Long, i
son = UserForm0.ListBox1.ListCount
tekrar = Round(100 / son, 1)
Dim sat As Long
sat = 9
With UserForm0
For i = 0 To .ListBox1.ListCount - 1
DoEvents
Label1.Width = Label1.Width + tekrar
Me.Caption = "Durum : % " & Round(Label1.Width, 0)