Kelimelere göre Hücrelere renk verme

[ripiness]

E7 den E2555 Hücresinde ACN görürse H7 Hücresinin rengi kırmızı ,ATIK görürse SARI, BAR görürse yeşil, DTO görürse Mavi, vs... şeklinde nasıl yapılabilir?
Yardınlarınız rica olunur.

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.Interior.Color = xlNone
    Select Case Target.Text
        Case "ali": Target.Interior.Color = vbRed
        Case "veli": Target.Interior.Color = vbBlue
        Case "memo": Target.Interior.Color = vbGreen
    End Select
End Sub

şeklinde deneyin.

 

[mersilen]

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Interior.Color = xlNone
Select Case Target.Text
Case "ali": Target.Interior.Color = vbRed
Case "veli": Target.Interior.Color = vbBlue
Case "memo": Target.Interior.Color = vbGreen
End Select
End Sub

selam
hedef hücrede olan metini (örneğinn ali) bu kod sadece bir hücrede renklendiriyor, diyelim ki (a1:f15) hücreleri içindeki tüm ali 'ler renklensin istersek bunu koda nasıl ekleyebiliriz
range.select (a1:f15): case "ali":interior.color=vbreg gibi

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.Interior.Color = xlNone
    Select Case Target.Text
        Case "ali": Range("a1:f15").Interior.Color = vbRed
        Case "veli": Range("a1:f15").Interior.Color = vbBlue
        Case "memo": Range("a1:f15").Interior.Color = vbGreen
    End Select
End Sub

 

[mersilen]

Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Interior.Color = xlNone
Select Case Target.Text
Case "ali": Range("a1:f15").Interior.Color = vbRed
Case "veli": Range("a1:f15").Interior.Color = vbBlue
Case "memo": Range("a1:f15").Interior.Color = vbGreen
End Select
End Sub


selam
hamitcan bey bu yazdığınız kod a1:f15 aralığının tamamını renklendiriyor
ben sadece a1:f15 içinde ali leri içeren hücreler renklensin istemiştim

 

[mersilen]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Range
Cells.Interior.Color = xlNone
Select Case Target.Text
Case "handan":
a = 1
For Each i In Range("c105:V135")
If i = "handan" Then

With i.Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End If
Next



merhaba
yukarıda yazılı kodda

Select Case Target.Text

kısmını c105:v135 aralığıdaki hücrelerden biri seçili iken / üzerine gelince çalışacak şekilde düzenlenebilir mi?

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells.Interior.Color = xlNone
   For Each hcr In [a1:f15]
    Select Case hcr.Text
        Case "ali": hcr.Interior.Color = vbRed
        Case "veli": hcr.Interior.Color = vbBlue
        Case "memo": hcr.Interior.Color = vbGreen
    End Select
    Next
End Sub