Change formula to code

[novice1]

Can some assist in changing the formula into code. Thanks for you help

=(SUMIF(Logbook!$A9:$A10009,">="&A5-6,Logbook!$E9:$E10009)-SUMIF(Logbook!$A9:$A10009,">"&A5,Logbook!$E9:$E10009))/24

 

[schielrn]

Not sure what you are doing with it, but this should do what you want I think?

decValue = evaluate("=(SUMIF(Logbook!$A9:$A10009,"">=""&A5-6,Logbook!$E9:$E10009)-SUMIF(Logbook!$A9:$A10009,"">""&A5,Logbook!$E9:$E10009))/24")

Hope that helps.

 

[AlphaFrog]

Or something like this...

    Dim rngA As Range, rngE As Range
    
    Set rngA = Sheets("Logbook").Range("A9:A10009")
    Set rngE = Sheets("Logbook").Range("E9:E10009")
    
    x = (Application.SumIf(rngA, ">=" & Range("A5") - 6, rngE) - _
         Application.SumIf(rngA, ">" & Range("A5"), rngE)) / 24

Note: Range("A5") is referencing the ActiveSheet

 

[schielrn]

Also it seems like your formula could just be this?

=SUMIF(Logbook!$A9:$A10009,6,Logbook!$E9:$E10009)/24

But maybe I am missing something here?

 

[novice1]

Not sure what you are doing with it, but this should do what you want I think?

decValue = evaluate("=(SUMIF(Logbook!$A9:$A10009,"">=""&A5-6,Logbook!$E9:$E10009)-SUMIF(Logbook!$A9:$A10009,"">""&A5,Logbook!$E9:$E10009))/24")

Hope that helps.

I think it will work, but it displays 0.483333. It should be display in time format [h]:mm

 

[schielrn]

Maybe try:

decValue = format(evaluate("=(SUMIF(Logbook!$A9:$A10009,"">=""&A5-6,Logbook!$E9:$E10009)-SUMIF(Logbook!$A9:$A10009,"">""&A5,Logbook!$E9:$E10009))/24"),"[h]:mm")

Hope that helps.

 

[novice1]

Perfect thank you