vytvoření dvojic

[Sirka]

asi do školy

--- Doplnění předchozího příspěvku (29 Kvě 2013 16:46) ---

sice to je asi bez podmínky ale místo 5 dát To Range("A1").End(xlDown).Row

[Uziv00]

Školní úlohy neřeším. musí ti stačit to co jsem dal.

[Sirka]

to mi stačí, upravil jsem to a už mi to funguje,

jen bych potřeboval poradit jak vyberu poslední buňku ve sloupci a tu smažu