PC-HELP.CZ

Potřebuji, aby se mi postupně sčítaly položky z buněk C5:C12 a to tak, že při postupném sčítání ve stavu, kdy jsem >= než buňka A2, se mi obarví buňka, kdy jsem právě tohoto stavu dosáhl. Když se příslušná buňka obarví, od této buňky se počítá znova a po dosažení opět hodnoty >= buňky A2 se obarví další buňka ze sloupce C5:C12.Potřebuji aby tento koloběh a obarvování buněk běžel do té doby, dokud jsou nějaké číselné hodnoty ve slupci C. Hodnoty mohou být i "0". Ve VB se nějak ztratím v cyklech a začínám být bezradný. Děkuji za jakokoliv pomoc.soubor je zde.

Počkejte na konci cyklu

Sub Kazdych_XX()

Dim pozadavek As Integer

Set myRange = Range("A1:C50")
konec = 65530
pozadavek = Range("A2")
soucet1 = Range("C5")


For I = 5 To konec
soucet1 = myRange.Cells(I, 3)

'
If pozadavek <= soucet1 Then
'
With myRange.Cells(I, 3).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Else
myRange.Cells(I, 3).Font.ColorIndex = 0
End If
Next I

End Sub