Excel Com Addin

Try using an InputBox() function with Type:= 8

Nick Hebb wrote:

> Try using an InputBox() function with Type:= 8

InputBox?? Make the user type the cellrange in? I was kinda hoping to
allow the user to use the mouse, select his/her cells, and detect
these...

I think you should try it...
It should create a RefEdit box that does what you want.

--
steveB

Remove "AYN" from email to respond
"Jody L. Whitlock" <tierscheiss1977@hotmail.com> wrote in message
news:ekCiZrTbFHA.348@TK2MSFTNGP14.phx.gbl...
> Nick Hebb wrote:
>
>> Try using an InputBox() function with Type:= 8
>
> InputBox?? Make the user type the cellrange in? I was kinda hoping to
> allow the user to use the mouse, select his/her cells, and detect
> these...

STEVE BELL wrote:

> I think you should try it...
> It should create a RefEdit box that does what you want.

RefEditBox???? Now I'm confused, I thought we were talking InputBoxes?
No, just kidding, sory. Anyhew, I will discuss with the team if
InputBox is acceptable....

Thanks,
Jody W.

There's a difference between: Inputbox and application.inputbox.


"Jody L. Whitlock" wrote:
>
> STEVE BELL wrote:
>
> > I think you should try it...
> > It should create a RefEdit box that does what you want.
>
> RefEditBox???? Now I'm confused, I thought we were talking InputBoxes?
> No, just kidding, sory. Anyhew, I will discuss with the team if
> InputBox is acceptable....
>
> Thanks,
> Jody W.

--

Dave Peterson

Type:= 8 means user can select a range, just as you want.

RBS


"Jody L. Whitlock" <tierscheiss1977@hotmail.com> wrote in message
news:ekCiZrTbFHA.348@TK2MSFTNGP14.phx.gbl...
> Nick Hebb wrote:
>
>> Try using an InputBox() function with Type:= 8
>
> InputBox?? Make the user type the cellrange in? I was kinda hoping to
> allow the user to use the mouse, select his/her cells, and detect
> these...

Excel has its own InputBox, separate from the standard VBA
InputBox. When you set the Type parameter to 8, the use can
select a range using the mouse. E.g.,

Dim Rng As Range
On Error Resume Next
Set Rng = Application.InputBox("Select A Range", Type:=8)
If Not Rng Is Nothing Then
MsgBox "You selected: " & Rng.Address
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Jody L. Whitlock" <tierscheiss1977@hotmail.com> wrote in message
news:ekCiZrTbFHA.348@TK2MSFTNGP14.phx.gbl...
> Nick Hebb wrote:
>
>> Try using an InputBox() function with Type:= 8
>
> InputBox?? Make the user type the cellrange in? I was kinda
> hoping to
> allow the user to use the mouse, select his/her cells, and
> detect
> these...

Chip Pearson wrote:

> Excel has its own InputBox, separate from the standard VBA
> InputBox. When you set the Type parameter to 8, the use can
> select a range using the mouse. E.g.,
>
> Dim Rng As Range
> On Error Resume Next
> Set Rng = Application.InputBox("Select A Range", Type:=8)
> If Not Rng Is Nothing Then
> MsgBox "You selected: " & Rng.Address
> End If

That worked very nicely, thank you! Now, I just need to figure out how
to loop through every cell in that range, tally up the results, then
write the tally into another cell. Is there a good site that explains
alot of this stuff?

Thanks,
jody

Dim Rng As Range
Dim cell As Range
Dim tmp
On Error Resume Next
Set Rng = Application.InputBox("Select A Range", Type:=8)
If Not Rng Is Nothing Then
MsgBox "You selected: " & Rng.Address
End If

For Each cell In Rng
If IsNumeric(cell.Value) Then
tmp = tmp + cell.Value
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jody L. Whitlock" <tierscheiss1977@hotmail.com> wrote in message
news:uaeJ$BfcFHA.2440@TK2MSFTNGP10.phx.gbl...
> Chip Pearson wrote:
>
> > Excel has its own InputBox, separate from the standard VBA
> > InputBox. When you set the Type parameter to 8, the use can
> > select a range using the mouse. E.g.,
> >
> > Dim Rng As Range
> > On Error Resume Next
> > Set Rng = Application.InputBox("Select A Range", Type:=8)
> > If Not Rng Is Nothing Then
> > MsgBox "You selected: " & Rng.Address
> > End If
>
> That worked very nicely, thank you! Now, I just need to figure out how
> to loop through every cell in that range, tally up the results, then
> write the tally into another cell. Is there a good site that explains
> alot of this stuff?
>
> Thanks,
> jody