Díky.

Ono to má být trochu jinak. Jakmile je ve sloupci H napsáno "x", makro (to kopírování hodnot) musí skončit a najít nejbližší řádek předchozího dne (je to řazeno od 31 k 1), kde ještě nebylo ve sloupci H označeno "x".

Tedy nemělo by platiti toto:

Pokiaľ za x-om ešte nasleduje ten istý deň, pokračuje ďalej v tento deň kopírovaním do Clipboardu

Takže když spustím makro na řádku, kde je ve sloupci I hodnota 25, mělo by to po kopírování a zapsání "x" do I25 skočit na (další) řádek, kde je ve sloupci I hodnota 24. A zároveň ve sloupci H nesmí být "x"

Já na to chtěl jít tak, že nejprve nadu další den a pak budu ověřovat to x.

Ověření x (zda je/není ve sloupci H:

' hledani dalšího volného řádku, kde není "x"

For j = 1 To 10
    Range("H" & Riad + j).Select
    If Range("H" & Riad + j) = "" Then
        Exit For
    End If
Next j

Ale nedařilo se to hledání dalšího (vlastně předchozího) dne:
Tohle nefunguje:

Range("I" & Riad).Select
Denmesice = ActiveCell.Value

For k = 1 To 100
    Range("I" & Riad + k).Select
    If Range("I" & Riad + k).Value = "Denmesice - 1" Then
        Exit For
    End If
Next k