Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / February 2006

Tip: Looking for answers? Try searching our database.

Inputbox/Regression Problem

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Matt - 20 Feb 2006 19:57 GMT
Hi,

I'm a VBA novice and have found this group helpful in my learning, but
I'm stuck with a particular piece of coding.  What I'm trying to do is
allow the user to select a Y and X range using an inputbox, which will
then be used for a regression.  Here's the problematic part of the
macro:

Dim piRange As Range
   On Error Resume Next
   Set piRange = Application.InputBox(prompt:="Select pi range",
Title:="SELECT STANDARDISED RESIDUALS", Type:=8)
   If Not piRange Is Nothing Then
   MsgBox "You selected: " & piRange.Address
   Else
   MsgBox "pi range is undefined because you cancelled."
   End If

   Dim xRange As Range
   On Error Resume Next
   Set xRange = Application.InputBox(prompt:="Select x range with
mouse", Title:="SELECT INDEPENDENT VARIABLES", Type:=8)
   If Not xRange Is Nothing Then
   MsgBox "You selected: " & xRange.Address
   Else
   MsgBox "x range is undefined because you cancelled."
   End If

   Application.Run "ATPVBAEN.XLA!Regress", _
   ActiveSheet.Range(piRange), ActiveSheet.Range(xRange), False,
False, , _
   ActiveSheet.Range("$AF$1"), False, False, False, False, , False

Thanks in advance,

Matt
Toppers - 20 Feb 2006 20:08 GMT
Matt,

          Try:

ActiveSheet.Range(piRange.Address), ActiveSheet.Range(xRange.Address),
False, False, , _

> Hi,
>
[quoted text clipped - 32 lines]
>
> Matt
Matt - 20 Feb 2006 20:15 GMT
Toppers,

That works perfectly!  Thanks for your help.

Matt
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.