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

Příspěvky uživatele

Dim datax As Range
Set datax = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Program").Range("A7:E7").Copy Destination:=datax
datax.Offset(, 5).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Set datax = Nothing

zkus nahradit fci WEEKNUM za ISOWEEKNUM

Momentálně sem na telefonu tak to neověřím, ale tohle by mělo fungovat

=SUMA(1/COUNTIF(A1:A20;A1:A20))

Maticově (CTRL+SHIFT+ENTER)

Myslíš to takto viz soubor?

Taky by nebylo špatné si ujasnit jaká kritéria se mají počítat AOVI vs AOV1

Jdu už chrápat, zítra musím do práce, tak jen vytváření listů podle jedinečných klíčů.

Ahoj Martine, není to sice úplně bez otevření sešitu (sešit se otevře skrytě na pozadí), ale mělo by to fungovat.
Samozřejmě si uprav cestu k souboru.
Sub Test1()

Dim Zdroj As Workbook
Dim MaxRadek As Long

Set Zdroj = GetObject("c:\Users\Intel i3\Desktop\test.xlsx")

MaxRadek = Zdroj.Worksheets("List1").Cells(Rows.Count, 2).End(xlUp).Row
Debug.Print MaxRadek

Zdroj.Close
Set Zdroj = Nothing
End Sub

To elnino:
Samozřejmě máš pravdu

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ář.

Ú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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje