Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  29 30 31 32 33 34 35 36 37   další » ... 84

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

co takhle?

To je easy, staci nechat jen Cells(start, 12), protoze pak se bere v uvahu aktivni list nebo pokud tomu neveris, tak muzes pouzit: ActiveSheet.Cells(start, 12)

Nejakej cas bych na to nasel, ale bude potreba spousta doplnujicich informaci - jak to ma fungovat, jaky presne vazby by to melo mit, kdo co ma zadavat a co ma pravo menit atp...
Pokud vas zajem stale trva, muzete se ozvat.

cau,
moc jsem to nezkoumal, ale co takhle odstranit oznaceni listu Faktura [Sheets("Faktura").] vsude tam, kde se maji hodnoty vlozit do aktivniho listu???

co takto

Sheets(Array("Faktura", "Cenová nabídka", "Report")).Copy

Obavam se, ze jste to v priloze nevysvetlil vubec.

Prectete si muj prispevek vyse - tam se dozvite jak pouzit GoalSeek - musite mu do bunky C3 dat vzorec, ktery se bude pouzivat.

Logika je takova, ze excel pomoci Iteraci (do bunky ChangingCell) postupne navysuje hodnotu v bunce ChangingCell (hodnota v ni se tedy meni) dokud neni v bunce C3 dosazeno pozadovane hodnoty (Goal).

Musite tedy mit VZOREC odkazujici se na bunku ChangingCell.

Je uplne jedno, jak definujete hodnotu Goal, podminek muze byt spousta!

Priloz pripraveny sesit (s listy tak, jak by mely vypadat a nejaky vyplneny vzorek dat, tak, jak je budes vyplnovat...)
Dulezita informace je taky to, jestli se mohou opakovat (byt duplicitni) jmena hracu (jak v seznamu, tak v databazi vyplnenych dat)

Tak jsem to z kusil dat dohromady.

Postup by mel byt takovy, ze budete mit otevreny sesit Pristupy.xls a pote budete otvirat ty vase jednotlive vstupni soubory (bere v uvahu vzdy posledni otevreny sesit).
Potom v sesite pristupy.xls kliknete na tlacitko umistene v bunce A1 - je tam zakomponovano par kontrol, na ktere asi prijdete pri otestovani...

Kdyby bylo neco spatne, dejte vedet...

Tak ja opet nevim, co vlasnte chcete, protoze pokud uz chcete pouzivat goalseek, tak mu musite rict, jakym zpusobem ma iterace pouzit (dat mu vzorec)
V priloze najdete mozne reseni.

Pokud bych mel pouzit vas priklad:
Range("c3").GoalSeek Goal:=10000, ChangingCell:=Sheets("list1").Range("C1")


Range("C3") musi obsahovat vzorec, ktery bude navazan na bunku Range("C3") - ta musi byt prazdna, postupne se do ni doplnuji jednotlive iterace, dokud neni dosazeno hodnoty Goal (10 000), ktera muze byt samozrejme definovana ruzne (na zaklade podminek atd).

Zkuste se podivat do prilohy a kdyztak se ozvete...

Btw. priloha musi byt zazipovana!

OK,
bude se hledat hodnota zadana v A1 (nasobena stem).
Ale kde se ma hledat, muze tech hodnot byt vice? CO ma byt vystupem???
Zkuste prilozit vzorovy soubor a naznacit, ceho byste rad dosahl...

Asi by to chtelo vic specifikovat - nebo lepe prilozit vzorek dat (vzor pristupy.xls a aspon dva z x souboru) a jak by mel vypadat vysledek.

Nepochytil jsem z popisu, co se ma s daty ze sesitu v tom cilovem vlastne udelat. Ma se kopirovat jen 2. radek? nebo vsechny? jak se maji data v cilovem souboru "slucovat"? Jaka je cesta k onem souborum?
Zkuste prilozit soubory na ukazku...

No, nevim, jak vymazat primo jeden kod - lze odstranit Modul, ve kterem je makro ulozeno.
Tento kod vymaze cely MODULE1 (vsechna makra v nem ulozena).
Sub VYMAZ_Modul()
Dim vbCom As Object
Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:= vbCom.Item("Module1")
End Sub

Před End Sub vloz tyto radky:
'vlozeni informace 2 radky pod SUMU
Cells(i + 3, 1) = "Vytisknul: Martin Suchý"
Cells(i + 4, 1) = "vedoucí obchodního odd."

Pokud bys místo jména 'natvrdo' chtel vlozit treba jmeno uzivatele (napsane ve Wordu), neni to problem...

Stacilo by vyměnit první dodatecný řádek za tento:
Cells(i + 3, 1) = "Vytisknul: " & Application.UserName


Strana:  1 ... « předchozí  29 30 31 32 33 34 35 36 37   další » ... 84

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje