Hi All,
I have a string separated by Chr(10) *alt enters. like below..
I am trying to get a listbox to pop up like an input box does so that I can choose which question to delete from that string. I currently have this input box but I would like it to be more rigorous so therefore that the user can Only select a question number in the string.
Question1 Question2 *etc
Many thanks,DelQ = InputBox("Which Question number would you like to delete?", , "Question")
ARowbot
!If all your troubles are solved, then so is the thread. Show this by marking it so using thread tools at the top of the page.
If I helped do this, then please show your appreciation by awarding rep points.
<------ Button for that is over there
The above will take the variable "YourStringVariable" and split it into an array called "SplitArray" before using that array to populate a listbox on Sheet1 Called Listbox1Sub Populate_Listbox() SplitArray = split(YourStringVariable,Chr(10) Sheet1.Listbox1.List = SplitArray End Sub
obviously you need to create the listbox etc first and change the above to whatever your details are but that will populate it.
If someone has helped you then please add to their Reputation
sWord = "larry" & Chr(10) & "moe" & Chr(10) & "Currly" delQ = InputBox("Which Question number would you like to delete?", "Delete Question") i = InStr(sWord, Chr(10)) Q1 = Left(sWord, i - 1) j = InStrRev(sWord, Chr(10)) Q3 = Mid(sWord, j + 1) Q2 = Mid(sWord, i + 1, j - i) Select Case delQ Case 1 MsgBox "Delete: " & Q1 Case 2 MsgBox "Delete: " & Q2 Case 3 MsgBox "Delete: " & Q3 Case Else End Select
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks