SAtır Renklendirme

[cevatyildiz]

Merhaba

VBA ile yapmak istediğim bir satır renklendirmesi var. Aşağıdaki kodun içerisine eklenmek suretiyle I sütununa 10 girildiğinde yeşil, 20 girildiğinde kırmızı ile A hücresinden F hücresine kadar renklendirilmesini nasıl sağlayabilriz?

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("k:k")) Is Nothing Then Exit Sub
 
    On Error Resume Next
    With Target
        If .Row < 1 Then Exit Sub
        .Offset(0, 1) = ""
        If .Value = "" Then Exit Sub
        .Offset(0, 1) = Now & " " & Environ("Username")
    End With
 
End Sub

Tesekkurler, iyi calismalar

 

[Emir Hüseyin Çoban]

. . .

Koşullu biçimlendirme ile daha dinamik bir şekilde yapılabilir.

. . .

 

[cevatyildiz]

Günaydın Hüseyin Bey,

Conditional Formatting yaptıgımda renge göre toplama fonksiyonum çalışmıyor. Bu nedenle mümkünse VBA da yapmak istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_Change(ByVal Target As Range)
 On Error Resume Next
 [COLOR="Green"]
    'If Intersect(Target, Range("k:k")) Then[/COLOR]
    If Target.Column = "11" Then
    With Target
        If .Row < 1 Then Exit Sub
        .Offset(0, 1) = ""
        If .Value = "" Then Exit Sub
        .Offset(0, 1) = Now & " " & Environ("Username")
    End With
    End If
 
    If Target.Column = "9" Then
        If Target.Value = "10" Then
            Range("A" & Target.Row & ":F" & Target.Row).Interior.Color = vbGreen
            Exit Sub
        Else
            Range("A" & Target.Row & ":F" & Target.Row).Interior.Color = xlNone
        End If

        If Target.Value = "20" Then
            Range("A" & Target.Row & ":F" & Target.Row).Interior.Color = vbRed
            Exit Sub
        Else
            Range("A" & Target.Row & ":F" & Target.Row).Interior.Color = xlNone
        End If
    End If
    
End Sub

. . .

 

[halit3]

Alternatif kod:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 9 Then
If Cells(Target.Row, "I") = 10 Then
Renk = 4 'yeşil
ElseIf Cells(Target.Row, "I") = 20 Then
Renk = 3 'kırmızı
Else
Renk = xlNone 'renk yok
End If
Range(Cells(Target.Row, "a"), Cells(Target.Row, "f")).Interior.ColorIndex = Renk
End If

End Sub

 

[cevatyildiz]

Hüseyin Bey merhaba,

Aslında iki kodu iç içe kullanmak istemiyorum, vermiş olduğum kod sadece k bölümünde kendi ilgili bölümünde çalışsın, renklendirme kodu da 9. sütuna bilgi girildiğinde renklendirme yapsın. Benim yapamadıgım şey bu iki kodu Private Sub Worksheet_Change(ByVal Target As Range) altında ayrı ayrı hedef göstererek yaptırabilmek.

 

[Emir Hüseyin Çoban]

. . .

K ve I sütunu zaten birbirinden bağımsız çalışıyor.

Ekran Görüntüsü:

. . .

 

[cevatyildiz]

Hüseyin Bey, sayenizde nasıl kullanılacagını da öğrenmiş oldum, çok teşekkürler