selected toggle buttons to fill in worksheet

[donny1shot]

Hi all,
I am trying to use toggle buttons to fill in part of a work sheet and I am trying to get if either one or more are selected the those captions will auto fill a particular cell. However my current code only fills in the final if please help.

 

[donny1shot]

Yes I am using a userform. and Yes all values into Range ("D4")

 

[My Aswer Is This]

I asked this question which you never answered.

Do you want "D5" to look like this:
Apollo
George
Bob
Jane
Jack

Or like
Apollo George Bob Jane Jack
And if like this do we need spaces between each word.


​

 

[My Aswer Is This]

Assuming You now have a listbox on your Userform try this''
And assuming your Listbox is name ListBox1

And since you never answered how you want the values entered this script does it two different ways

It will enter values in "D4" and "G4"

Modify the script to your needs.


One enters the values horizontally the other vertically

You can choose more then one value from the listbox

And my button that runs this script is named CommandButton1

Private Sub CommandButton1_Click()
Dim i As Long
   
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Range("D4").Value = Range("D4").Value & ListBox1.List(i) & vbNewLine
            Range("G4").Value = Range("G4").Value & ListBox1.List(i) & " "
        End If
    Next
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Alpha"
ListBox1.AddItem "Bravo"
ListBox1.AddItem "Charlie"
ListBox1.AddItem "Delta"
ListBox1.AddItem "Echo"
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

 

[donny1shot]

Assuming You now have a listbox on your Userform try this''
And assuming your Listbox is name ListBox1

And since you never answered how you want the values entered this script does it two different ways

It will enter values in "D4" and "G4"

Modify the script to your needs.


One enters the values horizontally the other vertically

You can choose more then one value from the listbox

And my button that runs this script is named CommandButton1

Private Sub CommandButton1_Click()
Dim i As Long
   
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            Range("D4").Value = Range("D4").Value & ListBox1.List(i) & vbNewLine
            Range("G4").Value = Range("G4").Value & ListBox1.List(i) & " "
        End If
    Next
End Sub
Private Sub UserForm_Initialize()
ListBox1.AddItem "Alpha"
ListBox1.AddItem "Bravo"
ListBox1.AddItem "Charlie"
ListBox1.AddItem "Delta"
ListBox1.AddItem "Echo"
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Perfect Thank you.

 

[My Aswer Is This]

Perfect Thank you.

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.