Zkopírování rozsahu buňek a posun pod ně

0
0

Zdravím, potřeboval bych prosím vás poradit, nejlépe poslat kód tak abych při zmáčknutí na tlačítko zkopírovalo část tabulky a nakopírovala se pod stávající tabulku. Měla by se pomocí tlačítka vkládat tabulka od řádku 22 až po 28, ale jen prázdná (jelikož v ní bude poté text). Ale podpis by tam měl zůstávat, pokud by to šlo. Zde je příloha: https://drive.google.com/open?id=0B-1Ogm5IVnqUSVhGN1RpT0tNQW8 Díky mockrát 🙂

Marked as spam
Odeslal Chezy
Otázka položena 29.10.2017 10:49
78 views
0
Private answer
Marked as spam
Odeslal Chezy
Odpověděl 29.10.2017 10:51
0
Private answer

Dobrý den, tohle vám asi nikdo z voleje neporadí. Bylo by třeba pobavit se o tom, jak se to má přesně chovat, pak napsat v jazyce VBA a pořádně otestovat. Btw, nevím přesně co to je, ale vypadá to jako osobní data nějakých pacientů, tak zvažte jestli to dávat přístupné na web…

Marked as spam
Odeslal (Otázky: 1, Odpovědi: 184)
Odpověděl 29.10.2017 13:16
0
Private answer
Dim rd As Single Dim rdk As Single rd = 23 Do While Cells(rd, 2) „KO za:“ rd = rd + 1 If Cells(rd, 2) = „KO za:“ And rdk = 0 Then rdk = rd If Cells(rd, 2) = „KO za:“ And Cells(rd + 1, 2) „“ Then rd = rd + 1 Loop Range(„B23:F“ & rdk).Copy Range(„B“ & rd + 1) Range(„C“ & rd + 1 & „:F“ & rd + 17).ClearContents takhle vypadal původní kod od jednoho týpka, jenže tam byli provedeny úpravy a kód nefunguje, a já ho nedokáži překopat tak, aby fungoval :/ https://drive.google.com/open?id=1tFfUrex6ctH9-00B2YucIhwIfpLUQzIXTGZoOi22S80
Marked as spam
Odeslal Chezy
Odpověděl 29.10.2017 13:51

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]