Dolgu rengi

[nadirornek]

Biçim koşullu biçim ile 3 kez dolgu rengi alıyor fazlasını almıyor.

D sutununda hücrede

B harfi varise dolgu rengi mavi
İ harfi varise dolgu rengi kırmızı
S harfi varise dolgu rengi sarı
K harfi varise dolgu rengi kahverengi olması gerekmektedir macro ile yazabilirmiyiz.

 

[Orion1]

Çalışma sayfasının kod bölümüne aşağıdaki kodlar var.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim deg As String
If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
On Error Resume Next
deg = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
Target.Interior.ColorIndex = xlNone
If deg = "B" Then Target.Interior.Color = vbBlue
If deg = "İ" Then Target.Interior.Color = vbRed
If deg = "S" Then Target.Interior.Color = vbYellow
If deg = "K" Then Target.Interior.ColorIndex = 53
End Sub

 

[nadirornek]

Harikasınız Teşekkürler

 

[Orion1]

Harikasınız Teşekkürler

Rica ederim.
O sizin harikalığınız.

 

[muratcx]

Merhaba arkadaşlar yukarda yazılan makronun benzeri bana lazım ama öncelikle yukarda verilen makronun nasıl kaydedlilp nasıl çalıştırıldığını öğrenmem gerekiyor yardımlarınızı rica ediyorum

 

[Korhan Ayhan]

Selamlar,

Sayfaya ait kodları kaydedip elde edemezsiniz. Ancak hücrelerde renk değişim kodlarını makro kaydet yöntemi ile elde edebilirsiniz. Bu şekilde bir makro kaydettiğinizde aşağıdaki kodu yada benzerini elde edersiniz.

Range("A1").Select
Selection.Interior.Colorindex = 3

Eğer bu kodu sayfa olaylarına yazacaksanız ve hücre değişken olacaksa Range yerine Target ifadesi (yani en son işlem yapılan hücre) kullanılır. Bu ifadeleri biraz tecrübe kazanarak ve forumdaki örnekleri bol bol inceleyerek öğrenebilirsiniz.

Umarım faydası olur.

 

[muratcx]

hücre renklendirme

Sayın Korhan hocam değik formatta grafik tablosu hazırlıyorum örnek dosya gönderebilirim belirli sayı aralıklarına göre hücrelerin renklendirilmesini istiyorum yardımcı olabilirmisiniz