Ammir, Jesam, ali nije bilo ovakvih zadataka. Sve nešto "lijevo".Added (22.04.2014, 11:37 PM)
---------------------------------------------
Zadatak riješen:
Quote
Sub test()
Dim x As Integer
For x = 5 To 25
Cells(6, x - 4).Value = x
If x Mod 8 = 0 Then Cells(7, x - 4).Value = x
Next x
End Sub
Može lock.