[Çözüldü] Satırı belirli bir koşulla renklendirme.

[jepue]

http://rapidshare.com/files/439936451/__rnek.xlsx

Örnekte D2,D3,D4 hücrelerine ilgili sayıları girdigimde karşılarındaki renkler o satırı boyamasını istiyorum.

Örneğin d3 e "4" sayısını girdiğimde   A3:C ü kırmızıya boayasın istiyorum.

Yardım edebilir misiniz?

[Hüseyin Çoban]

Merhaba,

Sayfa1 in kod bölümüne bu kodları uygulatarak deneyiniz.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Sat = "A" & Target.Row & ":c" & Target.Row
Select Case Target
Case "": Range(Sat).Interior.ColorIndex = 0

Case Is = "1": Range(Sat).Interior.ColorIndex = 43
Case Is = "2": Range(Sat).Interior.ColorIndex = 6
Case Is = "3": Range(Sat).Interior.ColorIndex = 2
Case Is = "4": Range(Sat).Interior.ColorIndex = 3
End Select

End Sub
Forumun dosya yükleme özelliği mevcuttur, paylaşımlardan ileride diğer arkadaşlarında yararlanması için forum serverlerında olması daha iyidir.

[serul]

Hüseyin Bey formda dolaşırken gördüm hemen kendi çalışmama ekledim kodları.Çalışmam Dersane Kayıt Formu : bazı öğrenciler bazı indirimle önceden belirlenen fiyatlardan farklı fiyatlara kayıt oluyorlar. Kodda hücredeki sayıya eşittir ile çalışıyor. <2000 yazarak 2000 tl'nin altındaki kayıtların rengini değiştirebildim. >3000 ilede diğer kısmı değiştirdiğimde 2000-3000 arasındakileri => veya <= ile tanımlayamıyorum. Ne eklemeliyim koda ?

[jepue]

Merhaba,

Sayfa1 in kod bölümüne bu kodları uygulatarak deneyiniz.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
Sat = "A" & Target.Row & ":c" & Target.Row
Select Case Target
Case "": Range(Sat).Interior.ColorIndex = 0




Çok teşekkür ederim çok sağolun...

Peki bu renklerin kodlarını nerden değiştirebilirim, diyelim yeşilin farklı kodunu kullanmak istiyorum.
Renk kodlarını ulaşabilkeceğim yeri söyliyebilir misiniz?

Case Is = "1": Range(Sat).Interior.ColorIndex = 43
Case Is = "2": Range(Sat).Interior.ColorIndex = 6
Case Is = "3": Range(Sat).Interior.ColorIndex = 2
Case Is = "4": Range(Sat).Interior.ColorIndex = 3
End Select

End Sub
Forumun dosya yükleme özelliği mevcuttur, paylaşımlardan ileride diğer arkadaşlarında yararlanması için forum serverlerında olması daha iyidir.

[Hüseyin Çoban]

Merhaba,

56 tane renk kodu ekteki dosyada mevcuttur.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[serul]

Hızır gibi yetiştiniz Hüseyin Bey ! Çok teşekkürler renk kodları için.

[Hüseyin Çoban]

Rica ederim Serkan Bey,
Dalgınlığıma gelmiş, diğer mesajınızıda şimdi gördüm.

[jepue]

Hüseyin Bey çok teşekkür ederim ellerinize sağlık.