html - How to loop VBA code to perform same actions through list of data -

ok, sorry guys... managed figure out issue regards clicking "next results" button , looping around pull same data, click "next results" button , pull same data... on , on until... , here's i'm running problem. keep getting "object required" error on "loop until" statement... i've tried number of different workarounds, switching variables, etc. still running errors. loop stop once "next results" button no longer available (which happen when there no more data pull).

here's section of vba causing problem...

dim tdelements ihtmlelementcollection dim tdelement htmltablecell dim r long  set tdelements = ie.document.getelementsbytagname("tr")  r = 0      application.wait + timevalue("00:00:03")      each tdelement in tdelements          if tdelement.classname = "searchactivityresultscontent"             sheet1.range("e1").offset(r, 0).value = tdelement.childnodes(8).innertext             r = r + 1         elseif tdelement.classname = "searchactivityresultscontent"             sheet1.range("e1").offset(r, 0).value = tdelement.childnodes(8).innertext             r = r + 1         end if     next      application.wait + timevalue("00:00:02")      set elems = ie.document.getelementsbytagname("input")     each e in elems      if e.value = "next results"         e.click         exit     end if  next e  loop until e.value <> "next results"  until not ie.busy , ie.readystate = 4    doevents loop  ie.quit 

here's html code buttons i'm referring to...

<table class="contenttable" align="center">     <tr class="contenttabletr"> <form name="scrollresultlistform" method="post"   action="/scrolltransactionslist.do" onsubmit="return isbusy();">     <input type="submit" name="action" value="next results" onmouseover="showcomment(event,'display next results')" onmouseout="hidecomment()" class="formbutton">   <input type="submit" name="action" value="last page" onmouseover="showcomment(event,'goto last result page')" onmouseout="hidecomment()" class="formbutton">  </form> </tr> </table> 

sample code push button: try use innermost tag type, such if it's inside "a" tag inside of div, use "a"

dim atag, sometags set sometags = ie.document.getelementsbytagname("a") each atag in sometags     if instr(atag.innertext, "nextresults")        atag.click        exit     end if next atag