[AccessD] OT: Excel 97 Macro

Terri, 

Try this then

Sub Macro1()
   Dim StartRow As Integer
   Dim FinishRow As Integer
   Dim MyRange As String

   StartRow = InputBox("Enter Start Row")
   FinishRow = InputBox("Enter Finish Row")

   MyRange = "A" & startrow & ":R" & finishrow

   Range(MyRange).Select
End Sub

This should do the job.....

Paul Hartland



From: "Terri Jarus" <jarus at amerinet-gpo.com>
Date: Fri 21/Mar/2003 16:33 GMT
To: <accessd at databaseadvisors.com>
Subject: Re: [AccessD] OT: Excel 97 Macro

I want the user to define the range - this will vary.  The only thing
that doesn't vary is the column range.

Thanks for your input.

>>> paul.hartland at fsmail.net 03/21/03 10:10AM >>>
Terri,

Try something like this :

Sub Macro1()
    Range("A10:R20").Select
End Sub

Paul


From: "Terri Jarus" <jarus at amerinet-gpo.com>
Date: Fri 21/Mar/2003 16:09 GMT
To: <accessd at databaseadvisors.com>
Subject: [AccessD] OT: Excel 97 Macro

Hope someone can give me some guidance or point me to some websites to
review.

I just need to write a simple macro that allows the user to select a
range of rows to sort.  The column range is always going to be the same.

For example, the user selects A10:A20 as the range of rows to sort and
the column range will always be through R.

Thanks for any help.  Let me know if more info is required.

Thanks.


__________________________________________________________________________
Freeserve AnyTime - Go online whenever you want for just £6.99 a month
for
your first 3 months, that's HALF PRICE! And then it's just £14.99 a
month
after that.

For more information visit http://www.freeserve.com/time/ or call free
on 
0800 970 8890


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


__________________________________________________________________________
Freeserve AnyTime - Go online whenever you want for just £6.99 a month for
your first 3 months, that's HALF PRICE! And then it's just £14.99 a month
after that.

For more information visit http://www.freeserve.com/time/ or call free on 
0800 970 8890