MS Excel

dorobil som tam vlozit .. ostatne cupliky neviem naco presne potrebujes

vlozit funguje na style najdi Prehlad a od toho posuva sa a vytahuje udaje

takze je mozne ze to zle vytiahne ked sa v stlpci "D" bude aj inde nachadzat slovicko prehlad

keby nevyhovovalo staci napisat skusim to aj inak prerobitcitovat

Ta data jsou nějaká podivná. V původním souboru byla zvýrazněná pouze data jednou v nějakém sloupci, teď je to ve sloupci H několikrát, co s tím? Udělal jsem nějaký makro, který porovnává normální a bold písmo, najde je a vypíše na List1, ale nevím, co s čísly ve sloupci H. Soubor zatím nepřikládám.citovat

Jedniná kotva, která připadá v úvahu je, že z listu 2 se budou kopírovat buňky jen z několika sloupců (např B8, D8, H6) a tyto adresy se mění pravidelně jednou po 35 a 33 řádcích (B8, B43, B76, B111) a to až do řádku cca 6700. Pokud někdo poradí, budu rád, děkujicitovat

Paráda, maká super tak jak má. Díky moc za pomoc citovat

samozrejme ze ide

vsimaj si z celeho kodu len toto:
Cells(y + 1, 1) = Sheets("2").Cells(x, 2)
Cells(y + 1, 2) = Sheets("2").Cells(x, 4)
Cells(y + 1, 3) = Sheets("2").Cells(x - 2, 8)

tu uz je vidiet ze "Y" len napocitava riadky takze nic podstatne
Keby si tam chcel dodat new stlpce tak by si dal:
Cells(y + 1, 4) = "Test"
Cells(y + 1, 5) = "Test"
Cells(y + 1, 6) = "Test"


samozrejme ze nechces aby to vypisovalo "Test" ale nejaku bunku z toho dokumentu

takze "Test" prepiseme na:
Sheets("2").Cells(x, 2)

- "x" nam dava startovaci riadok zaciname v cykle na 8 potom +35 a +32 a +35 a +32 atd.
- "2" je stlpec
- takze aby sme vedeli co chceme zobrat musime ist na 8 riadok a len si zisti kolko od toho bodu sa nachadza ten udaj co chceme vytiahnut

naprikald:
udaj z 8 riadku je o 2riadky dole a 3 stlpec

zapiseme:
Cells(y + 1, 4) = Sheets("2").Cells(x +2 , 3)


hadam uz to je jasne? :)citovat