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).
je to oblast buněk.přesně zkontrolovat při odesílání hodnot buňek.
tak kde je problem, projit cyklem dotycne bunky a zkontrolovat, Len(Bunka)>0 (delka je vetsi nez nula - vyplnene)
no nevim kam tu kontrolu zadat :( jak by melo vypadat případné makro
mě tohle kopírování taky přijde složitý ale jak jinak bych tam posílal ty hdonoty ?
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?
tohle se teda musim nejak naučit protože podobné věcy dělam často.ověření funguje paradně.zkusim ho rozšifrovat a udělat pro další 2 formuláře.
jednou si tu psal o nějaky literatuře co ti pomohla.jaka to byla ? koupim si taky něco chytrýho
5329_hodnoceni-sprv.zip
RSS nejnovější články