hi,

I have the following, which selects a range of cells across an Excel row:

obj.Sheets("Input").Visible = True
obj.Sheets("Input").Activate

obj.range("a265:m265").select


I need to know how I can simulate pressing the SHIFT, END, DOWN ARROW keys
to select down to the last row of entered data.

Thanks in advance,
geebee

try this one:

Range(Selection, Selection.End(xlDown)).Select

pls do rate

"geebee" wrote:

hi,

I have the following, which selects a range of cells across an Excel row:

obj.Sheets("Input").Visible = True
obj.Sheets("Input").Activate

obj.range("a265:m265").select


I need to know how I can simulate pressing the SHIFT, END, DOWN ARROW keys
to select down to the last row of entered data.

Thanks in advance,
geebee

hi,

here is what I have now. This is the code behind a button in ms access:

obj.Range("A265").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A265:m265").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents

I am getting an error message that says runtime error 424: object required.

Im not sure what to do.

Thanks in advance,
geebee


"Muhammed Rafeek M" wrote:

try this one:

Range(Selection, Selection.End(xlDown)).Select

pls do rate

"geebee" wrote:

hi,

I have the following, which selects a range of cells across an Excel row:

obj.Sheets("Input").Visible = True
obj.Sheets("Input").Activate

obj.range("a265:m265").select


I need to know how I can simulate pressing the SHIFT, END, DOWN ARROW keys
to select down to the last row of entered data.

Thanks in advance,
geebee