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

Příspěvky uživatele

=IF(OR("B"=PISMENA);"Pravda";"Nepravda")

Samozřejmě maticově.

Ano.

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

V odkazu je kód na zpracování Optionbuttonu, tak si ho uprav pro Checkbox

Případně si z odkazu stáhni poslední soubor je tam druhá varianta kódu.

Ještě mě napadla jedna možnost - koncept.
???

Jen takový nápad.
Máš zatrženo: ?

Vše podstatné již napsal AL.

Takže jen přikládám upravený soubor.

Něco takového:?

Edit: Vyměněna příloha, pokud byla buňka C4 prázdná docházelo k chybě.

Hele pokud chceš aby Ti někdo poradil s kódem, tak napiš jak to má CELÉ fungovat.
To že chceš kopírovat blok dat (kterým říkáš tabulka) do jakého si formuláře "Prohlášení" mi samozřejmě došlo.

Tvůj kód nekopíruje poslední řádek! V cyklu kopíruje jednotlivé řádky, ale vkládá je do STEJNÉHO umístění, tedy dochází k přepisování jednotlivých hodnot.
Jinak počet řádků v excelu je 1048576

Kopírovat buňky po jedné je blbost, pokud to budeš dělat ručně taky nebudeš kopírovat po jedné, ale vybereš celý blok dat.

Podle jakého klíče se rozhoduješ, který blok dat se má zkopírovat?
Mají všechny bloky dat stejný nebo menší počet řádků než je počet řádků ve "formuláři"?
Pokud je počet řádků v bloku dat větší než je počet řádků ve formuláři, co se má stát?
Co ostatní položky formuláře?
Z jakého listu se má provádět kopírování a jak se bude definovat?
atd...

"Kdybych ty data kopíroval na stejný list, tak mi to funguje"

Ne, nefunguje.

"ale nedokáži, aby se ty data kopírovali na jiný list do stejného místa pokaždé"

A to se právě děje.

"jen neznám potřebný kod"

Ano, s tím by se dalo souhlasit.

Kopírování dat jako takové je ptákovina. Otázkou je jak to má celé fungovat!

Nedokázal byste mi někdo pomoc?

Na základě Tebou poskytnutých dat?

No jasně, jen budeš muset počkat než se někomu vrátí křišťálová koule z garanční prohlídky.

Zadání:
Tady máte nějaký data, který nazývám tabulky i když tam žádný tabulky nejsou, nesmyslný kód + vágní popis funkce. A ukažte se fešáci.

Kdysi sem řešil podobný požadavek, přikládám dva způsoby co sem použil. Možná se to hodí jako inspirace.

Netuším proč zrovna trváš na vkládání vzorce přes VBA, ale budiž.

Netvrdím, že je to nejlepší řešení, ale je to to první co mě napadlo.
Věřím, že někdo z kolegů by to napsal jinak (lépe).

Každý z OptionButtonů je přířazen do skupiny (Vlastnosti -> GroupName) aby bylo možno vybírat ze 3 možností v rámci otázky.
Název této skupiny je předán makru Writeoption, kde dojde ke zpracování.

PS:
V modulu je přidán kód Reset2, má tu samou funkci jako Reset, jen je použit jiný způsob zápisu kódu.

Přidáním
obj.Object.Value = False

Tedy:

Sub Reset()
Application.ScreenUpdating = False
Dim obj As OLEObject
For Each obj In List1.OLEObjects
If TypeOf obj.Object Is MSForms.OptionButton Then
obj.Enabled = True
obj.Object.Value = False
End If
Next
Application.ScreenUpdating = True
End Sub

Když už něco opisuju, tak si dávám pozor, aby to bylo správně.

Select Case True
Case OptionButton1.Value: rg = 1
Case OptionButton1.Value: rg = 2
Case OptionButton1.Value: rg = 3
End Select

Edit: Místo LOCKED použí ENABLED
OptionButton2.Enabled = False

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse