to
holous-morous:
Tazatel v ukazce naznacil, ze ma zajem kopirovat pocinaje druhym radkem:
For i = 2 To... na dalsi list pocinaje take druhym radkem:
radek_20m=2Pro smycku For neni podstatne, zda koncova hodnota je delitelna 9, pokud po posledni inkrementaci je prekrocena koncova hodnota, smycka je ukoncena.
Pouziti prikazu On Error Resume Next - proc? V Excelu 2007 pocet radku nebude prekrocen. A kdyz uz je pouzit, mel by byt ukoncen, nejak takhle:
- Kód: Vybrat vše
For SOfsR = 2 To 262453 Step 9
On Error Resume Next
TRow.Offset(TOfsR, 0).Value = SRow.Offset(SOfsR - 2, 0).Value
TOfsR = TOfsR + 1
If Err.Number <> 0 Then MsgBox "blabla": Err.Clear: Exit For
On Error GoTo 0
Next SOfsR
Zrejme pri overovani doslo k chybe v dusledku neupravene hodnoty
offsetu v Tve uprave:
For SOfsR =
1 To 262453 Step 9
TRow.Offset(TOfsR, 0).Value = SRow.Offset(SOfsR -
2, 0).Value
a ne pro nedelitelnost koncove hodnoty.