function - Find keyword, replace, and loop -
i wrote script find keyword, "s", , perform formula in column 3 columns over. far finds first instance of "s". want continue search , perform formula each line in "s" exists. can me loop below code? much.
worksheets("sheet2").activate dim c range set c = range("b:b").find _ (what:="s", lookin:=xlformulas, _ lookat:=xlwhole, searchorder:=xlbyrows, searchdirection:=xlnext, _ matchcase:=false, searchformat:=false) if not c nothing c.offset(0, 3) = c.offset(0, 1) * c.offset(0, 2) * 0.05
Comments
Post a Comment