excel - Loop based on specific cells -
hello have macro loops through cells in column g turning each cell true first , progressing down column.
here change want implement. cells f11 f21 have 1 through 4. if cells f1, f3 , f5 have 1 adjacent cells in column g1, g3 , g5 need true. move cells have 2 , 3 , 4
sub cf_macro() ' ' cf_macro macro ' sub spitvalues() dim wsinput worksheet set wsinput = worksheets("repline input") dim wssummary worksheet set wssummary = worksheets("summary") wsinput .range("g11").resize(10, 1).value = "false" dim rcell range each rcell in .range("g11").resize(10, 1) rcell.value = "true" doevents 'application.wait (now + timevalue("0:00:05")) wssummary.range("b13:b16").copy wssummary.range("z1").select selection.end(xltoleft).offset(columnoffset:=1).pastespecial xlpastevalues rcell.value = "false" next end 1 true 2 false 3 false 4 false 1 true 2 false 3 false 4 false 1 true 2 false
Comments
Post a Comment