Příspěvky uživatele
< návrat zpět
Byla by možná ukázka obou zmiňovaných sešitů?
Pokud tomu dobře rozumím, tak při jakékoliv změně v buňce A2 se má vytvořit nový list s daty a data přenést do jiného sešitu s názvem listu v A2?
Umístění obou sešitů předpokládám ve stejném adresáři.
Taky nejsem profesional.
Lon
To je otázka 5-ti minut.
Co sem dát oba soubory? Excel i Word.
Lon
To je to nejjednodušší. 
Jaké MSO máš? 2007?
Lon
Co vytvořit jeden list, kde budou pouze položky faktury s nadpisy sloupců a použít hromadnou korespondenci.
Lon
Pro nic, jen pro upřesnění.
Tak jak jsi na tom s funkcí VAL()?
Lon
Dobře, tak trošku jinak.
Excel má funkci "Záznam makra", pokus se nejprve sám provést to co potřebuješ a pak sem dej případný výsledek k dotvoření a "učesání". Tedy pokud se chceš něčemu přiučit a trošku porozumět.
Nejlépe se naučíš na svých chybách
Nejsem tak starý, ale hodně pamatuju
Lon
Zkus nápovědu v excelu.
Kdo Ti dělal ten formulář?
Na rychlo:
Cells(start, 7) = Val(JedCpred_f)
Cells(start, 8) = "=RC[-2]*RC[-1]" ' vzorec
Cells(start, 7).NumberFormat = "#,##0.00 Kč"
Cells(start, 8).NumberFormat = "#,##0.00 Kč"
Range(Cells(start, 3), Cells(start, 8)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(Cells(start, 3), Cells(start, 8)).Borders(xlEdgeTop).LineStyle = xlContinuous
Range(Cells(start, 3), Cells(start, 8)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Range(Cells(start, 3), Cells(start, 8)).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(Cells(start, 3), Cells(start, 8)).Borders(xlInsideVertical).LineStyle = xlContinuous
Lon
Pak:
Cells(start, 7) = Val(JedCpred_f)
Cells(start, 7).NumberFormat = "#,##0.00 Kč"
I přesto, že DIM JedCpred As Integer
Lon
Zkus použít:
Cells(start, 7) = Format(JedCpred_f, "#,##0.00 Kč")
Lon
Pak by musel být znám nějaký logický algoritmus pro vyhodnocení kódu, tak aby se dal správně interpretovat.
Buď pouhými funkcemi, nebo složitějším vyhodnocení pomocí VBA kódu (makra).
Z takto obecně zadané informace nelze nic konkrétního napsat.
Pokud má zadaný textový řetězec standardní délku, pak stačí využít funkci ČÁST(text; start; počet_znaků). V anglické verzi MID(text; start; počet_znaků)
Problém je v tom, že Application.Dialogs(xlDialogSendMail).Show odesílá aktuálně otevřený soubor.
IMHO, proč neodeslat soubor .xlsx se zamčenými buňkami, místo *.pdf? Pokud však chceš odeslat soubor v *.pdf, pak to bude muset být pravděpodobně provedeno ručně.
Lon
NZ, není to moc perfektní, ale funkční.
Líp jsem to nezvládl 
Lon
Zapomněl jsem na to, snad tohle bude trošku lepší.
Lon
Uživatelské menu
\nMenu
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.
RSS nejnovější články