Excel pomoć

Nemoguće da je greška u izračunu jer se radi o osnovnim matematičkim operacijama, greška je u formuli, sate je potrebno pretvoriti u sekunde, znači još pomnožiti sa 60.

=IF((HOUR(A1)*24*60*60 + MINUTE(A1)*60 + SECOND(A1)) > (HOUR(B1)*24*60*60 + MINUTE(B1)*60 + SECOND(B1)); "late"; "on time").

Ipak, bolje je i elegantnije koristiti TIME iz kolone A1 i usporediti s kolonom B1 u kojoj je isto TIME - tvoja formula.

1. moj prijedlog

  =IF((HOUR(A1)*24*60*60 + MINUTE(A1)*60 + SECOND(A1)) > (HOUR(B1)*24*60*60 + MINUTE(B1)*60 + SECOND(B1)); "late"; "on time")

2. prijedlog od IvanC

  =IF(TIME(HOUR(A1);MINUTE(A1);SECOND(A1))>=B1;"late";"on time")

Obje formule daju isti rezultat. Elegantnije rješenje je od IvanC.

Funkcija ADDRESS kopiranjem vraća svaku šestu adresu ćelije u zadatom stupcu.

=ADDRESS(ROW(A1)*6;1;2)

Ugnijezdi ovu formulu iznad u INDIRECT funkciju ili kreiraj INDEX formulu

Opet dosadni ja!

Kako ću u .vba upisati vrijednost ćelije, treba mi za msgbox

Sub pRINTA_IZVJESTAJ_GORIVA()
'
' pRINTA_IZVJESTAJ_GORIVA Macro
'

'
Dim MSG As String, ANS As Variant
MSG = "Želite li ispisati izvještaj" & cell = ("A2") & "ulaza?"
ANS = MsgBox(MSG, vbYesNo)
Select Case ANS
    Case vbYes
   
    Range("A2").Select
    Selection.Copy
    Sheets("List2").Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("B2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("C6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("C2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("E2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("C9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("D2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("K9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("F2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("F16").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("G2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("H14").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("H2:K2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("G12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("L2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("F18").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("M2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("F19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("N2:Q2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("G13").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("R2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("F17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("S2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("F21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("T2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("F22").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("List1").Select
    Range("U2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("List2").Select
    Range("H16:J19").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll DOWN:=-30
    Range("A1:L31").Select
    Application.CutCopyMode = False
    Selection.PrintOut Copies:=1, Collate:=True
    Range("H16:J19").Select
    Selection.ClearContents
    Range("F22").Select
    Selection.ClearContents
    Range("F21").Select
    Selection.ClearContents
    Range("F19").Select
    Selection.ClearContents
    Range("F18").Select
    Selection.ClearContents
    Range("F16:F17").Select
    Range("F17").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll DOWN:=-18
    Range("G12:J14").Select
    Selection.ClearContents
    Range("K9").Select
    Selection.ClearContents
    Range("C9").Select
    Selection.ClearContents
    Range("C7").Select
    Selection.ClearContents
    Range("C6").Select
    Selection.ClearContents
    Range("C4").Select
    Selection.ClearContents
    Sheets("List1").Select
    ActiveWindow.SmallScroll ToLeft:=12
    Range("B2").Select
   
    Case vbNo
    GoTo QUIT:
    End Select
QUIT:
End Sub

Oprostite na duljini, ovo se odnosi i na moje pretprošlo pitanje http://www.bug.hr/forum/post/uredski-alati/excel-pomoc/4937327.aspx

 Evo me opet!

Sad bih trebao ovu formulu od IvanC doraditi, pretpostavljam sa IF naredbama, a trebao bih da mi prijazuje sljedeće:

Do 8:00:00 = "on time", a preko 8:00:00 ne više "late" nego da mi kao rezultat javlja je li kašnjenje do 8:15:00, 8:30:00, 8:45:00 i 9:00:00,

kao "kašnjenje do 15 min", "kašnjenje do 30 min", "kašnjenje do 45 min", "kašnjenje do 1h"

 Uspio sve riješiti našavši na youtubu :

i sa umetanjem npr: ("A" & ActiveCell.Row), to daje svaki novi red: A1, A2, ...itd.

Pozdrav, !

Nije da se ne može, ali mislim da je cijeli koncept s gumbom pogrešan. Iza naslova "STANJE NA DAN..." vjerojatno slijede nekakvi podaci određenog dana. Klik na gumb promijenit će naslov, a što s podacima, što nakon 2, 3  klika, što će na kraju biti ispravno - nalov ili podaci? Najispravniji način je da je datum u naslovu povezan s podacima, npr. s nekom ćelijom s podacima, može biti i skrivena. Primjer formule koja uzima datum iz ćelije A2 ="STANJE NA DAN " & TEXT(A2; "dd.mm.yyyy").

Opet i opet ja. Sad mi treba za broj otpremnice: npr. Imam listove 1,2,3, na njima u stupcima B je broj otpremnice kao BUG-1/16. Želio bih da ukucam vrijednost u A stupac a da mi odmah pokaže u B stupcu broj otpremnice, ali oni slobodni broj koji nije uzet već u listovima 2 i 3. Na listu1 u B1 moram unijeti početni broj otpremnice. Hvala Lp

Riješeno. Hvala       Mr.Excel com

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name = "List1" Or Sh.Name = "List2" Or Sh.Name = "List3" Then
        If Target.Count = 1 Then
            If Target.Column = 1 Then
                If Target.Value <> "" Then
                    With Target.Offset(, 1)
                        .Value = Application.Max(Sheets("List1").Range("B:B"), _
                                                 Sheets("List2").Range("B:B"), _
                                                 Sheets("List3").Range("B:B")) + 1
                        .NumberFormat = """BUG-""00"
                    End With
                Else
                    Target.Offset(, 1).Value = ""
                End If
            End If
        End If
    End If
End Sub

Dvoklik u VBA editoru na ThisWorkbook i zalijepi ovaj kod. :)

 Base price i Final price kolone excel ne tretira kao broj zbog točke. Treba biti zarez - postaviti ili kod importa ili replace poslije.

Pozdrav!

Jel itko ikada imao problem s točkom. Naime, nakon izvođenja vba koda kopiranja raspona od 4 ćelije u kojima je Općenito formatiranje, izgubim zarez, tj. na numerčkom dijelu mi nije više zarez već točka. Moram onda zatvorit excel i opet ući u program da mi vrati na staro. To mi je na Excelu na poslu gdje su postavke na našem jeziku pomoć i onaj spell chek a display Match windows System.

Zbrajanje brojeva ili vrijednosti u Excelu ako postoji uvjet možeš vršiti funkcijama SUMIF, SUMIFS a i SUMPRODUCT a neke od najčešćih formula pogledaj ovdje.

Pozdrav, trebam pomoć (prilažem sliku tablice), trebam formulu, ako je uopće moguće da mi u tablici za takmičenje odma izbacuje plasman (polje označeno sa roza bojom) momčadi u odnosu na ostvareni rezultat (kolona "Ukupno").

Još jedno pitanje.

Ukoliko postoji baza podataka u excelu koju treba spariti sa novom bazom podataka da pritom povuće postojeće podatke iz stare baze koja onda kombinacija funkcija bi najbolje napravila jednokratni posao?

VLOOKUP????

Hvala