Umarım bu kodlar işinizi görür.
Excel VBA Editörünü açın, Alt + F11 tuşlarına basarak açabilirsiniz.
Sol tarafta, Microsoft Excel Nesneleri altında Sayfa1 (veya ilgili sayfanızın adı) üzerine çift tıklayın. Ben sayfa adını Sayfa1 diye varsaydım ve Aşağıdaki kodu yapıştırın ve deneyin.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
' Çalışma sayfasını belirle
Set ws = Me
' Değişiklik olduğunda G ve J sütunlarının dolgu rengini temizle
ws.Columns("G:J").Interior.ColorIndex = xlNone
' G ve J sütunlarındaki fiyatları karşılaştır ve renklendirir
Set rng = Intersect(ws.Rows(Target.Row), ws.Columns("G:J"))
If Not rng Is Nothing Then
For Each cell In rng
If cell.Column = 7 And IsNumeric(cell.Value) And IsNumeric(cell.Offset(0, 3).Value) Then ' G sütunu
If cell.Value > cell.Offset(0, 3).Value Then ' G > J
cell.Interior.Color = RGB(255, 0, 0) ' Kırmızı
ElseIf cell.Value < cell.Offset(0, 3).Value Then ' J > G
cell.Offset(0, 3).Interior.Color = RGB(255, 0, 0) ' Kırmızı
End If
End If
Next cell
End If
End Sub