İstenilen alanı renklendirme

[Ergün GÖKER]

Herkese kolay gelsin. Sizden yardımını istediğim konuyu dosyada anlatmaya çalıştım. Benim istediğim girdiğim ve seçtiğim alan kadar hücreyi renklendirmektir. Yardımlarınız için şimdiden teşekkürler

 

[askm]

Yazdığınız işlemin kodu aşağıdadır. Yalnız şartlar eksik gibi. Daha açık olursa yardımcı olmaya çalışalım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1")) Is Nothing Then Exit Sub
    If Target.Value = 16 Then
        Range("D15").Interior.Color = vbBlack
    ElseIf Target.Value = 32 Then
        Range("D15:D16").Interior.Color = vbBlack
    End If
End Sub