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

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney
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
287
madi1004
M
A
  • Question
VBA Loop to clear contents of fiscal year rows in specific month columns
Replies
6
Views
502
kevin9999
K
R
  • Question
Tracking Quarterly Total Hours
Replies
1
Views
281
RandyD123
R
R
  • Solved
Help with time formula and calculating time
Replies
8
Views
344
smozgur
smozgur
N
  • Question
Is there a double Vlook Up Formula or Another Formula To Perfom This Quickly?
Replies
5
Views
234
Fluff
Fluff

Forum statistics

Threads
1,215,059
Messages
6,122,917
Members
449,093
Latest member
dbomb1414

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