G3 teki sayıya göre G2 nin dolgu rengini ayarlamak?

[magistrate]

Arkadaşlar merhabalar.. Ben bir excel dosyası hazırlıyorum. Şimdi benim yapmak istediğim işlem şu; Eğer G3 teki sayı pozitif ise G2 Dolgu Rengi Yeşil olacak, Aynı şekilde Eğer G3 teki sayı negatif ise G2 Dolgu rengi Kırmızı olacak.

Bunu nasıl yapabiliriz acaba? Yardımcı olursanız seviniriz..

 

[Ayhan Ercan]

Merhaba Sn magistrate

Makrolu örneği benden olsun...

Ek dosyayı inceleyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [g3].Value < 0 Then [g2].Interior.ColorIndex = 3
If [g3].Value > 0 Then [g2].Interior.ColorIndex = 4
End Sub

 

[magistrate]

Teşekkür Ederim..

Bir de şöyle bir sorum olacak. Örneğin ben G6 ya -180 rakamını girdim H6 da yeşil dolgu ile geçerli yazacak. Aynı şekilde G7 ye 65 rakamını girdim H7 de kırmızı dolgu ile geçersiz yazacak. Bu söylediğim g ve h sütunlarının tamamında olacak. Yani, g115 e -15 yazdıysam h115 te yeşil dolgu ile geçerli yazmalı. Umarım anlatabilmişimdir. Yardımınız için tekrar teşekkür ederim sn Ayhan Ercan

 

[Ayhan Ercan]

Merhaba

Dosyanız ekte..
İlk mesajda verdiğim Kodlar, Aşağıdakilerle değiştirilmiştir....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
For Each hcr In Range("g1:g10000")
    If hcr.Value < 0 Then
        hcr.Offset(0, 1).Interior.ColorIndex = 3
    ElseIf hcr.Value > 0 Then
        hcr.Offset(0, 1).Interior.ColorIndex = 4
    End If
Next
End Sub

 

[uzmanamele]

merhaba
aşağıdaki linki inceleyiniz

http://www.excel.web.tr/showthread.php?t=7558