Fred Antrobus wrote:

> The cursor is lcated at some point on the sheet.

ActiveCell.Address will return "$Z$26" if that
happens to be where you are sitting.

> I want to select the quadrant of cells from
> whereever the current active cell is to cell A1
> This will change everytime.

Fred, I think this will do what you want:

Range("A1:" & ActiveCell.Address).Select

When I tested this, it selected everything from
A1 down to whereever the cursor happened
to be.

Also try this:
MsgBox ActiveCell.Address

Let me know if this does the trick.  If not, I've
got some really good reference material here.

Scott
====

> Could you simply use:
>
> (where oExcel is the name of the Excel VBA object)
>   oExcel.Range("A1:Z26").Select
>   ...and so on...
>
> Or, do you happen to be at position "Z26" and you
> don't know the specific position of the cursor?  Are
> you trying to figure out where the cursor ended up?
> If so, you should be able to track that as you move
> along in the spreadsheet.
>
> Scott
> ====
> Fred Antrobus wrote:
>
> > I would appreciate a snippet of code if anyone knows the solution to this
> > problem.
> >
> > I have been working on exporting data from excel to R:Base
> > I have it completed excpet for one piece.
> >
> > I have poistioned the cursor in a spreadsheet
> > I need to select the area between where ever the cursor is currently
> located
> > in the sheet and cell A1
> >
> > Thanks,
> > Fred Antrobus
> > [EMAIL PROTECTED]
> > (425) 235-7796
> >
> >   ------------------------------------------------------------------------
> >                   Name: winmail.dat
> >    winmail.dat    Type: application/ms-tnef
> >               Encoding: base64
>
> --
>
> Scott
> ====
> Scott J. Salisbury
> Matrix Data Systems / The R:Street Journal
> 5114 Point Fosdick Drive NW, Suite E-272
> Gig Harbor, WA 98335-1733
>
> mailto:[EMAIL PROTECTED]
> mailto:[EMAIL PROTECTED]
> http://www.MatrixDataSystems.Com
> http://www.SeaNet.Com/~sjs
> Direct Line: 206-423-7679
> Toll Free: 888-386-5040
> Seattle: 206-448-7975
> Tacoma: 253-444-5166
> Fax: 305-425-0491
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: UNSUBSCRIBE rbase-l

--


Scott
====
Scott J. Salisbury
Matrix Data Systems / The R:Street Journal
5114 Point Fosdick Drive NW, Suite E-272
Gig Harbor, WA 98335-1733

mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
http://www.MatrixDataSystems.Com
http://www.SeaNet.Com/~sjs
Direct Line: 206-423-7679
Toll Free: 888-386-5040
Seattle: 206-448-7975
Tacoma: 253-444-5166
Fax: 305-425-0491


================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l

Reply via email to