Matematické Fórum

Zdravím,

potřeboval bych poradit, pro vás určitě s jednoduchým algoritmem, ale mě se to pořád nedaří napsat, aby to korektně pracovalo.

Tak k věci. Jedná o vypisovaní sloupců čísel, vždy po 4 číslech pak jeden řádek volný a pak zase 4 číla... Takto udělám celý sloupec, ale když potřebuji tohle samé udělat o 2 sloupce vedle (jak do listu do kterého vypisuji, tak i v listu, ze kterého beru data), tak už mi to nefunguje vypisuje to čísla špatně. Přikládám algoritmus který mi pro jeden sloupec funguje správně.

s = 0
For bc = 1 To n
    For bx = 1 To 4
    ee = List4.Cells(1 + bx + s, 12)
        For bd = 1 To 99
        If ee = List6.Cells(3 + bd, 6) Then
            List4.Cells(1 + bx + s, 13 ) = List7.Cells(3 + bd, 2)
        End If
        Next bd
    Next bx
        s = s + 5
Next bc

Vždy jsem byl zvyklý, jen jednoduše přišíst k řádku nějakou hodnutu a posune se mi to, ale jelikož mi to řádkuje ob 4 řádky, tak mi to dělá neplechu a já nemůžu na to přijít. Potřeboval bych poradit co nejdrychleji. Děkuji moc z všechny rady, budu vám zavázán. :)