Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  13 14 15 16 17 18 19 20 21   další » ... 69

To elnino:
Samozřejmě máš pravdu 10

Myslel si to třeba takto ?
Private Sub CommandButton1_Click()

Pocitadlo = 2
Do While Pocitadlo < 30 '
If Worksheets("List2").Cells(2, Pocitadlo) = "" Then
With Me
List2.Cells(2, Pocitadlo).Resize(4) = Application.Transpose(Array(.Cells(3, 3), .Cells(4, 3), .Cells(5, 3), .Cells(6, 3)))
Exit Sub
End With
Else
Pocitadlo = Pocitadlo + 5
End If
Loop
End Sub

Já to splácal takto:

Přidán bod 3.
Trochu sem překopal layout faktury pro umístění QR kódu.
V nastavení si v řetězci pro platbu zadej svůj IBAN (najdeš ho v internetovém bankovnictví)

https://www.kb.cz/cs/podpora/ucty-a-platby/jak-vlozit-qr-kod-do-faktury

Jinak tvorba QR kódu pochází Odtud

Zpracovány body 1 a 2 mimo tlačítka (netuším kam si ho přeješ umístit). Makro spustíš na kartě Zobrazení -> Makra.

Případně si tlačítko umísti sám, budeš k tomu potřebovat kartu vývojář. Pokud ji nemáš zobrazenou, tak nastavení excelu -> Přizpůsobit pás karet -> v levém okně zaškrtni Vývojář.

RomanMu napsal/a:

OBrázek k předchozímu příspěvku: https://imgur.com/a/NH6YrcA


V tom sešitu nikde není list s názvem List4 !!!

Úplně stejně, pokud bude sešit chráněn heslem, zobrazí se výzva.

Tohle mi funguje. Nebo myslíš něco jiného?

Třeba takto, ještě sem upravil počet dnů v měsíci v 1. řádku. Zbytek vzorců si uprav ať nezobrazují chybu.

Jen nástřel pomocí cyklu. viz soubor.
První kód mi funguje pokud se vyfiltruje číslo 1, při další hodnotě hodí chybu, zatím nevím proč kua 6.
Možná se chytne někdo další a zbavíš se toho cyklu.

Teda, tento dotaz je obzvláště vypečený 9

Jedno řešení bych měl, makro Oprava() nahradit podřízeným (manželkou?), který/á bude příslušné kroky co budou napsány v buňce C38 vykonávat nebo vydržet ještě několik let do nástupu vyspělé umělé inteligence.

Přikládám upravený soubor, kód sem jen duplikoval pro druhou tabulku a upravil vlastnost GroupName Optionbuttonů, aby bylo možné ovládat každou skupinu samostatně.

Myslíš tohle: viz soubor
Kód z tlačítka jen umístíš do ListBox1_Click()

Na základě poskytnutých informací se dá říci jediné:
Napsat makro tak, aby pracovalo rychleji!

Edit:
Řádně deklarovat proměnné
Zbavit se Selectů
Vkládat hodnoty do polí
.....

Budu se opakovat.
Tak si proměnnou převeď na text !

ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=CStr(1), To:=CStr(Konec), copies:=1, collate:=True


Strana:  1 ... « předchozí  13 14 15 16 17 18 19 20 21   další » ... 69

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Porovnávací Tabulka

lubo • 25.6. 10:09

Porovnávací Tabulka

Jirka78 • 25.6. 9:21

Porovnávací Tabulka

Jess • 25.6. 6:46

rozlisna tlac excelu na 2 pc

elninoslov • 24.6. 23:28

Porovnávací Tabulka

elninoslov • 24.6. 23:26

Porovnávací Tabulka

Jess • 24.6. 22:46

rozlisna tlac excelu na 2 pc

Michalko • 24.6. 7:04