Hücredeki değer kadar yanındaki hücreleri renklendirmek

[Korhan Ayhan]

Selamlar,

B sütununda bulunan değerlerime göre C sütunundan başlamak üzere renklendirme yapmak için nasıl bir kod kullanmam gerekir.

Diyelimki B2 hücresinde 43 değeri var C2 den başlayarak 43 adet hücreyi (sağa doğru) herhangi bir renkle renklendirmek istiyorum. Ve bu işlem B sütununa değer girdikçe gerçekleşsin istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına yazarak deneyin.

[vb:1:1a0b2b39cf]Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then
Rows(Target.Row).Interior.ColorIndex = xlNone
Exit Sub
End If
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 3), Cells(Target.Row, 2 + Target.Value)).Interior.ColorIndex = 6
End Sub
[/vb:1:1a0b2b39cf]

 

[Korhan Ayhan]

Teşekkür ederim. :hey:

 

[cout(h)ane]

Aşağıdaki kodu sayfanın kod sayfasına yazarak deneyin.

[vb:1:b71125641f]Private Sub Worksheet_Change(ByVal Target As Range)
If Target = 0 Then
Rows(Target.Row).Interior.ColorIndex = xlNone
Exit Sub
End If
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 3), Cells(Target.Row, 2 + Target.Value)).Interior.ColorIndex = 6
End Sub
[/vb:1:b71125641f]

Aşağıdaki satırı End Sub satırından önce koda ilave ederseniz, B hücresindeki değeri küçülttüğünüzde hatalı olarak kalan renkli hücreleri de temizleyecektir
:hey: :hey:

Range(Cells(Target.Row, 3 + Target.Value), Cells(Target.Row, 256)).Interior.ColorIndex = xlNone

 

[Korhan Ayhan]

Selamlar,

cout(h)ane

Sizede katkılarınızdan dolayı teşekkür ederim. :hey: