View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Matt[_36_] Matt[_36_] is offline
external usenet poster
 
Posts: 2
Default Inputbox/Regression Problem

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