Cargar a un ListBox de 2 columnas datos de un rango de celdas discontinuas
Tengo el siguiente código en el que estoy trabajando con el fin de que al abrir el formulario de búsqueda en el listbox ya se presenten seleccionados los items que están en la planilla/hoja. He puesto algo en el código para que no muestre celdas vacías.
With ListBox2 .ColumnCount = 2 .ColumnWidths = "20 pt; 50pt" On Error Resume Next ListBox2.Clear Set h2 = Sheets("SesionesEntrenamiento2") For i = 11 To h2.Range("K11:K25").Row If h2.Cells("K11:K25") <> "" Then n = ListBox2.ListCount ListBox2.AddItem ListBox2.list(n, 0) = h2.Cells(i, "I") ListBox2.list(n, 1) = h2.Cells(i, "K") End If Next End With End Sub
Algo está mal en el mismo porque únicamente me sale el primer registro (código y ejercicio) a pesar de que puedo tener hasta 16. Los códigos están en la columna "I" y el nombre de ejercicios en la "K".
Además si le saco el On Error Resume Next me genera error 5...
Dentro de la misma hoja tengo varias planillas que se van sucediendo de izq a der, y en el userform un combobox donde selecciono el nº de sesión que se corresponde con la planilla correspondiente, que al guardar los datos los carga a las planillas.
Me gustaria que además, fuese capaz de, según el nº de sesión que cargo en el combobox (1, 2, 3..) el listbox cargue los datos/items que pueda haber en dichas planillas, ¿cómo sería dicha estructura de código con un ejemplo de sesiones?