W komórkach A1 do A10 mam lkolejne liczby 1, 2, 3, 4, 2, 6, 7, 8, 9, 10. W komórkach E2 mam liczbę 3, w komórce F2 liczbę 5 i w komórce G2 liczbę 2.
Makro ma sprawdzać dane. Dopóki liczba jest mniejsza od komórki E1, ma kolorować na niebiesko, jeśli >= E2 na zielono.
Nie wiem jak zrobić żeby zatrzymało pętlę jeśli po wejściu (spełniony warunek >=E2) kolejna liczba będzie >=F2 lub <G2.
Sub Makro1()
Dim i As Integer
For i = 1 To 10
If Arkusz1.Cells(i, 1).Value < Arkusz1.Cells(2, 5).Value Then
Cells(i, 2).Interior.Color = RGB(0, 0, 255)
Else
If Arkusz1.Cells(i, 1).Value >= Arkusz1.Cells(2, 5).Value Then
Cells(i, 2).Interior.Color = RGB(0, 255, 0)
End If
End If
Next i
End Sub