Llenar combobox con nombre de hojas

Hola buenas tardes mi pregunta es quiero abrir un archivo desde un command button y un textboxt al abrirlo como hago para llenar un combobox con los nombres de las hojas que tiene el archivo que abrí *.xls gracias

1 respuesta

Respuesta
1
Debería ser con un código como este:
x = ThisWorkbook.Sheets.Count
For i = 1 To x
      ComboBox1.AddItem (Sheets(i).Name)
Next i

Desde luego, esta es una forma de hacerlo, puedes encontrar otras.
Gracias tavopz pero disculpa mi ignorancia donde debo pegar este código ya que lo puse en el private sub combobox1_change y no funciono y tampoco en el userform.click
Gracias
Debería ser:
Private Sub UserForm_Initialize()
    x = ThisWorkbook.Sheets.Count
        For i = 1 To x
        ComboBox1.AddItem (Sheets(i).Name)
    Next i
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas