Příspěvky uživatele

Když sem psal, aby si vložil kód. Měl sem na mysli kód, kde se Ti makro zastaví (zůstane viset na té hlášce).
V tomto případě by bylo vhodné vložit celý sešit, jak poznamenal kolega výše.
Zkusím takový výstřel do tmy. Toto je část Tvého kódu:

Sub Ulozit_doklad()
'Doklad
Dim List_jmeno As String
List_jmeno = "Doklad"
Dim File_full_name As String
Dim File_name As String
Dim File_path As String
File_full_name = Plne_jmeno_souboru
File_name = Jmeno_souboru
File_path = Cesta_souboru
'
On Error GoTo Err_line
Sheets(List_jmeno).Select
Sheets(List_jmeno).Copy ' Copy Move
'ChDir "C:\Documents and Settings\Petr\Plocha"
ActiveWorkbook.SaveAs Filename:=File_full_name
'Sheets("List1").Select
'Sheets("List1").Name = "novy"
Info = "Zavírám uložený soubor" & vbCrLf & _
Chr(34) & File_name & Chr(34) & vbCrLf & vbCrLf & _
"Soubor byl uložen na adrese:" & vbCrLf & _
Chr(34) & File_path & Chr(34)
If frm_Navigace.chb_Info_Save_as = True Then
MsgBox Info, vbOKOnly + vbInformation, "Uložit soubor ..."
End If
ActiveWorkbook.Close
Exit Sub
Err_line:
Msg = "Chystáte se manipulovat listem " & vbCrLf & _
Chr(34) & List_jmeno & Chr(34) & vbCrLf & _
"tento list nebyl nalezen !!!"
If Err.Number = 9 Then
MsgBox Msg, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Msg2 = "Neplatný název souboru !!!" & vbCrLf & "(Délka názvu souboru nebo cesty je " & _
Len(File_full_name) & " znaku)" & vbCrLf & _
Chr(34) & File_full_name & Chr(34) & vbCrLf & vbCrLf & _
Err.Description
If Err.Number = 1004 Then
MsgBox Msg2, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Err.Clear
End Sub

Tučně vyznačenou část nahraď tímto:
ActiveWorkbook.SaveAs Filename:=File_full_name, FileFormat:=xlNormal

Tak sem vlož kód, je tu spousta odborníků kteří Ti poradí.

Musíš sešit ukládat s koncovkou xlsm místo xlsx, nebo použít koncovku pro starší verze xls.

Je to vlastně kombinace předchozího řešení. Ve sloupci G je u záporných časových údajů použit vzorec, který je převede na text, aby je bylo možné zobrazit (tyto hodnoty nelze sčítat, protože se jedná o pouhý text). Proto sem použil pomocný sloupec H kde se s časem pracuje jako s desetinným číslem (2:30 = 2,5). Tyto hodnoty se klasický sečtou (H37) a do buňky G37 se znovu převedou na formát času h:mm. Pokud by byla hodnota (H37) záporná provede se ještě převod na text.

Dobrá co tohle: viz soubor
Je použit pomocný sloupec H, který je skrytý (na listu "srpen").

Tak jen taková rychlovka. Na listě "srpen" čas ve formátu hh:mm. Excel nepodporuje "záporný" čas, proto sem převedl hodnoty na text (nelze s nimi dále počítat).
Na listu "červenec" je čas zobrazen jako desetinné číslo, se kterým můžeš dále pracovat.

=SUBTOTAL(9;NEPŘÍMÝ.ODKAZ("K"&A1):NEPŘÍMÝ.ODKAZ("K"&B1))

Abych řek pravdu, tak se v tom souboru moc nevyznám, ale něco sem zkusil a snad by to bylo i funkční (alespoň u mě to tak nějak funguje).
Upraveno makro a vzorce.

Vyzkoušej

Tohle sem vygooglil. Makro se bude spouštět při jakékoliv změně buňky ve sloupci Q

Třeba takto:

Opraveno

Třeba takto:

Tak sem na to přišel. Je potřeba vlézt do nastavení excelu - centrum zabezpečení a zatrhnout volbu .... viz. screen

Dovolím si vytáhnout toto vlákno a poptat se zkušenějších. Chtěl sem využít tento Pokiho kód, ale není funkční. Vybíhá hláška viz. přiložený screen.
Jen chci upozornit, že před cca rokem co se to tu řešilo všechno fungovalo bez problémů. Možná za to můžou aktualizace office (používám Excel 2007).
Nemáte někdo ponětí jak znovu zprovoznit tento kód.
Děkuji

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje