Return cursor to proper place
 

Hi Everyone,
How would I phrase this ;
Find first empty row in column A, offset to first empty cell on the same row.
or find current date in column A, offset to first empty cell on the same row.
I want my cursor to return to that position after I've used a macro.
Regards
John

Return cursor to proper place
 

Application.Goto Range("A1").End(xlDown).End(xlToLeft)(1, 2)
Some more code;
http://www.ozgrid.com/VBA/ExcelRanges.htm
http://www.ozgrid.com/VBA/find-dates.htm


--
Regards
Dave Hawley
www.ozgrid.com
"John" wrote in message
...
Hi Everyone,
How would I phrase this ;
Find first empty row in column A, offset to first empty cell on the same
row.
or find current date in column A, offset to first empty cell on the same
row.
I want my cursor to return to that position after I've used a macro.
Regards
John

Return cursor to proper place
 

Oops, wrong direction

Application.Goto Range("A1").End(xlDown).End(xlToRight)(1, 2)



--
Regards
Dave Hawley
www.ozgrid.com
"John" wrote in message
...
Hi Everyone,
How would I phrase this ;
Find first empty row in column A, offset to first empty cell on the same
row.
or find current date in column A, offset to first empty cell on the same
row.
I want my cursor to return to that position after I've used a macro.
Regards
John

Return cursor to proper place
 

hi
not sure if you phrased it right.
as i see it, the first cell of the first empty row would be the first empty
cell of the empty row. so to do that....
Range("A65000").End(xlUp).Offset(1, 0).Activate
once you have found the cell, do this.
dim r as range
dim s as sheet
set s = activesheet 'mark current sheet
set r = activecell. 'mark current cell
'run macro
s.select 'return to marked sheet
r.select 'return to marked cell

regards
FSt1

"John" wrote:

Hi Everyone,
How would I phrase this ;
Find first empty row in column A, offset to first empty cell on the same row.
or find current date in column A, offset to first empty cell on the same row.
I want my cursor to return to that position after I've used a macro.
Regards
John

.

Return cursor to proper place
 

Thank you both Dave and FSt1
Regards
John
"FSt1" wrote in message
...
hi
not sure if you phrased it right.
as i see it, the first cell of the first empty row would be the first empty
cell of the empty row. so to do that....
Range("A65000").End(xlUp).Offset(1, 0).Activate
once you have found the cell, do this.
dim r as range
dim s as sheet
set s = activesheet 'mark current sheet
set r = activecell. 'mark current cell
'run macro
s.select 'return to marked sheet
r.select 'return to marked cell

regards
FSt1

"John" wrote:

Hi Everyone,
How would I phrase this ;
Find first empty row in column A, offset to first empty cell on the same row.
or find current date in column A, offset to first empty cell on the same row.
I want my cursor to return to that position after I've used a macro.
Regards
John

.