RENKLER İÇİN GECERLİ RAKAMLARI VERME

[Kemal Demir]

RENKLER ÝÇÝN GECERLÝ RAKAMLARI VERME

Arkadaslar Selam

Başlığım zannedersem yetersiz.Ama Yapmak ısteyıp te yapamadığım bir durum.

1. Yapmak ıstedğim?

"mavi=37 renk tonu
sarı=6 renk tonu
kırmızı=3 renk tonu aıt"

ilgili satırlarlardaki renkler seçildiğinde mavi renginin olduğu yerlere=37, sarının olduğu yerlere=6,kırmızın olduğu yerlerede=1 değerını atasın


2.Yapmak ıstediğim Bu değerler atandıktan sonra değerleri başka yere kopyalıcağım

ilgili değerlere karsılık ise bu seferde renklerın olusmasını ıstıyorum.


Yardımcı olursanız sevinirim.

SaygıLar .

Dosya Ektedir.

 

[Kemal Demir]

rakamlara renk verebiliyorum artık

Ama haLa Renklere Rakam atayamıyorum



Range("a1:e50").select ' bu aradaki ilgili mavi,sarı,kırmızı renklerı olan yerlere
maviye=1
Sarıye=2
Kırmızı=3

Atayamıyorum.
Yardımcı olrusanız sevininirm.


SaygıLar.

 

[Kemal Demir]

Arkadaslar zanndersem sorumu tam anlatamadım.
Sole bir şey yaptım ama bu sadece boyama yapıyor
ben ise boyalı yere rakam versin istiyorum

Sub Rangi_Sayi_Yap()
If Range("a1:a10").select .Interior.Color = 3 Then
Range("a1:a10").Value = 3
Exit Sub
End If

End Sub


Yardımcı olrusanız sevininirm saygılar.

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin.

 

[Kemal Demir]

Sn.Levent Aklıma Geleni Sizle Ve Diğer Arkadaslarla paylaşmak istedim

Kimsenin yardımcı olmayacağını zannedi verdim. Ve Bu sabah kendımden utandım ellerinize sağlık.
Sağlıcakla.