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 respuesta
Respuesta de Ahrens Ruano
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
