Thread
:
Problem in Excel...String of Ranges?
View Single Post
#
2
Posted to microsoft.public.excel.programming
Die_Another_Day
external usenet poster
Posts: 644
Problem in Excel...String of Ranges?
Stephen, if you want to specify the type of entry in a InputBox then
you have to use Application.InputBox instead of just inputbox. See this
article from Joseph Rubin's Site:
http://www.exceltip.com/st/Decide_wh...Excel/408.html
Charles
wrote:
Is it possible to have a user select multiple cells associated with a
sample? My vba is below, but it keeps giving me an error on having the
InputBox = type 8 (range). Is this not possible? I figured it would
be fine to have the layout like this...but if someone knows of a better
way that would work it would be fine.
Sub Cmpds()
Dim Compounds() As String
Dim numCompounds As Long
Dim cnt As Long
numCompounds = InputBox("Enter the Number of Compounds")
ReDim Compounds(1 To numCompounds)
For cnt = 1 To numCompounds
Compounds(cnt) = InputBox("Please Enter Compound " & cnt)
Next
Dim CmpdRng() As String
Dim count As Long
ReDim CmpdRng(1 To numCompounds)
For count = 1 To numCompounds
CmpdRng(cnt) = InputBox("Please Select Data for Compound " &
count, Type:=8)
Next
End Sub
Reply With Quote
Die_Another_Day
View Public Profile
Find all posts by Die_Another_Day