excel vba - Trying to add an element to an cell -
i have trying find code @ contents of cell g1
, search column match , select cell.
this part of longer code, bit can't find out how do.
sub searchnfind() dim searchresult range dim wb workbook dim ws worksheet set wb = activeworkbook set ws = wb.activesheet set searchresult = ws.range("a:a").find(what:=ws.range("g1").value, _ lookin:=xlvalues, _ lookat:=xlwhole, _ searchorder:=xlbyrows, _ searchdirection:=xlnext, _ matchcase:=false) if not searchresult nothing searchresult.select end if end sub
Comments
Post a Comment