Koşullu Biçimlendirme

[asaldan]

Merhaba

Ben ekteki çalışma sayfasında örneğin değeri 0,100 den küçük olan hücrelerin sağ üst köşesine bir yıldız (*) 0,050 den küçük olanların sağ üst köşesine iki yıldız (**) 0,010 dan küçük olanların sağ üst köşesine üç yıldız koymak istiyorum (***) Acaba bunu yapabilmek mümkün müdür ?

Teşekkür ederim.

 

[accountant80]

Merhaba sanırım koşullu biçimlendirme ile yapılamaz, belki hücre biçimlendirme ile yapılabilir ama ben bilmiyorum.
Veya alttaki kod ile makro şeklinde deneyebilirsiniz. Sayfa değiştikçe ve seçildikçe kod çalışır
Kod bölümüne kopyalayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
If Target.Value <= 0.01 Then Target.Value = "***" & Target.Value
If Target.Value <= 0.05 Then Target.Value = "**" & Target.Value
If Target.Value <= 0.1 Then Target.Value = "*" & Target.Value
End Sub

 

[asaldan]

uğraşınız için çok teşekkür ederim Mustafa bey ancak ben ilgili makroyu çalıştıramadım.

 

[accountant80]

Ben 2003 kullanıyorum sizinki galiba 2010 ama mantığı aynı olması lazım.

Çalışma sayfanızda iken alt+F11 e basın verileriniz hangi sayfada ise sol taraftan o sayfayı seçin ve kodu yapıştırın.
Sonra kaydederek çıkın ve sayfadaki herhangi bir hücreye 0,005 yazın.

 

[asaldan]

Dediğiniz şekilde yaptığımda compile error: Invalid outside procedure şeklinde bir uyarı alıyorum.

 

[accountant80]

O zaman 2010 dan kaynaklanan bir sorun var, maallesef bende 2003 var.