Sveiki, turiu toki koda: Declare Sub Sleep Lib "kernel32" (ByVal dwMillisecons As Long) Private Sub Button1_Click() Judink End Sub Sub Judink() gr = 1 st = 1 While Cells(2, 2) = 0 If st > 1 Then Cells(5, st - 1).Clear End If Cells(5, st + 1).Clear Cells(5, st).Interior.Color = vbGreen st = st + gr If st > 48 Then gr = -1 End If If st < 2 Then gr = 1 End If Sleep 100 DoEvents Wend End Sub Jis nuspalvina (B;5)cell zaliai ir paleidzia ta cell kad judetu pirmyn ir atgal. Ar imanoma padaryt taip, kad butu nuspalvinta ir (B;7) ir (B;9) ir tie cells butu paleisti vienu metu?