Copy from a textbox based on a selection from listbox

[Melani_6696]

Hello,

First time posting and a beginner on VBA but here it goes. I have created a list box based on the names of the tabs I have on an excel file but now I want to be able to add text to a tab if selected on the listbox, I havnt been able to make it work :/. Below what i tried... but i dont think is right? anybody can help out?


Private Sub CommandButton1_Click()
Dim i As Long, c As Long
Dim SheetArray() As String

With ActiveSheet.ListBoxSh
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim Preserve SheetArray(c)
texbox2.Value = SheetArray(c).Range("B16").Value
SheetArray(c) = .List(i)
c = c + 1
End If

 

[DanteAmor]

Hi and welcome to MrExcel.

I am not understanding, do you want to change the name of the sheet?
Or do you want that for the selected elements of the listbox add the data that is in the textbox?

In a simulation on your sheet, you could put the desired result.

 

[Melani_6696]

I would like to add the textbox information to an specific cell of the sheet selected in the listbox.

 

[DanteAmor]

Try this:

Private Sub CommandButton1_Click()
  Dim i As Long
  
  With ListBoxSh
    For i = 0 To .ListCount - 1
      If .Selected(i) Then
        Sheets(.List(i)).Range("B16").Value = texbox2.Value
      End If
    Next
  End With
End Sub