Anonymní profil Pokys – Programujte.com

Tak to nakonec vyřešil ještě v pátek můj nadřízený celkem elegantně. Pro náhled:

Do
    x = x + 1
    Loop Until Cells(PrvniVolnyRadekDvere - x, 1) <> 0
    kontrola = IsNumeric(Cells(PrvniVolnyRadekDvere - x, 1))
    If kontrola = True Then
        Cells(PrvniVolnyRadekDvere, 1) = Cells(PrvniVolnyRadekDvere - x, 1) + 1
        Cells(PrvniVolnyRadekDvere, 3).Select
    Else: Cells(PrvniVolnyRadekDvere, 1).Select
    End If

Za rady i tak moc děkuji.

Dobrý den,
mám takový dotaz a ač jsem to zkoušel všelijak vyřešit jsem ve VB opravdu začátečník.

K věci:
Problém je v tom, že mám vytvořený list (v Excelu) kde po kliknutí na butonku "další řádek" by to mělo vložit pod poslední řádek nový s pořadovým číslem o jedno větším než byl předchozí. Až sem jsem vše zvládl. Problém nastává v případě, kdy je potřeba vložit místo čísla řádku třeba číslo s písmene. Excel poté bere tento formát samozřejmě jako text a hází to logicky Error.
Koukněte mi na to prosím a poraďte jak by jste tuto část scriptíku řešili.

Náhled části kódu:
 

' inteligentně doplní číslo pol. a označí první buňku nového řádku
Do
x = x + 1
Loop Until Cells(PrvniVolnyRadekDvere - x, 1) <> 0
Cells(PrvniVolnyRadekDvere, 1) = Cells(PrvniVolnyRadekDvere - x, 1) + 1
Cells(PrvniVolnyRadekDvere, 3).Select

Za všechny rady předem velice děkuji.
Pokorný