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
Avatar uživatele Odeslal Chezy
Otázka položena 29.10.2017 10:49
140 views
0
Private answer
Marked as spam
Avatar uživatele 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
Avatar uživatele Odeslal (Otázky: 1, Odpovědi: 340)
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
Avatar uživatele 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]