• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Po ctvrtem stisknu TAB preskocil kurzor na druhem radku do kolonky NA a jeji okraj se zbarvil...

Pro radek 1 pouzi tento vzorec:
=COUNTIF(1:1;">0")

priloz soubor a nejak to zaridime...

tady to mas s tim opacnym razenim...

neni problem, bylo to fakt jednoduchy...

Pokud budes mit to tvoje cislo v A1, tenhle vzorec ti to predela do podoby, kterou potrebujes:
=HODNOTA(ČÁST(DOSADIT(A1;" ";"");HLEDAT("-";DOSADIT(A1;" ";""))-4;4))

podle toho, jak jsem si to precetl, to bude pomerne snadne - jen prilozte zminovany soubor

zkusil jsem to doplnit do tveho souboru, abys videl...

jinak o literature se diskutovalo tady: http://wall.cz/index.php?m=topic&id=1121

Pokud chces do nejaky bunky priradit hodnotu z jine bunky, udelas to takto:

Range("a1") = Range("B5") - do bunky A1 vlozit hodnotu z B5

V tvem pripade je nutne identifikovat radek ve sloupcich, ktere potrebujes vyplnit (Datum, Celkem bodu, uspenost, atd).
Jde tedy o to (aby se vzdy hodnoty zapisovaly pod sebe skazdym odeslanim dat do reportu), najit prvni neprazdny radek.

To se dela takto - najdes posledni bunku oblasti (jako stisknuti CTRL + sipka nahoru)

Takze posledni obsazeny radek u polozky Celkem bodu (sloupec 13) je:
Cells(65000,13).end(xlup).row+1

prirazeni hodnoty Celkem bodu je potom:
Radek = Worksheets("report").Cells(65000,13).end(xlup).row+1

Worksheets("report").Cells(Radek,13) = Worksheets("Formular").range("C58")

...a obdobne pro ostatni hodnoty

--to overeni funguje?

Nevim, jestli jsem se v tom takhle narychlo zorientoval spravne,
pri stisku tlacitka REPORT se provede kontrola vyplnenosti cerveny policek (maji seznam overeni dat).

Btw, ten kod kopirovani hodnot mi prijde zbytecne slozitej, staci priradit hodnoty konkretni bunce (neni potreba kopirovat jednotlive bunky)

Mozna mate cesky Excel.
Pro A1 by to mohlo byt takto (pokud maji zmizet carka i teka):
=HODNOTA(DOSADIT(DOSADIT(A1;",";"");".";""))


nebo takto (pokud ma byt misto tecky desetinna carka):
=HODNOTA(DOSADIT(DOSADIT(A1;",";"");".";","))

Hm, zvlastni, zkusil bych vsechny sesity presunout do jineho souboru, treba to pomuze, a treba taky ne...

tak prihod soubor...

neco jsem udelal, ale nechtelo se mi moc premyslet, jak jsem tam suplnul jedno makricko, ktere prepisuje adresu bunky, ktera se zmenila na Listu2

tak kde je problem, projit cyklem dotycne bunky a zkontrolovat, Len(Bunka)>0 (delka je vetsi nez nula - vyplnene)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje