TextToColumns, VBA & Looping

T

t3chie

New Member
Joined
Jan 21, 2012
Messages
26
I'm trying to create a VBScript that performs a TextToColumns, while looping, starting with a column far to the right that moves its way left until reaches Column B:B. An example below of the type of data I'm working with. I'd prefer they stay together as with the examples below.

Also, the 4th code is a bonus, I WILL need to eventually sum all the columns up once they're broken, so if you could assist me with that as well, I would greatly appreciate it. :)

Thanks for taking time to help out!

Code: 
I'd like to turn this.

Int	Dec 1	Dec 2	Dec 3	Dec 4	Dec 5	Dec 6	Dec 7
0000							
0030							
0100							
0130							
0200							
0230							
0300							
0330							
0400	0/3	0/3	0/2	0/2	0/2	0/2	0/2
0430	0/3	0/3	0/2	0/2	0/2	0/2	0/2
0500	0/3	0/3	0/2	0/2	0/2	0/2	0/2
0530	0/3	0/3	0/2	0/2	0/2	1/2	0/2
0600	0/3	0/3	0/2	0/2	0/2	0/2	0/2
0630	0/3	0/3	0/2	0/2	0/2	0/2	0/2
0700	0/3	0/3	0/2	0/2	1/2	0/2	0/2
0730	1/3	0/3	0/2	0/2	0/2	0/2	0/2
0800	0/3	0/3	0/2	0/2	0/2	0/2	2/2
0830	0/3	0/3	0/2	1/2	0/2	0/2	0/2
0900	0/3	0/3	1/2	1/2	0/2	1/2	1/2
0930	1/3	0/3	0/2	1/2	0/2	0/2	0/2
1000	0/3	0/3	0/2	1/2	0/2	1/2	0/2
1030	0/3	1/3	1/2	0/2	1/2	0/2	1/2
1100	1/3	2/3	1/2	0/2	0/2	2/2	1/2
1130	1/3	2/3	1/2	0/2	1/2	0/2	0/2
1200	1/3	1/3	0/2	0/2	0/2	1/2	1/2
1230	1/3	0/3	0/2	0/2	2/2	0/2	2/2
1300	1/3	0/3	0/2	0/2	2/2	1/2	2/2
1330	1/3	0/3	0/2	0/2	2/2	2/2	1/2
1400	1/3	0/3	0/2	1/2	2/2	2/2	2/2
1430	2/3	0/3	1/2	0/2	2/2	2/2	2/2
1500	2/3	0/3	2/2	1/2	2/2	2/2	2/2
1530	2/3	0/3	2/2	1/2	2/2	2/2	2/2
1600	2/3	2/3	3/3	0/2	2/2	2/2	2/2
1630	2/3	0/3	2/3	1/2	2/2	2/2	2/2
1700	1/3	1/3	2/3	2/2	2/2	2/2	2/2
1730	0/3	0/3	1/3	1/2	1/2	2/2	2/2
1800	0/3	1/3	0/3	2/2	1/2	2/2	2/2
1830	1/3	0/3	0/3	2/2	0/2	2/2	0/2
1900	0/3	0/3	0/3	2/2	0/2	2/2	2/2
1930	0/3	0/3	0/3	0/2	0/2	2/2	1/2
2000	0/3	0/3	0/3	0/2	0/2	0/2	1/2
2030	0/3	0/3	0/3	0/2	0/2	0/2	0/2
2100	0/3	0/3	0/3	1/2	0/2	1/2	1/2
2130	0/3	0/3	0/3	0/2	0/2	0/2	1/2
2200	0/3	0/3	0/3	0/2	0/2	0/2	2/2
2230	2/3	0/3	0/3	0/2	0/2	2/2	2/2
2300	1/3	0/3	0/3	0/2	0/2	0/2	0/2
2330	0/3	0/3	0/3	0/2	0/2	0/2	0/2
Int	Dec 1	Dec 2	Dec 3	Dec 4	Dec 5	Dec 6	Dec 7
Code: 
 Into this.
Int	Dec	1	Dec	2	Dec	3	Dec	4	Dec	5	Dec	6	Dec	7
0000														
0030														
0100														
0130														
0200														
0230														
0300														
0330														
0400	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0430	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0500	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0530	0	3	0	3	0	2	0	2	0	2	1	2	0	2
0600	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0630	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0700	0	3	0	3	0	2	0	2	1	2	0	2	0	2
0730	1	3	0	3	0	2	0	2	0	2	0	2	0	2
0800	0	3	0	3	0	2	0	2	0	2	0	2	2	2
0830	0	3	0	3	0	2	1	2	0	2	0	2	0	2
0900	0	3	0	3	1	2	1	2	0	2	1	2	1	2
0930	1	3	0	3	0	2	1	2	0	2	0	2	0	2
1000	0	3	0	3	0	2	1	2	0	2	1	2	0	2
1030	0	3	1	3	1	2	0	2	1	2	0	2	1	2
1100	1	3	2	3	1	2	0	2	0	2	2	2	1	2
1130	1	3	2	3	1	2	0	2	1	2	0	2	0	2
1200	1	3	1	3	0	2	0	2	0	2	1	2	1	2
1230	1	3	0	3	0	2	0	2	2	2	0	2	2	2
1300	1	3	0	3	0	2	0	2	2	2	1	2	2	2
1330	1	3	0	3	0	2	0	2	2	2	2	2	1	2
1400	1	3	0	3	0	2	1	2	2	2	2	2	2	2
1430	2	3	0	3	1	2	0	2	2	2	2	2	2	2
1500	2	3	0	3	2	2	1	2	2	2	2	2	2	2
1530	2	3	0	3	2	2	1	2	2	2	2	2	2	2
1600	2	3	2	3	3	3	0	2	2	2	2	2	2	2
1630	2	3	0	3	2	3	1	2	2	2	2	2	2	2
1700	1	3	1	3	2	3	2	2	2	2	2	2	2	2
1730	0	3	0	3	1	3	1	2	1	2	2	2	2	2
1800	0	3	1	3	0	3	2	2	1	2	2	2	2	2
1830	1	3	0	3	0	3	2	2	0	2	2	2	0	2
1900	0	3	0	3	0	3	2	2	0	2	2	2	2	2
1930	0	3	0	3	0	3	0	2	0	2	2	2	1	2
2000	0	3	0	3	0	3	0	2	0	2	0	2	1	2
2030	0	3	0	3	0	3	0	2	0	2	0	2	0	2
2100	0	3	0	3	0	3	1	2	0	2	1	2	1	2
2130	0	3	0	3	0	3	0	2	0	2	0	2	1	2
2200	0	3	0	3	0	3	0	2	0	2	0	2	2	2
2230	2	3	0	3	0	3	0	2	0	2	2	2	2	2
2300	1	3	0	3	0	3	0	2	0	2	0	2	0	2
2330	0	3	0	3	0	3	0	2	0	2	0	2	0	2
Int	Dec	1	Dec	2	Dec	3	Dec	4	Dec	5	Dec	6	Dec	7
Code: 
Sub TextToColumns()

Dim Col As Range
Dim Row As Range

Sheets("TestSheet").Select
Range("H:H").Select

Set Col = Selection
Set Row = Selection

Selection.TextToColumns _
        Destination:=Cells(Col.Row, Col.Column), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, _
        Space:=True, _
        Tab:=True, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=True, _
        Other:=True, OtherChar:="/"
        
ActiveCell.EntireColumn.Insert

End Sub
Code: 
Bonus!
Int	Dec	1	Dec	2	Dec	3	Dec	4	Dec	5	Dec	6	Dec	7
0000														
0030														
0100														
0130														
0200														
0230														
0300														
0330														
0400	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0430	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0500	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0530	0	3	0	3	0	2	0	2	0	2	1	2	0	2
0600	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0630	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0700	0	3	0	3	0	2	0	2	1	2	0	2	0	2
0730	1	3	0	3	0	2	0	2	0	2	0	2	0	2
0800	0	3	0	3	0	2	0	2	0	2	0	2	2	2
0830	0	3	0	3	0	2	1	2	0	2	0	2	0	2
0900	0	3	0	3	1	2	1	2	0	2	1	2	1	2
0930	1	3	0	3	0	2	1	2	0	2	0	2	0	2
1000	0	3	0	3	0	2	1	2	0	2	1	2	0	2
1030	0	3	1	3	1	2	0	2	1	2	0	2	1	2
1100	1	3	2	3	1	2	0	2	0	2	2	2	1	2
1130	1	3	2	3	1	2	0	2	1	2	0	2	0	2
1200	1	3	1	3	0	2	0	2	0	2	1	2	1	2
1230	1	3	0	3	0	2	0	2	2	2	0	2	2	2
1300	1	3	0	3	0	2	0	2	2	2	1	2	2	2
1330	1	3	0	3	0	2	0	2	2	2	2	2	1	2
1400	1	3	0	3	0	2	1	2	2	2	2	2	2	2
1430	2	3	0	3	1	2	0	2	2	2	2	2	2	2
1500	2	3	0	3	2	2	1	2	2	2	2	2	2	2
1530	2	3	0	3	2	2	1	2	2	2	2	2	2	2
1600	2	3	2	3	3	3	0	2	2	2	2	2	2	2
1630	2	3	0	3	2	3	1	2	2	2	2	2	2	2
1700	1	3	1	3	2	3	2	2	2	2	2	2	2	2
1730	0	3	0	3	1	3	1	2	1	2	2	2	2	2
1800	0	3	1	3	0	3	2	2	1	2	2	2	2	2
1830	1	3	0	3	0	3	2	2	0	2	2	2	0	2
1900	0	3	0	3	0	3	2	2	0	2	2	2	2	2
1930	0	3	0	3	0	3	0	2	0	2	2	2	1	2
2000	0	3	0	3	0	3	0	2	0	2	0	2	1	2
2030	0	3	0	3	0	3	0	2	0	2	0	2	0	2
2100	0	3	0	3	0	3	1	2	0	2	1	2	1	2
2130	0	3	0	3	0	3	0	2	0	2	0	2	1	2
2200	0	3	0	3	0	3	0	2	0	2	0	2	2	2
2230	2	3	0	3	0	3	0	2	0	2	2	2	2	2
2300	1	3	0	3	0	3	0	2	0	2	0	2	0	2
2330	0	3	0	3	0	3	0	2	0	2	0	2	0	2
Int	Dec	1	Dec	2	Dec	3	Dec	4	Dec	5	Dec	6	Dec	7
	=SUM(B2:B49)	=SUM(C2:C49)	=SUM(D2:D49)	=SUM(E2:E49)	=SUM(F2:F49)	=SUM(G2:G49)	=SUM(H2:H49)	=SUM(I2:I49)	=SUM(J2:J49)	=SUM(K2:K49)	=SUM(L2:L49)	=SUM(M2:M49)	=SUM(N2:N49)	=SUM(O2:O49)
 

Excel Facts

Back into an answer in Excel
Use Data, What-If Analysis, Goal Seek to find the correct input cell value to reach a desired result
Sort by date Sort by votes
heres the first part and the bonus. i assume you want it to overwrite the current data. if not, set offsetVal to the number of rows down the sheet you want the results (ie at least 50 rows)
Code: 
Sub Convert()
    OffsetVal = 0   '<------- change the value to move result down the page
    For Row = 2 To 49
        For col = 7 To 1 Step -1
            Cells(Row + OffsetVal, col * 2 + 1) = Right(Cells(Row, col + 1), 1)
            Cells(Row + OffsetVal, col * 2) = Left(Cells(Row, col + 1), 1)
        Next col
    Next Row
    for col=2 to 15
        TempSum=0
        for row=offsetval+2 to offsetval+49
            TempSum = TempSum + cells(row,col)
        next row
        cells(offsetval+51)=TempSum
    next col
End Sub
 
Last edited:
Upvote 0
diddi said:
heres the first part and the bonus. i assume you want it to overwrite the current data. if not, set offsetVal to the number of rows down the sheet you want the results (ie at least 50 rows)
Code: 
Sub Convert()
    OffsetVal = 0   '<------- change the value to move result down the page
    For Row = 2 To 49
        For col = 7 To 1 Step -1
            Cells(Row + OffsetVal, col * 2 + 1) = Right(Cells(Row, col + 1), 1)
            Cells(Row + OffsetVal, col * 2) = Left(Cells(Row, col + 1), 1)
        Next col
    Next Row
    for col=2 to 15
        TempSum=0
        for row=offsetval+2 to offsetval+49
            TempSum = TempSum + cells(row,col)
        next row
        cells(offsetval+51)=TempSum
    next col
End Sub
Click to expand...

Thanks for the reply! Sorry for the the last response, kind of doused off looking for the answer. Might be tired, but I am having a bit of trouble incorporating the code.

Two things, it's does not TextToColumns the December dates at the top. Second, it does not apply the Sums at the bottom of each column.

Also, to clarify, I may be working with entire months worth of data so the 3rd code segment at the bottom is everything I would like to TextToColumn.

Thanks again! Looks like I am pretty close though. :)

Code: 
Sub TextToColumns()

Dim TempSum As Integer

    offsetval = 0   '<------- change the value to move result down the page
    For Row = 2 To 49
        For Col = 7 To 1 Step -1
            Cells(Row + offsetval, Col * 2 + 1) = Right(Cells(Row, Col + 1), 1)
            Cells(Row + offsetval, Col * 2) = Left(Cells(Row, Col + 1), 1)
        Next Col
    Next Row
    For Col = 2 To 15
        TempSum = 0
        For Row = offsetval + 2 To offsetval + 49
            TempSum = TempSum + Cells(Row, Col)
        Next Row
        Cells(offsetval + 51) = TempSum
    Next Col

Selection.TextToColumns _
        Destination:=Cells(Col.Row, Col.Column), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=True, _
        Space:=True, _
        Tab:=True, _
        Semicolon:=False, _
        Comma:=False, _
        Space:=True, _
        Other:=True, OtherChar:="/"

End Sub

Code: 
Int	Dec 1	Dec 2	Dec 3	Dec 4	Dec 5	Dec 6	Dec 7							
0000														
0030														
0100														
0130														
0200														
0230														
0300														
0330														
0400	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0430	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0500	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0530	0	3	0	3	0	2	0	2	0	2	1	2	0	2
0600	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0630	0	3	0	3	0	2	0	2	0	2	0	2	0	2
0700	0	3	0	3	0	2	0	2	1	2	0	2	0	2
0730	1	3	0	3	0	2	0	2	0	2	0	2	0	2
0800	0	3	0	3	0	2	0	2	0	2	0	2	2	2
0830	0	3	0	3	0	2	1	2	0	2	0	2	0	2
0900	0	3	0	3	1	2	1	2	0	2	1	2	1	2
0930	1	3	0	3	0	2	1	2	0	2	0	2	0	2
1000	0	3	0	3	0	2	1	2	0	2	1	2	0	2
1030	0	3	1	3	1	2	0	2	1	2	0	2	1	2
1100	1	3	2	3	1	2	0	2	0	2	2	2	1	2
1130	1	3	2	3	1	2	0	2	1	2	0	2	0	2
1200	1	3	1	3	0	2	0	2	0	2	1	2	1	2
1230	1	3	0	3	0	2	0	2	2	2	0	2	2	2
1300	1	3	0	3	0	2	0	2	2	2	1	2	2	2
1330	1	3	0	3	0	2	0	2	2	2	2	2	1	2
1400	1	3	0	3	0	2	1	2	2	2	2	2	2	2
1430	2	3	0	3	1	2	0	2	2	2	2	2	2	2
1500	2	3	0	3	2	2	1	2	2	2	2	2	2	2
1530	2	3	0	3	2	2	1	2	2	2	2	2	2	2
1600	2	3	2	3	3	3	0	2	2	2	2	2	2	2
1630	2	3	0	3	2	3	1	2	2	2	2	2	2	2
1700	1	3	1	3	2	3	2	2	2	2	2	2	2	2
1730	0	3	0	3	1	3	1	2	1	2	2	2	2	2
1800	0	3	1	3	0	3	2	2	1	2	2	2	2	2
1830	1	3	0	3	0	3	2	2	0	2	2	2	0	2
1900	0	3	0	3	0	3	2	2	0	2	2	2	2	2
1930	0	3	0	3	0	3	0	2	0	2	2	2	1	2
2000	0	3	0	3	0	3	0	2	0	2	0	2	1	2
2030	0	3	0	3	0	3	0	2	0	2	0	2	0	2
2100	0	3	0	3	0	3	1	2	0	2	1	2	1	2
2130	0	3	0	3	0	3	0	2	0	2	0	2	1	2
2200	0	3	0	3	0	3	0	2	0	2	0	2	2	2
2230	2	3	0	3	0	3	0	2	0	2	2	2	2	2
2300	1	3	0	3	0	3	0	2	0	2	0	2	0	2
2330	0	3	0	3	0	3	0	2	0	2	0	2	0	2
Int	Dec 1	Dec 2	Dec 3	Dec 4	Dec 5	Dec 6	Dec 7


Code: 
Int	Dec 1	Dec 2	Dec 3	Dec 4	Dec 5	Dec 6	Dec 7	Dec 8	Dec 9	Dec 10	Dec 11	Dec 12	Dec 13	Dec 14	Dec 15	Dec 16	Dec 17	Dec 18	Dec 19	Dec 20	Dec 21	Dec 22	Dec 23	Dec 24	Dec 25	Dec 26	Dec 27	Dec 28	Dec 29	Dec 30	Dec 31
0000																															
0030																															
0100																															
0130																															
0200																															
0230																															
0300											0/4																				
0330											0/4																				
0400	0/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/4		0/2	0/2	0/2	0/2	0/2														
0430	0/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/4		0/2	0/2	0/2	0/2	0/2														
0500	0/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/4		0/2	0/2	0/2	0/2	0/2				0/4	0/2	0/2	0/2							
0530	0/3	0/3	0/2	0/2	0/2	1/2	0/2	0/2	0/2	0/2	0/4		0/2	0/2	0/2	0/2	0/2				0/4	0/2	0/2	0/2							
0600	0/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/4		0/2	0/2	0/2	0/2	0/2		0/4	1/4	0/4	1/2	0/2	0/2			0/2	0/2	0/2	0/2	0/2
0630	0/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/2	0/4		0/2	0/2	0/2	0/2	0/2		0/4	0/4	0/4	0/2	0/2	0/2			0/2	0/2	0/2	0/2	0/2
0700	0/3	0/3	0/2	0/2	1/2	0/2	0/2	0/2	1/2	1/2	0/4	0/2	0/2	0/2	0/2	0/2	0/2		0/4	0/4	0/4	0/2	1/2	0/2			0/2	1/2	0/2	0/2	0/2
0730	1/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	1/2	1/2	0/4	0/2	1/2	0/2	0/2	0/2	0/2		0/4	1/4	0/4	1/4	1/4	0/4			0/2	2/2	0/2	1/2	1/2
0800	0/3	0/3	0/2	0/2	0/2	0/2	2/2	0/2	0/2	0/2	1/4	0/2	0/2	0/2	0/2	0/2	0/2	0/4	0/4	0/4	0/4	1/4	0/4	0/4			0/2	1/2	1/2	1/2	2/2
0830	0/3	0/3	0/2	1/2	0/2	0/2	0/2	0/2	0/2	1/2	1/4	1/2	0/2	0/2	0/2	0/2	0/2	0/4	0/4	0/4	0/4	1/4	0/4	0/4		0/2	0/2	1/2	2/2	1/2	1/2
0900	0/3	0/3	1/2	1/2	0/2	1/2	1/2	2/2	1/2	2/2	0/4	1/2	0/2	0/2	0/2	0/2	0/2	1/4	1/4	0/4		1/4		0/4		0/2	0/2	0/2	2/2	1/2	1/2
0930	1/3	0/3	0/2	1/2	0/2	0/2	0/2	2/2	1/2	1/2	0/4	1/2	0/2	0/2	0/2	0/2	0/2	1/4	0/4	0/4		0/4		0/4		0/2	0/2	0/2	2/2	2/2	1/2
1000	0/3	0/3	0/2	1/2	0/2	1/2	0/2	0/2	0/2	0/2	0/4	1/2	0/2	0/2	0/2	0/2	0/2	1/4	0/4	0/4		1/4		0/4		0/2	0/2	1/2	0/2	1/2	2/2
1030	0/3	1/3	1/2	0/2	1/2	0/2	1/2	0/2	1/2	0/2	0/4	0/2	0/2	2/2	1/2	1/2	1/2	1/4	0/4	0/4		0/4		2/4		0/2	0/2	2/2	0/2	1/2	2/2
1100	1/3	2/3	1/2	0/2	0/2	2/2	1/2	2/2	0/2	0/2	0/4	0/2	0/2	0/2	1/2	0/2	0/2	1/4	0/4	0/4				0/4		0/2	1/2	2/2	2/2		0/2
1130	1/3	2/3	1/2	0/2	1/2	0/2	0/2	1/2	1/0	1/2	0/4	0/2	0/2	1/2	0/2	0/2	0/2	0/4	1/4	0/4				0/4		0/2	1/2	2/2	2/2		0/2
1200	1/3	1/3	0/2	0/2	0/2	1/2	1/2	0/2	1/0	0/2	0/4	0/2	1/2	1/2	1/2	0/2	1/2	1/4	1/4	0/4				0/4		0/2	2/2	2/2	2/2	1/1	1/0
1230	1/3	0/3	0/2	0/2	2/2	0/2	2/2	1/2	0/2	0/2	0/4	0/2	0/2	1/2	1/2	0/2	1/2	1/4	0/4	0/4				0/4		0/2	1/2	0/2	2/2		1/0
1300	1/3	0/3	0/2	0/2	2/2	1/2	2/2	1/2	0/2	0/2	0/4	0/2	0/2	1/2	0/2		0/2	0/4	0/4	0/4	0/4	1/4		0/4		0/2	2/2	1/2	2/2		0/2
1330	1/3	0/3	0/2	0/2	2/2	2/2	1/2	1/2	0/2	0/2	0/4	0/2	1/2	2/2	0/2		1/2	1/4	1/4	0/4	1/4	0/4		1/4		0/2	2/2	2/2	2/2		1/2
1400	1/3	0/3	0/2	1/2	2/2	2/2	2/2	2/2	0/2	0/2	0/4	0/2	0/2	1/2	0/2		1/2	1/4	1/4	0/4	2/4	1/4		1/4		1/2	1/2	2/2	1/2		1/2
1430	2/3	0/3	1/2	0/2	2/2	2/2	2/2	2/2	1/2	0/2	0/4	0/2	0/2	1/2	1/2	2/0	1/2	0/4	1/4	1/4	1/4	1/4	1/4	0/4		0/2	0/2	0/2	0/2		0/2
1500	2/3	0/3	2/2	1/2	2/2	2/2	2/2	2/2	0/2	0/2	1/4	0/2	1/2	2/2	0/2	1/2	2/2	1/4	1/4	0/4	0/4	1/4	0/4	0/4		1/2	0/2	0/2	0/2		0/2
1530	2/3	0/3	2/2	1/2	2/2	2/2	2/2	1/2	0/2	0/2	1/4	0/2	0/2	1/2	0/2	1/2	1/2	0/4	0/4	0/4	0/4	1/4	0/4	0/4		1/2	0/2	0/2	0/2		0/2
1600	2/3	2/3	3/3	0/2	2/2	2/2	2/2	2/2	0/2	0/2	1/4	1/2	2/2	0/2	0/2	0/2	1/2	0/4	1/4	1/4	1/4	1/4	1/4	0/4		1/2	0/2	0/2	0/2	2/2	0/2
1630	2/3	0/3	2/3	1/2	2/2	2/2	2/2	1/2	0/2	0/2	1/4	1/2	2/2	0/2	0/2	0/2	0/2	0/4	3/4	2/4	2/4	1/4	2/4	0/4		1/3	2/2	1/2	0/2	1/2	0/2
1700	1/3	1/3	2/3	2/2	2/2	2/2	2/2	2/2	0/2	0/2	1/4	2/2	2/2	2/2	1/2	1/2	0/2	0/4	2/3	1/4	1/4	3/4	1/4	0/4		0/3	2/2	1/2	0/2	2/2	0/2
1730	0/3	0/3	1/3	1/2	1/2	2/2	2/2	1/2	0/2	0/2	1/4	2/2	2/2	2/2	1/2	0/2	0/2	1/4	1/4	2/4	1/4	2/4	0/4	0/4		1/3	2/2	2/2	0/2	1/2	0/2
1800	0/3	1/3	0/3	2/2	1/2	2/2	2/2	1/2	1/2	0/2	1/4	1/2	2/2	2/2	2/2	0/2	0/2	1/4	0/4	3/4	2/4	2/4	1/4	0/4	1/2	1/3	1/2	1/2	0/2	2/2	0/2
1830	1/3	0/3	0/3	2/2	0/2	2/2	0/2	0/2	1/2	0/2	0/4	0/2	2/2	2/2	0/2	0/2	0/2	0/4		3/4	1/4	2/4	0/4	0/4	1/2	0/3	1/2	0/2	0/2	2/2	0/2
1900	0/3	0/3	0/3	2/2	0/2	2/2	2/2	0/2	0/2	0/2	0/4	1/2	0/2	1/2	1/2	0/2	0/2	0/4		3/4	1/4	0/4	0/4	0/4	0/2	1/3	0/2	1/2	0/2	2/2	0/2
1930	0/3	0/3	0/3	0/2	0/2	2/2	1/2	0/2	0/2	0/2	0/4	1/2	0/2	0/2	0/2	0/2	0/2	0/4		1/4	2/4	2/4	0/4	0/4	0/2	0/3		0/2		0/2	
2000	0/3	0/3	0/3	0/2	0/2	0/2	1/2	0/2	0/2	0/2	0/4	0/2	0/2	1/2	0/2	0/2	0/2	0/4		0/4	2/4	2/4	0/4	0/4	0/2	1/3		0/2		0/2	
2030	0/3	0/3	0/3	0/2	0/2	0/2	0/2	1/2	0/2	0/2	0/4	0/2	0/2	1/2	1/2	0/2	0/2	1/4		1/4	2/4	1/4	0/4	0/4	0/2	1/3		0/2		0/2	
2100	0/3	0/3	0/3	1/2	0/2	1/2	1/2	1/2	1/2	0/2	0/4	0/2	1/2	0/2	0/2	0/2	0/2	1/4		0/4	2/4	1/4	0/4	0/4	0/2	0/3	0/3	0/2		0/2	
2130	0/3	0/3	0/3	0/2	0/2	0/2	1/2	1/2	1/2	0/2	1/4	0/2	0/2	0/2	0/2	0/2	0/2	0/4	0/4	0/4	1/4	1/4	0/4	0/4	0/2	1/3	1/3	0/2		0/2	
2200	0/3	0/3	0/3	0/2	0/2	0/2	2/2	1/2	0/2	0/2	1/4	0/2	0/2	1/2	0/2	0/2	1/2	0/4	0/4	0/4	1/4	1/4	0/4	0/4	0/2	1/3	2/3	0/2		0/2	
2230	2/3	0/3	0/3	0/2	0/2	2/2	2/2	0/2	0/2	0/2	1/4	0/2	0/2	1/2	0/2	0/2	0/2	0/4	0/4	0/4	1/4	0/4	0/4	0/4	0/2	1/3	0/3	0/2		0/2	
2300	1/3	0/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	0/2									0/4		1/2	0/2	0/2	0/2	0/2	0/3	1/3	0/2		0/2	
2330	0/3	0/3	0/3	0/2	0/2	0/2	0/2	0/2	0/2	0/2									0/4		0/2	0/2	0/2	0/2	0/2	0/3	0/3	0/2		1/2	
Int	Dec 1	Dec 2	Dec 3	Dec 4	Dec 5	Dec 6	Dec 7	Dec 8	Dec 9	Dec 10	Dec 11	Dec 12	Dec 13	Dec 14	Dec 15	Dec 16	Dec 17	Dec 18	Dec 19	Dec 20	Dec 21	Dec 22	Dec 23	Dec 24	Dec 25	Dec 26	Dec 27	Dec 28	Dec 29	Dec 30	Dec 31
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

M
  • Solved
VBA Transpose data from one sheet into another
Replies
9
Views
575
madi1004
M
S
  • Question Question
Create New Sheet with Specific Name Based on Variable Cell
Replies
0
Views
172
SBExcel123
S
A
  • Question Question
VBA Loop to clear contents of fiscal year rows in specific month columns
Replies
6
Views
645
kevin9999
K
R
  • Question Question
Tracking Quarterly Total Hours
Replies
1
Views
379
RandyD123
R
R
  • Solved
Help with time formula and calculating time
Replies
8
Views
467
smozgur
smozgur

Forum statistics

Threads
1,223,248
Messages
6,171,027
Members
452,374
Latest member
keccles

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top