Data analysis/manipulation in excel -
i'm new excel , might beginner question please bear me, i'm trying following: if have data in excel sheet goes -
-- running case : 03_mileage.cry ......
result : ok
-- running case : 07_option mode.cry ......
result : ok
-- running case : 10_80 columns.cry ......
result : ok
-- running case : 11_split tag.cry ......
result : ok
-- running case : 12_tqc.cry ......
result : error
what want move sheet case in 1 column , result in corresponding column. prefer using excel formulaes on vb.
thanks, abhinaya
if first sheet (sheet1) looks this:
a1: -- running case : 03_mileage.cry ...... a2: result : ok a3: -- running case : 07_option mode.cry ...... a4: result : ok a5: -- running case : 10_80 columns.cry ...... a6: result : ok a7: -- running case : 11_split tag.cry ...... a8: result : ok a9: -- running case : 12_tqc.cry ...... a10: result : error
then, on new spreadsheet ( within same workbook ) can refer range of worksheet this:
a1: =sheet1!a1 b1: =sheet1!a2 a2: =sheet1!a3 b2: =sheet1!a4 a3: =sheet1!a5 b3: =sheet1!a6 a4: =sheet1!a7 b4: =sheet1!a8 a5: =sheet1!a9 b5: =sheet1!a10
on on...
alternatively, if there lots of data in first sheet, use vba job.
option explicit sub casedesc() application.screenupdating = false dim ws1 worksheet, ws2 worksheet, lr&, i&, nxt& set ws1 = thisworkbook.sheets("sheet1") set ws2 = thisworkbook.sheets("sheet2") lr = ws1.range("a" & rows.count).end(xlup).row nxt = 1 ' if have headers change 1 2 ( or row data starts) = 1 lr if mod 2 ws2.range("a" & ws2.range("a" & rows.count).end(xlup).row + 1).value = ws1.range("a" & i).value else ws2.range("b" & ws2.range("b" & rows.count).end(xlup).row + 1).value = ws1.range("a" & i).value end if next application.screenupdating = true end sub
Comments
Post a Comment