< návrat zpět
MS Excel
Téma: automatické vytváření 
Zaslal/a george 5.1.2011 21:54
ahoj všem,
jsem spíš uživatel s trochou praxe kdysi dávno s basicem na 8mi bitu...
mám prosbu o radu, nebo dotaz. Máme v exelu dokumenty, které se tvoří ručně, vzorce jsou v šabloně.
V jednom sešitě je na každém řádku ID a název akce. Pak je pod tímto ID otevřen sešit s obsahem akce.
Šlo by napsat dialogové okno, kde by se po zapsání názvu akce inkrementovalo ID a otevřelo další sešit s názvem tohoto ID? Možná komplikace je i v tom, že se někdy aktualizuje stávající akce. Starý sešit zůstává, jen se zkopíruje do nového jež má za svým ID ještě pomlčku a jednu číslici aktualizace.
Nevím kde začít. Děkuji moc.
george(17.1.2011 21:57)#003793 
zkusím tedy prvně popis.
prokousal jsem se úplnými základy. Vytvořil jsem formulář a to nejdůležitější už dělá. Tedy lokálně. Prosím, potřeboval bych kdyby jsem v rutině zápisu aktivoval vytvoření nového sešitu pod jménem aktuální nabídky (levá strana žlutého pole) a zbytek ze žlutých buněk přenést na první list tohoto sešitu. Nebo alespoň jedenu.Prosím o pomoc a děkuji.
citovatgeorge(17.1.2011 21:59)#003794 a další pokus o přílohu...
citovat
Poki(18.1.2011 13:52)#003796
tohle by mohla byt ta procedura pro prenos do noveho sesitu
Sub Novy_sesit()
Dim Nazev As String
Dim TentoSesit As String
Dim Cesta As String
Nazev = Range("B4").Value
Cesta = ThisWorkbook.Path
TentoSesit = ThisWorkbook.Name
Workbooks.Add.SaveAs Cesta & "\" & Nazev
Workbooks(TentoSesit).Activate
Worksheets("soupis").Activate
Range("B2:E4").Copy
Workbooks(Workbooks.Count).Activate
Worksheets(1).Activate
Range("b2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Columns("B:F").EntireColumn.AutoFit
Application.CutCopyMode = False
End Subcitovatgeorge(18.1.2011 15:11)#003801 je to úplně perfektní. Moc děkuji. Jen drobný dotaz - lze takto otevřít i soubor s šablonou? Kam by se pak mělo zadat název šablony? Jinak ještě jednou moc děkuji. Mohu to posunout o kus dál.
citovat Poki(18.1.2011 15:49)#003804 staci opravit tento radek:
Workbooks.Add("Název šablony").SaveAs Cesta & "\" & Nazevcitovatgeorge(18.1.2011 20:53)#003822 tak to fungovalo. jednou. Asi někde dělám chybu. Sešit s šablonou normálně ručně spustím. Poprvé mi to opravdu fungovalo. Ale pak to hlásí run time error - 1004 (chyba Add ). Kde mohu dělat chybu?
citovat Poki(19.1.2011 9:19)#003828 No,
takhle napoprve me napada, ze nesmite mit spusteny ten sesit se sablonou (udela se to automaticky)!
Jestli to nepomuze, bude zalezet na tom, co presne rika ta chyba...
citovat Poki(19.1.2011 10:02)#003830 Zkuste zadat do nazvu šablony celou cestu k ni...
Workbooks.Add("c:\Documents and Settings\...\Data aplikací\Microsoft\Šablony\šablonaTEST").SaveAs _
Cesta & "\" & NazevcitovatGeorge(19.1.2011 17:45)#003833 Tak jsem to zkusil a řekl bych že je to to samé. Hlásí mi to "Run time error 1004
Method "Add" of object "Wokrbooks" Filed
možná dělám nějakou banání chybu...
citovatGeorge(19.1.2011 23:33)#003835 Sláva. Obešel jsem to vytvořením vzorového souboru a jeho uložením pod požadovaným jménem. Takže první část hotova. Jen malý dotaz: občas se mi při práci se soubory a nebo po práci zasekne počítač. Neměl bych někde vložit nějaký příkaz k vyčištění ? Asi někde něco přeteče. Zatím tedy moc a moc děkuji. Hezký den.
citovat
3794_pokusny-soupisnabidek-roku-xx_test.zip
RSS nejnovější články