Příspěvky uživatele

Ahoj,

na listu2 mám dva sloupce s cenami. V jednom sloupci ceny v EUR, v druhém v Kč. Dále dva přepínače (optionbutton1 + optionbutton2) a jedno tlačítko "kopírovat" ( do listu1).

Pokud zaškrtnu přepínač1, chci po stisku tlačítka "kopírovat" přenést cenu v EUR do listu1 s tím, že za cenou se v listu 1 objeví popis měny EUR. Pokud bude zaškrknutý přepínač2, chci po stisku tlačítka "kopírovat"analogicky přenést cenu v Kč (za cenou popisek Kč).

Kopírování na základě zaškrtnutého přepínače není problém, ale jak ovlivnit zobrazení příslušné měny netuším.

Poradí někdo? Z toho, co jsem našel na netu moc moudrý nejsem.

děkuji

elninoslov: uff tak to je pecka, klobouk dolů, máte můj respekt. Myslel jsem si, že o VBA už něco trochu vím, ale tohle je zcela něco nového. Mohl bych Vás ještě poprosit o doplnění komentářů do Vašeho kódu? Ne vše je mi jasné a rád bych to nejprve pochopil a poté implementoval do mého řešení. To mu codename rovněž nějak nerozumím, po změně jazyka jsou záložky pojmenovány stále stejně tzn. nemění se.

díky moc, vážím si Vaší pomoci

Se zbytkem faktury si poradím. Jak to myslíš s tím zapsáním přímo do kódu? Díky

příloha...

Ahoj,

mám makro na vystavování faktur. Nyní jsem dostal požadavek, udělat jazykovou mutaci. Moje myšlenka je následující. Do sešitu přidat rozbalovací menu-combobox(případně přepínače - optionbutton), kde by si uživatel vybral příslušný jazyk. Je možné pomocí VBA docílit toho, aby se při změně jazyka v comboboxu změnily popisky (caption) v názvu tlačítek + text ve formulářích? (V přiloženém souboru se formuláře zobrazí pomocí tlačítek "Přidat odběratele" a "Přidat komponentu".

díky za Vaše postřehy

vyřešeno

Ahoj, mám oblast buněk, řekněme A30:A1000, jejichž obsah chci smazat pomocí tlačítka. Smazat chci všechen obsah buněk, vyjma buněk, které obsahují určitý text. Někde v uvedené oblasti mám např. text "v případě nouze volejte infolinku" o něco níže "platnost nabídky je 14 dní od vystavení". Jak docílit toho, že po kliknutí na uvedené tlačítko, bude smazáno vše vyjma buněk obsahující tento text? díky moc

Dobrý večer,

poradil by mi prosím někdo, jak pomocí VBA docílit následujícího?

V listu faktura mám rozbalovací menu, pomocí kterého vybírám konkrétního odběratele. Jméno příslušné kontaktní osoby odběratele a její mailová adresa se po vybrání odběratele z rozbalovacího menu propisují do buněk C24 resp. C25. V dolní části mám rovněž tlačítko na přidání nového dodavatele. V listu Odberatel jsou zapsáni jednotliví odběratelé(již existující, či nově přidaní). Na tomto listu jsem si vytvořil tlačítko na přidání nové kontaktní osoby k aktuálně vybranému odběrateli.

Chtěl bych dosáhnout toho, aby při vybrání odběratele bylo zkontrolováno, zda k danému odběrateli existuje více kontaktních osob. Pokud ano, tak aby se po zvolení takového odběratele objevilo nové rozbalovací menu, ze kterého bych si vybral konkrétní kontaktní osobu (ta by pak byla zapsána do buněk C24 resp C25 na listu faktura). Pokud existuje k vybranému kontaktu pouze jedna kontaktní osoba, bude tato rovnou zapsána do zmíněných buněk. Uměl by mi s tím prosím někdo pomoci? Množství kontaktů se však může měnit, nějaký kontakt můžu smazat, jiný zase přidat. Daná oblast se tedy může dynamicky měnit.

Snad jsem to popsal pochopitelně.

přikládám přílohu

za Vaše postřehy děkuji

Dobrý večer,

v proměnné alfa mám uloženu hodnotu 3.

MsgBox alfa
delta = [COUNTA(H& alfa : M & alfa)]
MsgBox delta

v každé z buněk H3 až M3 mám určité hodnoty (text)

Hodnota proměnné delta je ale nepochopitelně vždy 1.

Pokud použiju zápis

delta = [COUNTA(H3 : M3)]

nabývá proměnná delta hodnoty 6 (což je správně). Já však potřebuji do funkce COUNTA dostat variabilní proměnnou.

Může prosím někdo pomoci?

děkuji

Zdravím,

je možné pomocí VBA opakovat řádky dole? (analogicky k funkci "nahoře opakovat řádky", která je dostupná přes "Tisk názvů" -> záložka "List"). Díky za info

Dobrý večer,

mám problém s uložením kopie sešitu. Mám makro, které před uložením souboru zkoumá, zda soubor s daným názvem (Angebot_19-01-041.xlsm) ve složce "angebot" již existuje. Pokud existuje, objeví se okno s dotazem, zda chce uživatel soubor přepsat (ANO/NE). Pokud ano, soubor je přepsán (resp. starý soubor se stejným názvem je nejprve smazán a poté je uložen nový). Chtěl jsem do kódu doplnit větvení else (pokud soubor se stejným názvem neexistuje, tak se soubor prostě uloží), ale bohužel mi to nejde, což nechápu proč.

ThisWorkbook.SaveCopyAs filename:="C:\angebot\" & jmeno & ".xlsm"

Zkoušel jsem kód i obměnit, bohužel bezvýsledně. Stále se objedvuje hláška Compile Error: Else without If

Private Sub CommandButton4_Click()
q = Worksheets("temp").Range("A3").Value
jmeno = "Angebot_19-01-" + CStr(q)
soubor = "C:\angebot\" & jmeno & ".xlsm"
If Len(Dir(soubor)) = 0 Then ThisWorkbook.SaveCopyAs filename:="C:\angebot\" & jmeno & ".xlsm"
Else
i = MsgBox("Eine Datei mit diesem Namen " & jmeno & ".xlsm" & " ist schon vorhanden. Wollen Sie diese Datei überschreiben?", vbYesNo, "Datei überschreiben?")
Select Case i
Case vbNo
Exit Sub
Case vbYes
Kill soubor
MsgBox "Datei wurde unter " & jmeno & ".xlsm " & "gespeichert"
End Select
End If
End Sub

Nevíte prosím někdo, kde je chyba?

díky

Miroslav

Díky, ještě než se do toho pustím...je správná úvaha, že když souborů ve složce bude třeba 100 a další budou přibývat, tak načítání hodnot z buněk jiných sešitů bude trvat dlouho? Napadlo mě ještě jedno elegantnější řešení, díky kterému bych se tomuto načítání vyhnul.

přikládám přílohu (než jsem text dopsal, byl jsem bohužel automaticky odhlášen)

Potřebuji ze zavřeného sešitu získat text z určité buňky.
=SUMA('C:\prace\angebote\[f.xlsx]List1'!$A$1)

Tento vzorec mi funguje, pokud je v buňce A1 číslo. Já však potřebují načíst a přenést text, což bohužel nejde. Jako výsledek se vždy zobrazí 0.

Externí odkazy jsou tedy použitelné pouze u číselých hodnot? Pokud ano, lze to obejít nějakým jiným způsobem?

za postřehy děkuji

Vyřešeno, odkazoval jsem se na název listu, což byla chyba. Ještě jednou díky za Vaši pomoc.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje