Aşağıdaki makro kodu sana bir fikir verebilir.
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = "" Then Exit Sub
If Cells(1, 1) > Cells(1, 2) Then
Do
DoEvents
If Cells(1, 1).Interior.ColorIndex = 7 Then
Cells(1, 1).Interior.ColorIndex = 8
Else
Cells(1, 1).Interior.ColorIndex = 7
End If
For i = 1 To 1000000
Next
Loop
Else
Cells(1, 1).Interior.ColorIndex = 6
Cells(1, 1).Font.ColorIndex = 2
End If
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.