Şartlı satır renklendirme

[seddur]

Merhabalar.Aşağıdaki kod ile "G" sütununda NAKİT-VİSA-İPTAL yazan satırları renklendiriyorum ancak "G" sütununa değişken rakamsal değerler (100,101,102 gibi) girdiğimde de ilgili satır renklensin istiyorum.İlgilenecek arkadaşa şimdiden Teşekkür ederim.

Dim a As Byte
For a = 2 To 50
If Cells(a, "G") = "İPTAL" Then
With Range("A" & a & ":G" & a)
.Interior.ColorIndex = 22
.Font.ColorIndex = 1
.Font.Bold = True
End With

Else
If Cells(a, "G") = "NAKİT" Or Cells(a, "G") = "VİSA" Or Cells(a, "G") = Sheets("Anasayfa").TextBox9 Then
With Range("A" & a & ":G" & a)
.Interior.ColorIndex = 50
.Font.ColorIndex = 2
.Font.Bold = True
End With
Else

With Range("A" & a & ":G" & a)
.Interior.ColorIndex = 45
.Font.ColorIndex = 1
.Font.Bold = True
End With
End If: End If
Next

 

[Korhan Ayhan]

Kullandığınız kod içinde zaten koşullar var.

Bir if-end if bloğu daha ekleyip kullanabilirsiniz.

Aşağıdaki koşullar yerine girdiğiniz sayısal değerleri yazarak dilediğiniz renk kodu verip kullanabilirsiniz.

If Cells(a, "G") = "NAKİT" Or Cells(a, "G") = "VİSA" Or Cells(a, "G") = Sheets("Anasayfa").TextBox9 Then

 

[seddur]

Merhaba.Textbox9 daki değeri değiştirdiğimde textboxa girdiğim son değere ait satır renkleniyor ama önceden girdiklerim renklenmiyor.Normal renginde kalıyor.Diyelim textboxa 101 girdim o satır renklendi ardından başka bir satıra 102 girdiğimde 102 renkleniyor 101 normal rengine dönüyor.

 

[Korhan Ayhan]

Daha önce renklenmiş bir hücrenin renginin bozulmaması için bir if sorgusu daha kullanabilirsiniz.

 

[seddur]

Aşağıdaki kod bloğunu ekleyince istediğim gibi oldu.Yönlendirmeniz için teşekkürler.
If Cells(a, "G") <> "NAKİT" And Cells(a, "G") <> "VİSA" And Cells(a, "G") <> "İPTAL" And Cells(a, "G") <> "" Then
With Range("A" & a & ":G" & a)
.Interior.ColorIndex = 42
.Font.ColorIndex = 1
.Font.Bold = True
End With

 

[41AFU52]

Kod kullanmadan yapmak isterseniz aşağıdaki videoyu izleyebilirsiniz