« Back to Previous Page
Answer Question
▲
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
Posted by Chezy
Otázka položena 29.10.2017 10:49
151 views
▲
0
▼
✔
Private answer

https://drive.google.com/open?id=0B-1Ogm5IVnqUQVNlRjQ2dzNCZG8 zde je správná příloha :/

Marked as spam
Posted by Chezy
Answered on 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
Posted by (Otázky: 1, Odpovědi: 340)
Answered on 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
Posted by Chezy
Answered on 29.10.2017 13:51
« Back to Previous Page

Post your Answer

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