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
116 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
Admin bar avatar Odeslal (Otázky: 1, Odpovědi: 331)
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]