Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

ADVANCE TO TOP OF NEXT COLUMN

Status
Not open for further replies.

ratman

Technical User
Jun 26, 2000
143
US
ALL I NEED IS FOR IT TO ADVANCE FROM THE END OF LAST CELL IN COLUMN RANGE TO THE THE TOP OF THE NEXT COLUMN.<br>I WROTE THIS SCRIPT TO SELECT MY RANGE AND IT SELECTS FINE BUT AND WILL PROBABLY END LOOP AT T46 BUT IT BLOWS RIGHT PAST THE LAST CELL IN THE 1ST COLUMN&nbsp;&nbsp;H<br><br>[H1].Select<br>&nbsp;nextlastrow = 1<br>ReallyLastRow = [H1].SpecialCells(xlCellTypeLastCell).Row<br>Range(&quot;H&quot; & nextlastrow & &quot;:T&quot; & ReallyLastRow).Select<br>[H1].Select<br><br>readcell:<br>Do Until ActiveCell.Range(&quot;$T$&quot; & ReallyLastRow) = ActiveCell.Address<br><br>THE REST IS IF STATEMENTS AND ACTIONS ..... READING EACH CELL FROM TOP TO BOTTOM THEN ACROSS.
 
Again....I love answering my own questions...heheheh<br><br>ActiveCell.Offset(0, 1).Select<br>ActiveCell.EntireColumn.Select<br>ActiveCell.Select
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top