MS Excel

a je to formular jako userform nebo oblast bunek?
Pro userform je asi nejlepsi zkontrolovat kazdy textbox (nebo jakykoliv jiny zadavaci prvek), jestli neni prazdny jestli obsahuje to, co ma (cislo, text, atd).
A upozornovat uzivatele bud uz v prubehu vyplnovani nebo pri odeslani.

To stejne lze udelat s bunkami (cyklem pri odeslani projet a zkontrolovat vyplneni a obsah).citovat

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

tak prihod soubor...citovat

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)citovat

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?citovat