• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Na to video jsem nekoukal, ale pokud zkopírujete list pomocí CopySheets("List1").Copy After:=Sheets(1)zkopíruje se včetně kódu v jeho modulu.

Problém podle mne není v excelu, ale v souboru xml.
Tag
<Document xmlns="urn:iso:std:iso:20022:tech:xsd:pain.001.001.02"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="urn:iso:std:iso:20022:tech:xsd:pain.001.001.02 pain.001.001.02.xsd">
způsobí při importu vytvoření objektu NameSpace s prefixem ns1 a tento se pak vloží.

Pokud jsem tag nahradil
<Document xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
(resp. smazal 1. a 3. řádek), prefix se nevytvořil

Toto je řešitelné a vcelku snadno. Protože už používáte proceduru na vytvoření listu, v té samé proceduře aktualizujte vzorec ;)
Bez přílohy vám více nepomůžu.

Palooo a jeho záliba v cyklech ;)
Využijte Application.WorksheetFunction.Sum(Range)

Jenom poznámka. Mně pomáhá otevření a zavření dotyčného sešitu. Taky netuším proč, ale většinou se to podruhé už otevře správně.
Nicméně to může být závislé na mnoha jiných nastaveních.

Tady budete muset použít VBA nebo Excel4Macro a příkaz VYHODNOTIT

http://wall.cz/index.php?m=topic&id=15503&page=3#posts

Tak to já se musím pochválit, protože jsem to pochopil.
Ale vytvářet si soubor nebudu, takže vytvořte ukázkový soubor se dvěma listy, v jednom budou data s filtrem a ve druhém tabulka, do které se vloží.
Dejte to sem a nebude dlouho trvat a budete to mít.

Sub subSaveSheets()
Dim sh As Worksheet

For Each sh In ThisWorkbook.Sheets
sh.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sh.Name, xlWorkbookDefault
ActiveWorkbook.Close
Next sh

Set sh = Nothing
End Sub

@marjankaj
Proto by bylo lepší něco mezi. Vytvořit makro, které data upraví do tvaru, který navrhl mikkinachtik a následně využít vyhledávací funkc

Mno. Správnější řešení je to, co navrhl mikkinachtik.
Podle mého názoru není vůbec optimální řešit toto vlastní funkcí, protože při každé změně v sešitu se vám všechny tyto vzorce budou znovu a znovu přepočítávat (pokaždé se bude xkrát projíždět desetitisíce řádků).
Nicméně chápu, že pokud se jedná o desetitisíce řádků, není praktické (a ani prakticky možné) dělat toto ručně.
Proto by bylo lepší něco mezi. Vytvořit makro, které data upraví do tvaru, který navrhl mikkinachtik a následně využít vyhledávací funkci.

Jenže těžko domýšlet, co vlastně děláte. Jestli se jedná o nějakou dlouhodobou databázi nebo import dat.

@lubo
nejen následníci a předchůdci - cyklický odkaz bude totéž ;)

to byla jen technická - jsou situace kdy to možná jinak nejde, ale tahle to není ;)

@Dingo
;))

dovolím si toho využít (že se vám chtělo ty boxy vytvářet) a navrhnout vám malé zpřehlednění kódu ;)

Private Sub CheckBox1_Click()
Call subChange
End Sub

Private Sub CheckBox2_Click()
Call subChange
End Sub

Private Sub subChange()
With Range("A1")
.Characters(Start:=1, Length:=3).Font.Strikethrough = CheckBox1.Value
.Characters(Start:=5, Length:=2).Font.Strikethrough = CheckBox2.Value
End With
End Sub

jo - zrovna se na to taky dívám a chtěl jsem ho zkusit
bez přílohy to ale dělat nebudu (nemám vstupní data) - složité to nebude
tady je pravděpodobně vytvořený v excelu
http://upload.wikimedia.org/wikipedia/commons/5/57/Witthauers_diagram.gif

@lubo
ale fuj - zviditelňovat objekty? ;)))

psáno z brucha (ten termín se mi fakt líbí, palooo by si ho měl registrovat ;) ) - přesněji otestováno, ale checkboxy se mi vytvářet nechtěly ;)

Sub Test()
'ActiveCell.Value = "ano ne"
ActiveCell.Characters(Start:=1, Length:=3).Font.Strikethrough = chbYes.Value
ActiveCell.Characters(Start:=4, Length:=2).Font.Strikethrough = chbNo.Value
End Sub

Na těch PC, kde to háže chybu se zkuste kouknout, zda tam nejsou nějaké chybějící reference.

V editoru VBE vyberte Tools->References a koukněte, zda tam není MISSING! u některé.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje