Syntax

[dsin73]

I am not good at VBA but usually fumble my way through.

Trying to translate this which works if I simply paste it into a Cell

=FLOOR(D11*3,1)&" Days and "&TEXT(SUM(D11,-TIME(8,0,0)*FLOOR(D11*3,1))," h") & " Hours " & MINUTE(A1) & " Minutes "& SECOND(D11) & " Seconds"

Into This for my VBA - & below & is basically the next cell down after counting all rows in range D. i.e D14 is last entry then below=D15 (total)

Range("C" & lastrow + 1).Formula = "=FLOOR(D" & below & "*3,1)& "" Days and"" &TEXT(SUM(D" & below & ",-TIME(8,0,0)*FLOOR(D" & below & "*3,1))," h")"

 

[Norie]

Is below a row number?

 

[dsin73]

With Worksheets("Output")
below = .Cells(.Rows.Count, "D").End(xlUp).Row + 1
End With

Yes

 

[dsin73]

If I use this I get the days output perfectly but cannot add the hours on

Range("C" & lastrow + 1).Formula = "=FLOOR(D" & below & "*3,1)& "" Days"" "

 

[Norie]

If it is try this.

Range("C" & lastrow + 1).Formula = "=FLOOR(D" & below & "*3,1)&"" Days and ""&TEXT(SUM(D11,-TIME(8,0,0)*FLOOR(D" & below & "*3,1)),"" h"") & "" Hours "" & MINUTE(A1) & "" Minutes ""& SECOND(D" & below & ") & "" Seconds"""

 

[jmacleary]

Depending on how you have defined below, you may need to wrap it in a format i.e. replace all occurrences of 'below' with 'format(below)'.

 

[dsin73]

Thank you so much! worked first time, you made it look simple