Příspěvky uživatele

Najít, nahradit opravdu nefunguje. Zkusil jsem popsat v v makru v příloze (module 2). Prostě převedu buňky na text, rozdělím, místo tečky dám čárku, spojím a převedu na formát číslo. V příloze je to dělané pro sloupce B,C, pro ostatní vyzkoušejte sám zkopírováním a přepsáním buněk. Pokud to nepůjde, udělám pro celou tabulku.

Možní by stálo za to po otestování, jestli list existuje zvolit dotaz, jestli chce uživatel existující vymazat Třeba ten List2. Při Ano zkus :

On Error Resume Next
Application.DisplayAlerts = False
Sheets("x").Delete
On Error GoTo 0

Veliké díky. Už mi to funguje. Skláním se před Tebou velký Vezíre

. Ještě jednou dík.

Díky, asi jsem špatně specifikoval problém.Na řádku 3 mám vzorec Excelu : Když je chybná hodnota (protože buňky jsou číslo a dám tam mezeru), dej do výsledku nulu, jinak rozdíl buněk. (=KDYŽ(JE.CHYBHODN(B3-A3);0;B3-A3))A to funguje.
Ve funkci (na řádku 6 žlutém) chci to samé. Protože hodnota je double a dám mezeru, je to chyba
(If Not IsError(chyba) Then
odecti_hodnoty = do1 - od1
Else
odecti_hodnoty = 0 End If).
A potíž mám v tom, že i když je ve funkci větev else (pokud je chyba), nedosáhnu výsledku nula.Díky

Dobrý den.
V Excelu mi funkce je.chybnhodn správně podle funkce KDYŽ vyhodnotí rozdíl buněk při zadání mezer mezerníkem do číselných buněk. Ve vlastní funkci VBA se minedaří chybu ošetřit. Velice děkuji za pomoc Krist

No jasně. Tak pro ostatní se stejným problémem :

Select Case vyhl_list.Name
Case Is = "prvni": naz_list = "ahoj prvni"
Case Is = "druhý": naz_list = "ahoj druhý"

Case Else
naz_list = vyhl_list.Name
End Select

Poki, moc děkuji za pomoc. Prostě kdo umí, ten umí. Ale takových, kteří umí a ještě jsou ochotni pomoci jiným, moc neexistuje.
Ještě jednou tisíceré díky.
Krist

Dobrý den.
Prosím o pomoc s funkcí Select Case.
Na list Parametry dělám seznam listů s hypertextovými odkazy.
Potřebuji, aby fyzické názvy listů zůstaly, ale v seznamu v Parametrech mohly bý jiné názvy a přitom odkazy jsou stále na fyzické názvy (potřebuji to kvůli několikajazyčné tabulce). Zkouším pomocí Select case, podle tlusté knihy o VBA. Netuším, co dělám špatně, už si nevím rady. Přikládám vzorový soubor, v makru jsou popsány moje kroky. Moc díky. Krist

Velice děkuji Poki.

Dobrý den.
Prosím o radu, jak ve VBA získám informaci, že sešit byl otevřen v režimu jen pro čtení.Potřebuji "odchytit" tuto událost a poté dále s ní pracovat v podmínkách.
Děkuji Krist

Dobrý den
Zkuste se podívat, zda jste to chtěl takto (v příloze).Pokud ano, je to formátem buněk, napíšu jak na to.Hezký den

Ač sám potřebuji rady, nějaké řešení je v příloze.Vypíše na list "Parametry" názvy všech listů a pořadí.Můžeš měnit názvy listů i jejich pořadí a vždy pri aktivaci listu "Parametry" uvidíš aktuální stav. V kódu jsem jednotlivé kroky okomentoval. Musím dodat, že zdroj k vyřešení mého problému jsem našel zde na fóru a upravil a doplnil dle svých potřeb.

ahaaa.Jsem to pochopil. V závorce není fyzické pořadí listu v sešitu, ale jeho číslo.Dá se nějak vypsat, který list má jaké číslo ? Projdu celý sešit a vypíšu si názvy listů,
(For i = 1 To ActiveWorkbook.Sheets.Count
Worksheets("parametry").Range("A" & i) = Worksheets(i).Name), pořadí, hodnotu určité buňky. Hodilo by se mi i to číslo.Díky

V tématu Jak načíst obsah buňky odpověděl Poki : Problem bude zrejme v tom List1, protoze to neni nazev listu, ale jde o cislo listu v sesitu (to se nemeni do konce 'zivota'
sesitu, takze se nemeni ani pri odstraneni listu).
Jak mohu toto číslo zjistit a poté ho použít ? Umím jen název (Worksheets("září")) nebo v závorce pořadí listu (Worksheets(2)). Docela by se mi hodilo číslo listu přímo v makru, takže bych se neodkazoval ani na název ani na pořadí. Moc díky

Moc děkuji, to je ono.

Dobrý den.
V Excelu 2007 mám na mnoho listech stejný formulář. Pokud chci něco změnit, označím všechny listy a upravím jen na jednom, změna se projeví všude.Pohoda. Potřebuji na všech listech stejným způsobem použít podmíněné formátování (je li v buňce 0, obarvi modře).Jenže při označení všech listů mám podmíněné formátování neaktivní.Nevite, jak to oblbnout, abych nemusel podmíněně formátovat každý list zvlášť ? Díky.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje