Sınama Ve Renk

[fasıl]

Herkese iyi günler,
Excel makro ile ilgili bir soru soramak istiyorum.

If ile interior.color kodlarını bir arada kullanamıyorum.

Mesela e2 hücresi eksi ise b2 hücresini siyah ve beyaza boyansın gibi.

Bu konuda yardımcı olabilir misiniz. Rakam oluyorda renk işin içine girince olmuyor. Teşekkürler..

 

[hamitcan]

İsteğinizi, koşullu biçimlendirme ile yapabilirsiniz

 

[Seyit Tiken]

Private Sub Worksheet_Change(ByVal Target As Range)
'Mesela e2 hücresi eksi ise b2 hücresini siyah ve beyaza boyansın gibi.
If [e2] < 0 Then [b2].Interior.ColorIndex = 1: [b2].Font.ColorIndex = 2
If Not [e2] < 0 Then [b2].Interior.ColorIndex = 0: [b2].Font.ColorIndex = 0
End Sub

Yukarıdaki gibi deneyiniz.

 

[fasıl]

Teşekkürler..

Teşekkürler seyit
hatayı anladım,
dizi halinde aynı işlemi yaptırmak istiyorum, bunun için ne yapmamız gerekir,
yardımınız için teşekkürler
mesale aynı soru şu sütunun satırlarına karşılık gelen şu sütunun sütunları gibi

 

[Seyit Tiken]

Bu şekilde soruyu anlamak zor gibi. Dosya veyahut ayrıntılı bir şekilde izah ediniz.

 

[Ali]

Teşekkürler seyit
hatayı anladım,
dizi halinde aynı işlemi yaptırmak istiyorum, bunun için ne yapmamız gerekir,
yardımınız için teşekkürler
mesale aynı soru şu sütunun satırlarına karşılık gelen şu sütunun sütunları gibi

E sütunundaki değerler sıfırdan küçük ise B sütunu kırmızı renk olur.
E sütunundaki değerler sıfırdan büyük ise B sütunu renksiz kalır.

Hedef sütunumuz E(Target.Value) hücresidir. Target.Offset(0, -3) ise hedef sütunun 3 solundaki sütun B sütunudur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
If Target.Value < 0 Then Target.Offset(0, -3).Interior.ColorIndex = 3
If Target.Value >= 0 Then Target.Offset(0, -3).Interior.ColorIndex = xlNone
End Sub