işlemin yüzde Kaçının (%) bittiğini gösteren gösterg

[bistrobellman]

bazı işlemler yapılıyor (copy paste, vb...) ve Screenupdating false yani işlemler görünmüyor.

ancak kullanıcıyı sıkmamak için bir gösterge konulabilir mi lacivert renkte dolan? tıpkı setup taki gibi? var mı örnek bir kod??

 

[Levent Menteşoğlu]

Kasdettiğiniz progressbardır. Aşağıdaki linkleri inceleyin.

http://www.excel.web.tr/viewtopic.php?t=2545&highlight=progressbar

http://www.excel.web.tr/viewtopic.php?t=4041&highlight=

 

[bistrobellman]

yok denedim olmuyor.

On Error Resume Next
'//Eklendi...Bu komut ekran hareketlerinin görünmemesini sağlar.
Application.ScreenUpdating = False

Windows("stok.xls").Activate
Sheets("MENU").Select: Range("A1").Select

For ia = 2 To Worksheets.Count
Worksheets(ia).Select
Cells(1, 1).Select: Selection.AutoFilter
Next ia

Worksheets("MENU").Select: Range("A1").Select
gun = Left(Date - 1, 2)
ay = Mid(Date - 1, 4, 2)
yil = Right(Date - 1, 4)


Workbooks.Add:
'"C:\rapor\" & Day(dt) & Month(dt) & Year(dt) & ".xls ", FileFormat:=xlNormal,
ActiveWorkbook.SaveAs Filename:= _
"C:\rapor\" & gun & ay & yil, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False


'//Eklendi
For k = 1 To Worksheets.Count - 1
Application.DisplayAlerts = False
Sheets(k).Delete
Application.DisplayAlerts = True
Next k

ActiveWorkbook.Sheets(1).Select
Sheets(1).Name = "SONUC"

k = 0

With Sheets("SONUC")
.Select
.Columns("A:Z").Select
Selection.Delete Shift:=xlToLeft
End With
Do While x > 1 And x <= 4

Set sh1 = ThisWorkbook.Sheets(x)
sonsat = sh1.Cells(65536, "A").End(xlUp).Row

toplamg = 0
toplamc = 0

For Each hucre In sh1.Range("B2:B" & sonsat)
i = i + 1
ReDim Preserve dizi(1 To 7, 1 To i)
'i = i + 1
dizi(1, i) = DateValue(sh1.Range("A" & i + 1))
dizi(2, i) = sh1.Range("B" & i + 1).Text
dizi(3, i) = sh1.Range("C" & i + 1).Text
dizi(4, i) = sh1.Range("J" & i + 1)
dizi(5, i) = sh1.Range("K" & i + 1)
dizi(6, i) = sh1.Range("M" & i + 1)

Next

For J = 1 To i

If dizi(1, J) >= DateValue(txtilktar) And dizi(1, J) <= DateValue(txtsontar) Then
.
.
.
.
diye dewam eden kodlarım var.bu işlemler yapılırken Screenupdating false durumunda yani yapılanları görmüyorum
sadece PROGRESS BAR İLE DURUM İLERLEMESİNİ NASIL GÃ?ZLEMLEYEBİLİRİM?İÞİN NEKADARININ BİTTİÐİNİ?
Userform üzerine PROGRESSBAR yerleştirdim.sonra? :? :? :?