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

Příspěvky uživatele

Nechápu co má dělat buňka B15

Máte to hotové v mailu.

Nechápu proč, ale nejde mi poslat příloha.

A nestačilo by to jen takhle jednoduše?

Sub Add()

Dim WS As Worksheet
Dim Nazev As String

Nazev = Format(Date, "dd.mm.yyyy")

On Error Resume Next
Set WS = Worksheets(Nazev)
On Error GoTo 0
If Not WS Is Nothing Then MsgBox "Nelze přidat, jelikož se aktuální den už v sešite nachází!", vbExclamation: Exit Sub

Sheets("VZOR").Visible = True
Sheets("VZOR").Copy After:=ActiveSheet
ActiveSheet.Name = Nazev
ActiveWindow.Zoom = 100
ActiveSheet.Range("A1").Select
Sheets("VZOR").Visible = False

End Sub

Stačí jen naformátovat buňky.

Je to maticový vzorec. Měl jsi to správně, stačilo jen potvrdit CTRL+Shift+Enter

Mepexg

Já právě mám Office 2016, ale přesto to nejde. Asi dělám něco špatně. Ale děkuji.

Tady máte ještě makro.

Není to profi, ale funguje.

Sub Zapsat()

If Sheets("Program").Range("A2") = "" Then
MsgBox "Zadejte Figuru", vbExclamation
Else

Dim Radek As Long

Radek = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Row + 1

Sheets("Program").Range("A4:G4").Copy
Sheets("Archív").Cells(Radek, 1).PasteSpecial xlPasteValues
Sheets("Archív").Cells(Radek, 8).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Sheets("Archív").Select
Range("A2").Select
Application.CutCopyMode = False

Sheets("Program").Select
Range("A4,D4:G4").ClearContents
Range("A4").Select

MsgBox "Figura úspěšně zapsána do archívu", vbInformation

End If

End Sub

mepexg

mě ta Vaše příloha nefunguje, co dělám špatně?

Tak to musí už někdo chytřejší. Ale měl byste něco udělat s tím makrem, všiml jsem si, že přenášíte buňky i se vzorci a formátem což Vám bude dělat neplechu. Kopírujte pouze hodnoty.

Už jsem to nestihl. :-)

Přijde mi, že zbytečně pořád přepočítáváte dny na KT a zase na zpět. V tom se snadno udělá chyba. Pokud jde o nějakých 12 týdnů šlo by to i jednodušeji.

Střílím hodně od boku a vůbec se ve vaší tabulce nevyznám, ale zkuste:
1. zakomponovat WEEKNUM(AW7+1;21)
2. doporučuji formátovat KT 00/00 a né 0/00
3. na výpočet datumu doporučuji vzorec

7*ZAOKROUHLIT((7&1-ZPRAVA(AG7;2))/7+ZLEVA(AG7;2);0)+177

snad to pomůže

Trochu se v tom ztrácím a nechápu co potřebujete.

Přílohu prosím.

Je to super, jako vždy. Moc děkuji.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje