Arkadaslar iki gundur ugrasıyorum. A1 hucresıne gırılen bır deger B1 hucresı ıcerısınde % olarak boyama yapsın ıstedım olmadı progress denedım
Sub Tomas()
ActiveSheet.Shapes("progress").Select
m = 0
For i = 0 To [C1]
Selection.ShapeRange.Width = m
m = m + 4.41
For j = 1 To 20000
k = k + 1
Next j
DoEvents
Next i
End Sub
buda olmadı ;(
ıstedıgım su ben departmanlar bazında tone kullanım yuzdesını cıkan sonuclara gore bır satırda ya boyama yada progress gıbı gormek ıstıyorum. Yardımmm edın pleaseee
Sub Tomas()
ActiveSheet.Shapes("progress").Select
m = 0
For i = 0 To [C1]
Selection.ShapeRange.Width = m
m = m + 4.41
For j = 1 To 20000
k = k + 1
Next j
DoEvents
Next i
End Sub
buda olmadı ;(
ıstedıgım su ben departmanlar bazında tone kullanım yuzdesını cıkan sonuclara gore bır satırda ya boyama yada progress gıbı gormek ıstıyorum. Yardımmm edın pleaseee