< návrat zpět

MS Excel


Téma: automatické vytváření rss

Zaslal/a 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.

Zaslat odpověď >

Strana:  « předchozí  1 2 3 4   další »
#003793
avatar
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.citovat
#003794
avatar
a další pokus o přílohu...
Příloha: zip3794_pokusny-soupisnabidek-roku-xx_test.zip (26kB, staženo 12x)
citovat
icon #003796
Poki
tohle by mohla byt ta procedura pro prenos do noveho sesituSub 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 Sub
citovat
#003801
avatar
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
icon #003804
Poki
staci opravit tento radek:
Workbooks.Add("Název šablony").SaveAs Cesta & "\" & Nazevcitovat
#003822
avatar
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
icon #003828
Poki
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
icon #003830
Poki
Zkuste zadat do nazvu šablony celou cestu k ni...Workbooks.Add("c:\Documents and Settings\...\Data aplikací\Microsoft\Šablony\šablonaTEST").SaveAs _
Cesta & "\" & Nazev
citovat
#003833
avatar
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...citovat
#003835
avatar
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. 2citovat

Strana:  « předchozí  1 2 3 4   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09