koşullandırma

[onur3466]

Merhaba Arkadaşlar,
Sürekli bir değişken olan G sutünundaki hücrelere değer girdiğimde sayı eğer 2 katına eşit veya küçük ise yeşil eğer eşit değilse kırmızı yansın istiyorum.

 

[cemshan]

Girdiğiniz değer hangi sayının "2 katına eşit veya küçük ise " olacak ?

 

[bmutlu966]

Sayfanın kod bölümüne yapıştırıp deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("G1:G65000")) Is Nothing Then Exit Sub
    cancel = True
    
    x = Cells(Target.Row, "G").Value
    y = Cells(Target.Row - 1, "G").Value
    
    If x <= y * 2 Then
        Cells(Target.Row, "G").Interior.Color = RGB(0, 175, 80)
    Else
        Cells(Target.Row, "G").Interior.Color = RGB(255, 0, 0)
    End If
    
End Sub

 

[onur3466]

yardımlarınız için çok teşekkür ederim hocam

 

[onur3466]

hocam ben bunu checkbox butonunda denedim ama beceremedim yardımcı olur musunuz?

 

[bmutlu966]

G kolonunda işaretli alana rakamlarınızı girin.

 

[onur3466]

çok teşekkür ederim hocam