Příspěvky uživatele

Toto se dá řešit dvěma způsoby (vzorci).
1) funkcí COUNTIFS - je dostupná od verze excelu 2007 výš.
nebo
2) maticovým vzorcem pomocí fce SUMA

viz příklad

Dejme tomu, že ceny máš ve sloupci A (např A1:A1000). Někam do volné buňky napiš částku, kterou chceš přičíst. Umísti na tuto buňku kurzor a dej kopírovat. Potom označ oblast s cenami (A1:A1000), pravé tlačítko myši a vložit jinak - objeví se okno, kde v části operace označíš přičíst a klikneš na ok. Buňku do které si psal částku o kterou se zvyšovala cena můžeš klidně smazat.

Ps: vyzkoušej si to "nanečisto" na kopii souboru, co kdyby...

Místo desetinné čárky používej lomítko nebo mínus
31/7/2012
31-7-2012
Excel si to automaticky převede na formát data.

Takto ?

Používám tento kód:
Sub Seznam_listu()

Dim Ws As Worksheet
Dim i As Long
i = 1

With Me
.Columns(1).ClearContents
.Cells(1, 1) = "Jméno"
.Cells(1, 1).Name = "Index"
End With

For Each Ws In Worksheets
If Ws.Name <> Me.Name Then
i = i + 1
With Ws
.Range("A1").Name = "Start_" & Ws.Index
.Hyperlinks.Add Anchor:=Ws.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Zpět na seznam"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(i, 1), Address:="", SubAddress:="Start_" & Ws.Index, TextToDisplay:=Ws.Name
End If
Next Ws
End Sub

V sešitu mám na začátku list "Seznam", tento kód je vložen v jeho modulu. Kód vypíše seznam listů v sešitě a do každého listu do buňky A1 vloží hypertextový odkaz, který vede na list seznam.

PS: vyzkoušej na kopii svého sešitu aby případně nedošlo k nějaké "havárii"

=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))

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje