Najprv sa musím ospravedlniť za nezmyselnú zmienku o deklarácii CopyRange. Asi pre oči som nevidel, že je použitá v obidvoch makrách.
Chyba bola u mňa pri prepisovaní makier do aplikácie a kvôli časovej tiesni. Teraz som ich skopíroval tak, ako sú napísané. Výsledok je BIG BANG. Funguje to. Vďaka Vďaka Vďaka.
Funguje to trochu inak ako som v zadaní zamýšľal. Vzájomne sa vymenia riadky, ale nedochádza k posúvaniu riadkov. Je to rozšírenie funkcionality toho, čo som chcel, ale vítam to. Úplne super by to bolo, ak by sa táto funkcionalita dala alternatívne spojiť s požadovaným posúvaním riadkov. Alternatíva by bola volená tým, že by som na cieľovú bunku B4 klikol ľavým, alebo pravým tlačítkom myši (v krajnom prípade kombináciou Ctrl + nejaké písmeno). Neviem, či je to vôbec realizovateľné vo VBA.
Ešte jedna pripomienka: Ak bunka v stĺpci B je prázdna (vymazaná klávesou Delete)- neúplná ale funkčná tabuľka, potom presúvanie neuskutočniť.
Ďakujem, pekný weekend prajem.