{"text_format":"1","workbook":"xlsx","n_sheets":1,"sheets":["Sheet1"],"not_rendered":{"charts":0,"images":0,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Sheet1","index":0,"n_rows":45,"n_cols":23,"rows_kept":45,"cut":false,"hidden":false,"merged":[]}
[]
[]
[]
[]
[null,"How this macro works ?"]
[]
[null,"1 )   Select cell H7 in this sheet ( yellow cell )",null,null,null,null,null,"ABC-123","Natural","Red","Green"]
[null,"2 )   push ALT + F8",null,null,null,null,null,"DEF-456","Gray","White","Black","Navy Blue"]
[null,"3 )   select from opening window: ColumnsToRows",null,null,null,null,null,"GHI-789","Blue","Natural","Yellow"]
[null,"4 )   push Run-button",null,null,null,null,null,"JKL-012","Color 1","Color 2","Color 3","Color 4","Color 5","Color 6","Color 7","Color 8","Color 9","Color 10","Color 11","Color 12","Color 13","Color 14","Color 15"]
[null,"5 )   look what happen",null,null,null,null,null,"MNO-345","Blue","White","Red"]
[null,null,null,null,null,null,null,"PQR-678","Gray"]
[]
[null,"PHASE 1"]
[null,"Macro checks 14 cells on the right side of activecell"]
[null,"if any of those cells contains something, the"]
[null,"content will be copied one row below and"]
[null,"one column to right from active cell."]
[null,"New row will be added for every new color that"]
[null,"product have."]
[]
[]
[null,"PHASE 2"]
[null,"After one product has been handled. Macro "]
[null,"activates the first cell containing next"]
[null,"products product code and repeats phase 1"]
[null,"actions for this current product"]
[]
[]
[null,"PHASE 3"]
[null,"When macro meets a cell which has no value at all,"]
[null,"it stops and all the products has been taken care of."]
[]
[]
[null,"Notice, that macro only copies color information "]
[null,"from right. You can delete those columns after"]
[null,"you have noticed that all information was copied."]
[null,"If you want that cells right to product code number"]
[null,"will be emptyed, then remove first comment - mark"]
[null,"from the code at row :"]
[null,"            'ActiveCell.Offset(0, X).Value = \"\"  ' This emptyes cells from right ( 14 columns ) after copying"]
[]
[]
[null,"If you want check out the code, push ALT + F11 to see "]
[null,"the code in this workbook."]