Como agregar a listbox columna que muestre la posición de las hojas de excel

Alguien me podría ayudar de como puedo agregar una columna a un listbox en donde se indique la posición de cada hoja de mi libro de excel.

1

1 respuesta

Respuesta
1

Te dejo el siguiente código espero te sirva, en la primera columna del listbox te devuelve el nombre de las hojas, en la segunda el código y posición de cada hoja.

Private Sub UserForm_Initialize()
'CONFIGURO EL LISTBOX PARA EL INGRESO DE DATOS
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "80 pt;80 pt"
For Each Hoja In Sheets
    ListBox1.AddItem Hoja.Name
    ListBox1.List(ListBox1.ListCount - 1, 1) = Hoja.CodeName
Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas