Příspěvky uživatele

=KDYŽ(ČÁST(J23;7;5)-ČÁST(J23;1;5)>0;(ČÁST(J23;7;5)-ČÁST(J23;1;5))*1440;((ČÁST(J23;7;5)+24-ČÁST(J23;1;5))-23)*1440)

Toto sem našel na netu:
Private Sub Application_Startup()
Dim msg As Outlook.MailItem
Set msg = Application.CreateItem(olMailItem)
msg.subject = "Zpráva ze dne " & Date
msg.Display
Set msg = Nothing
End Sub

"Makro doběhne, ale ....... neprovede výpočet"
A v excelu 2003 Ti to funguje?
Protože jestli sem to pochopil správně, výpočet probíhá na listu "Vystup", kde se nacházejí vzorce.
Jako viníky bych viděl vzorce v buňkách C37 a C38. Konkrétně nějakou pitomost v kritériu např
=SUMIF($G$14:$G$34;"=0,09";$I$14:$I$34)
když podivné kritérium nahradím adresou buňky A37
=SUMIF($G$14:$G$34;A37;$I$14:$I$34)
dojde k výpočtu ceny.

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

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje