Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Matt,
Try: ActiveSheet.Range(piRange.Address), ActiveSheet.Range(xRange.Address), False, False, , _ "Matt" wrote: 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 |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Toppers,
That works perfectly! Thanks for your help. Matt |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Inputbox/Regression Problem | Excel Programming | |||
Problem seting-up Regression Macro | Excel Discussion (Misc queries) | |||
Problem with focusing on Application.Inputbox type:= 8 | Excel Programming | |||
Inputbox for Worksheet name - problem | Excel Programming | |||
InputBox Method Logic Problem | Excel Programming |