"Ty vole, Petře, víš, že nejsem programátorskej začátečník."
A víš ty co? Seš...
Na to, kolik let programuješ, programuješ bez pardonů jako prase.
Že bys komentoval kód, nevidím. Je mi jedno, jestli to máš čistě pro sebe.
Fajn, kašleš na maďarskou konvenci pro proměnné, tvoje věc. Proměnná Rrr - no to už si děláš prdel...
Na co je skrytý 3. řádek, nevím. Spoléhat tak naslepo na CurrentRegion, mno...
Namísto, aby sis nastavil listy od objektových proměnných, tak tupě spoléháš na začátečnický Select.
A jádro pudla? Že nevíš, že je sakramentský rozdíl chtít po SVYHLEDAT křížem hledat text v číslech a naopak, to je věc další.
Dim Vztah As Long
Vztah = CLng(Cells(i, 5) * 1000 + Cells(i, 6))
Takže kamaráde, jak tě mám rád (ač se to nezdá), tak s tímhle bych tě vyrazil...
citovat