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

Popular posts from this blog

c++ - Creating new partition disk winapi -

Android Prevent Bluetooth Pairing Dialog -

VBA function to include CDATA -