Progress sanırım aradığım

[tomas]

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

 

[Levent Menteşoğlu]

Size iki farklı yöntemle yapılmış örnek sunuyorum. 1.sayfada koşullu biçimlendirme ile,2. sayfada ise vba kullanılarak bir çizim nesnesi ile yapılmıştır.

 

[tomas]

Levent bey harıkasınız cok tesekkur ederım .
Fakat bu ıslemı cızım nesnesı degılde satırın kendı ıcınde sanırım yapılamıyor.
bır de cızım nesnesı bıle olsa deger 100 oldugunda satır buyuklugunu gecmemesı ıcın ne yapmalıyım.
Cunku cok fazla kayıt var ve hepsını yuzdelendırecegım .ıkı uc kayıt bırden ornekleyebılırmısınız acaba.
İlginize tesekkur edıyorum.
Saygılarımla

 

[Levent Menteşoğlu]

Çizim nesnesinin genişliğini ayarlayan satırda değeri bir sabite bölebilirsiniz. Bu aşağıdaki kırmızı renkle işaretlediğim satırdır, bu satırda eklediğim mavi renkli değerde sabittir örneğin burada ben 10 yazdım siz bunu istediğiniz gibi değiştirin. Kod sayfanın kod sayfasında yazılıdır. (alt+f11)

[vb:1:098b9e47fd]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
ActiveSheet.Shapes("Rectangle 1").Visible = True
If [a1] = 0 Then
ActiveSheet.Shapes("Rectangle 1").Visible = False
Exit Sub
End If
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Width = [a1]/10
[a1].Select
End Sub
[/vb:1:098b9e47fd]

 

[tomas]

cok tesekkur ederım son sorum ıstersenız yanıt bıle vermeyebılırsınız belkıde
pekı alt satırlardakı dıger ıfadeler ıcın hepsıne ayrı makromu atamam gerekıyor.??

 

[Levent Menteşoğlu]

ekte bir dosya hazırladım. Birde sonradan aklıma geldi grafik ile yapmakta mümkün bunuda dosyaya ekledim.

 

[tomas]

Cok tesekkur ederım