Pasar las columnas seleccionadas de un listbox a rangos discontinuos de celdas
Tengo el siguiente código para pasar los items (columna 2) de un listbox a una plantilla en una hoja de excel:
Set h2 = Sheets("SesionesEntrenamiento2")
j = 11
Sesión = cmbSesión.Text
Select Case Sesión
Case "Sesión 1" '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>SESIÓN 1
If cmbSesión = Empty Then
MsgBox "Se debe seleccionar un día de sesión"
Exit Sub
Else
For i = 0 To ListBox2.ListCount - 1
h2.Range("K" & j) = ListBox2.List(i, 1)
j = j + 1
Next
End If
End Select
MsgBox "Lista de ejercicios guardada satisfactoriamente", vbInformation, strTituloEl problema me surge ahora que he añadido nuevos items al listbox y quiero pasarlos a la plantilla y son columnas discontinuas
He modificado el código al siguiente pero no me funciona, únicamente me carga el primer item en todas sus columnas, pero los siguientes 2,3,4 o los que sean, no los carga:
Set h2 = Sheets("SesionesEntrenamiento2")
j = 11
Sesión = cmbSesión.Text
Select Case Sesión
Case "Sesión 1" '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>SESIÓN 1
If cmbSesión = Empty Then
MsgBox "Se debe seleccionar un día de sesión"
Exit Sub
Else
For i = 0 To ListBox2.ListCount - 1
h2.Range("K" & j) = ListBox2.List(i, 1)
h2.Range("O" & j) = ListBox2.List(i, 2)
h2.Range("Q" & j) = ListBox2.List(i, 3)
h2.Range("S" & j) = ListBox2.List(i, 4)
h2.Range("U" & j) = ListBox2.List(i, 5)
j = j + 1
j = j + 5
j = j + 7
j = j + 9
j = j + 11
Next
End If
End Select
MsgBox "Lista de ejercicios guardada satisfactoriamente", vbInformation, strTitulo
