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

Příspěvky uživatele

Možná by bylo lepší příště vložit přílohu než obrázek, aby jsme to nemuseli opisovat.

A nechcete to vzorcem?

=ROMAN(50)
=ROMAN(A1)

Fertig.

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.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse