ProgressBarı makroma nasıl uyarlayabilirim

[mutlu erdal erdem]

Veriler olsada olmasada progress bar çalışıyor.Aşağıdaki makroma göre progress barı çalıştırmak istiyorum.LİSTBOXLARDA DEĞER OLMADIĞI HALDE VE,textbox boş olduğu halde ancak yinedeProgressBar çalışıyor ve veriler aktarıldı msg geliyor formüle göre listbox boş ise textboxlara değer gelmiyor bu durumda değer zaten gelmiyor ve msg box "LİSTBOX1 veya lisbox5 BOŞ KAYIT YAPILAMADI"uyarısını verecek.hangi listbox ta değer yok ise onun uyarısını verecek




Private Sub commandbutton3_Click()
MsgBox "Öncelikle tarih ve tüketim değerlerini gireceksiniz."
TextBox3 = WorksheetFunction.Round(Replace(ListBox5.List(0, 4) / ListBox5.List(0, 0), ".", ","), 2)
TextBox4 = WorksheetFunction.Round(Replace(ListBox1.List(0, 5) / ListBox5.List(0, 0), ".", ","), 2)Dim i As Integer
For i = 1 To 1000
ProgressBar1.Value = (i / 1000) * 100
Label10.Caption = Format(Int((i / 1000) * 100), "%0")
DoEvents
Next i
MsgBox "Veriler Aktarıldı!!!"
ProgressBar1.Visible = False
End Sub