excel - Paste cells in specific row based on column header -
i not programmer appreciate help!
i trying take range of cells, , paste them in part of spread sheet in correct column want (the column change later that's why want identify column paste cells right row)
example, take cells (a2:a10) , paste them "ttm" column d4:d12... have put text ttm d1... later, ttm may become e1, in case a2:a10 cells need moved e4:e12...
thanks lot!
the following function can used want. need explain trigger code , if want search other 'active sheet'
function move_cells() dim icols integer dim integer dim strkey string dim inewcol integer strkey = "ttm" ' set whatever label want search row 1 for. icols = activesheet.usedrange.columns.count ' count of used columns = 1 icols ' find column containing 'ttm' if lcase(cells(1, i).text) = lcase(strkey) ' ignore case incase somebody.... inewcol = ' save col # containing search keyword exit end if next 'activesheet.range("a2:a10").copy ' copy 'activesheet.cells(2, inewcol).pastespecial xlpastevalues ' paste new location 'application.cutcopymode = false ' try following instead of previous copy/paste range("a2:a10").select selection.copy cells(2, inewcol).select activesheet.paste end function
Comments
Post a Comment