Döngüdeki sayaç değerini labelda gösterme

[NBATMAN]

Merhaba Arkadaşlar,

Aşağıdaki kod ile bir tablodaki istenilen sütundaki çift olan hücreleri ( değerleri ) renklendiriyor ve ardındanda isteiğimde sütunda bu çift olan hücrelerin karşısına çift yazdırıyorum.

• Progressbar çalışıyor.
• Fakat progressbarın karşısında bu tablodaki toplam dolu satır sayısını bularak Progressbarın karşısında Örneğin ; toplm 200 satır olsun,

label5.captionda döngü çalıştıkça ; 1/200, 2/200, 3/200, 4/200, ....200/200 şeklinde yazmasını istiyorum fakat aşağıdaki kodlar ile bu işlemi gerçekleştiremiyorum. Bu konuda yardımcı olabilir misiniz?


For str = 1 To [a65535].End(xlUp).Row
Label5.Caption = str & "/" & ProgressBar1.Max
ProgressBar1.Value = str
If WorksheetFunction.CountIf(Columns(stn), Cells(str, stn)) > 1 Then Cells(str, stn).Interior.ColorIndex = 3
If Cells(str, stn).Interior.ColorIndex = 3 Then
Cells(str, str2).Value = "Çift"
End If
Next
Label5.Caption = "İŞLEM YAPILDI"

 

[Orion1]

Aşağıdaki gibi deneyiniz.

For str = 1 To [a65535].End(xlUp).Row
Label5.Caption = str & "/" & [a65535].End(xlUp).Row

 

[NBATMAN]

Sayın Evren Gizlen,

İlginiz için teşekkür ederim fakat verdiğiniz kodlar ile yine çalışmadı.

 

[Mehmet Şahin]

Merhaba,
üstadın verdiği kodlar arasına

DoEvents

ekleyerek denermisiniz, saygılar.

 

[NBATMAN]

Sayın Dentex,

Verdiğiniz kod işe yaradı ilginiz ve paylaşımınız için teşekkürederim. İyi geceler...

 

[Zeki Gürsoy]

Merhaba; konu çözümlenmiş görünüyor...

Yüzde göstergeli progress bar düşünürseniz aşağıda class örneği var.

http://www.excel.web.tr/showthread.php?t=76518