Trying to convert hours to only minutes, however not certain what I'm doing wrong here, looking at the table O does not equal the minutes in N!
Tks Graham
Part of my code is as follows;
Columns("O:O").Select
Selection.NumberFormat = "0"
Dim Lastrow As Long
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("Q2:Q" & Lastrow).Formula = "=(11&""/""&LEFT(RC[-10],2)&""/""&14&"" ""&MID(RC[-10],3,2)&"":""&RIGHT(RC[-10],2))"
Range("P2:P" & Lastrow).Formula = "=(11&""/""&LEFT(RC[-3],2)&""/""&14&"" ""&MID(RC[-3],3,2)&"":""&RIGHT(RC[-3],2))"
Range("N2:N" & Lastrow).Formula = "=RC[3]-RC[2]"
Range("O2:O" & Lastrow).Formula = "=LEFT(N2,2)*60 +RIGHT(N2,2)"
Columns("N:N").Select
Selection.NumberFormat = "hh:mm"
Tks Graham
Part of my code is as follows;
Columns("O:O").Select
Selection.NumberFormat = "0"
Dim Lastrow As Long
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("Q2:Q" & Lastrow).Formula = "=(11&""/""&LEFT(RC[-10],2)&""/""&14&"" ""&MID(RC[-10],3,2)&"":""&RIGHT(RC[-10],2))"
Range("P2:P" & Lastrow).Formula = "=(11&""/""&LEFT(RC[-3],2)&""/""&14&"" ""&MID(RC[-3],3,2)&"":""&RIGHT(RC[-3],2))"
Range("N2:N" & Lastrow).Formula = "=RC[3]-RC[2]"
Range("O2:O" & Lastrow).Formula = "=LEFT(N2,2)*60 +RIGHT(N2,2)"
Columns("N:N").Select
Selection.NumberFormat = "hh:mm"
Cell Formulas | ||
---|---|---|
Range | Formula | |
N2 | =Q2-P2 | |
N3 | =Q3-P3 | |
N4 | =Q4-P4 | |
O2 | =LEFT(N2,2)*60 +RIGHT(N2,2) | |
O3 | =LEFT(N3,2)*60 +RIGHT(N3,2) | |
O4 | =LEFT(N4,2)*60 +RIGHT(N4,2) |