Příspěvky uživatele
< návrat zpět
Mám pocit, že kraj v datech ARESu (v tomto případě) není.
Docela nejasné zadání. Co máš na mysli "spojením obsahu" jako že A1 = "dům" B1 = "auto" tak C1 = "dům auto"
nebo (asi spíš toto) C1 = "dům", C2 = "auto" ?
... aby se pružně rozšiřoval ??? do šířky nebo co do počtu řádků ?? (asi počtu řádků)
Zadej nějaký vzor.
A kolik tech listů se zdrojovými daty má být? Určitý počet(2,3,4,..) nebo neznámý. Pokud by byl neznámý, tak na listu, kam se bude kopírovat bych udělal součty nahoře a dolu kopíroval data z jiných listů. A navíc bych ten součtový list dal jako list1. Ale samozřejmě záleží na Tvém požadavku.
Mrkni na to, a vygoogli si příklady maker z netu. Jsou jich tam miliony.
Tož jsem to vyzkoušel a došel ke stejnému závěru jako Dingo. Je-li makro v listu, nepokračuje na jiném listu, což je logické. Pokud dáš makro do "module" funguje normálně. Makro spustíš v Module třeba tak:
Private Sub CommandButton1_Click()
Call makro_jmeno
End Sub
Na druhý list stejného listu jsem ještě nikdy nepřepnul. Ať dělám co dělám, nic. 
Snad takto ?
opr. 8,30 = 0,354...... atd
Nevím, jestli jsem to pochopil.
A jak rozsáhlé má být zadání? Z popisu není jasné jestli je to jen FO1,FO2 nebo i FO9 (například). Hodnota FOx se bude zapisovat jen do buňky A2 nebo i do A3, A4, tedy hodnota v A2 se vztahuje k řádku 2 nebo i 3,4,5.
To je poněkud obecný dotaz, či požadavek.
Ctrl a středník funguje i Off 2010
A jakou hlášku to píše ? nebo nic a jen nejdou?
Jenom pro upřesnění - dotaz.
máš na mysli, že je třeba nejprve spusit XXX, pak zavřít a v jiném novém sešitě lze makra psát nebo je lze psát a spouštět jen v otevřeném sešitě XXX ???
Není třeba nový sešit otevírán z jiného než "důvěryhodného místa" , tedy adresáře ???
V souboru "použití.log" (vytvoří se automaticky ve stejném adresáři) máš pak přehled kdo a kdy se v tom hrabal 
zapiš do Thisworkbook:
Private Sub workbook_open()
čítač = GetSetting("POKUS", "rozpočet", "počet", 0)
otevřenoposledně = GetSetting("POKUS", "rozpočet", "Otevřeno", "")
Msg = " Tento sešit byl zde otevřen " & čítač & " krát."
Msg = Msg & vbCrLf & " Posledně otevřeno: " & otevřenoposledně
MsgBox Msg, vbInformation, ThisWorkbook.Name
čítač = čítač + 1
otevřenoposledně = Date & " " & Time
SaveSetting "POKUS", "rozpočet", "počet", čítač
SaveSetting "POKUS", "rozpočet", "otevřeno", otevřenoposledně
Open ThisWorkbook.Path & "\použiti.log" For Append As #1
Print #1, Application.UserName, Now
Close #1
Application.DisplayFullScreen = False
End Sub
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