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

Popular posts from this blog

node.js - Node js - Trying to send POST request, but it is not loading javascript content -

javascript - Replicate keyboard event with html button -

javascript - Web audio api 5.1 surround example not working in firefox -