Inputbox/Regression Problem


M

Matt

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
 
Ad

Advertisements

G

Guest

Matt,

Try:

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

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top