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

Příspěvky uživatele

Ahoj všem. Mám ve VBA např. toto : "Byl vložen nový pozadavek za měsíc" & mesic & "Autor pozadavku:" & jmeno
Nevím jak docílit toho, aby mězi větou v uvozovkách a proměnoou (mesic a jmeno) byla mezera. Pokud to spustím, tak mi to napíše takto: Byl vložen nový požadavek za měsíczaří 2017Autor požadavkuVopička. Což není zrovna estetické :-)). Díky za nápad.

Tak na to bych opravdu sám nepřišel ..:-)Jak je to jednoduché, když se to umí ... :-))) Díky a přeji hezký den :-)

tak ještě jednou i s přílohou ...

a.mlady: přikládám soubor. Asi si sedím na vedení .. omlouvám se.

a.mlady: Mám ještě jeden dotaz. Nemůžu přijít na to, proč mi to nefunguje v jném sešitu. Zkopíroval jsem vaši funkci barvy do modulu nového sešitu, upravil podmíněný formát jenom v tom, že jsem upřesnil co se má hledat a kde se to má hledat a nefunguje to. Pokud udělám úpravy v původním sešitě (pokus_seznam), změním co se má hledat a kde se to má hledat, upravím PF, tak to funguje .. Už jsem z toho jelen na čem to vlastně závisí ... :-)))

amlady : Perfekt. Přesně to jsem chtěl. Jsi dobrý. Díky moc :-)

Ahoj všem, prosím o radu. Mám vytvořený seznam léků a v něm určité položky, které mají zelenou výplň. V buňce E1 mám rozevírací seznam. Jak docílím toho, aby se mi po výběru položky ze seznamu, v buňce E1 zobrazilo i podbarvení ze seznamu ? Pro jistotu přikládám příklad. Díky za nápady a pomoc.

Perfekt:-) Děkuji moc. Funguje to výborně :-) Když se to umí, tak je to brnkačka :-) Ještě jednou díky :-)

Výborně. Děkuji moc. Přesně to jsem potřeboval. Funguje to perfektně. Dobrá práce:-)
A jenom takový "skromný" dotaz, šlo by tam někde zakomponovat, aby to vypisovalo jenom určity druh souborů např. sobory které začínají "OBJ" a mají koncovku .xlsm ? Myslím něco jako např.: obj*.xlsm ?

Ahoj všem. Potřebuji poradit, jak napsat ve VBA makro, které mi vypíše doubory v adresáři, ale i v podadresářích např. C:\2017\AAA\, C:\2017\BBB\,C:\2017\CCC\
Tento kod mi vypíše soubory jenom v adresáři C:\2017\
Private Sub vypisadresare()
adresar = "C:\2017\"
ChDir adresar
SouboryKtere = Dir("*.*")
ListBox1.Clear
Do While SouboryKtere <> ""
ListBox1.AddItem SouboryKtere
SouboryKtere = Dir
Loop
Set wshell = CreateObject("WScript.Shell")
MsgBox wshell.CurrentDirectory
End Sub

Díky za radu :-)

Díky moc ..:-)

Ahoj všem :-)
Prosím o radu: Potřebuji zjistit pomoci VBA, zda je v buňce text nebo číslo. (Pokud je v buňce číslo, tak udělej toto, pokud je v buňce text udělej něco jiného..)
Díky za každou radu.

Tak jsem to vyřešil. Pro případ, že by někdo potřeboval něco podobného:
Sub Makro1()
'
' Makro1 Makro
a = InputBox("zadej název")
adresar = "C:\Pokus1000\" & a

' kontrola zda li neexistuje stejný adresář

If Dir("C:\Pokus1000\" & a) = Empty Then
MsgBox ("Adresář již EXISTUJE! ")
a = InputBox("Zadej hezčí - jiný název! ")
adresar = "C:\Pokus1000\" & a

End If
' Vytvoří adresář
MkDir adresar

End Sub

Díky za spolupráci :-)

Ja když nevím , tak alespoň nedělám chytrého, aby jsem nevypadal jako hlupák a proto se raději zeptám, že ?

Díky. A kam to vložit ? :-) Když to moje makro vypadá takto :
Sub Makro1()
'
' Makro1 Makro
a = InputBox("zadej název")
adresar = "C:\Pokus1000\" & a
MkDir adresar
'
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse