Cargar datos en una tabla de datos de excel con vba

Mi código me da un fallo al rato de estar usando la aplicación,

¿Qué mensaje de error te aparece?

¿Y en cuál fila del código se detiene?

Es que no me genera ningún mensaje, solo que la tabla no aumenta tal y como se muestra en la foto.

Primero, debes ampliar la tabla hasta el último registro con datos.

Segundo, en Opciones de excel, Revisión, Opciones de autocorrección, Autoformato mientras escribe, debe estar activa la casilla : Incluir nuevas filas y columnas en la tabla.

Si lo anterior no funciona, entonces antes de poner el registro, debes incluir en la macro, el código para aumentar la tabla en un registro, en el registro nuevo de la tabla agregas los datos.

Así esta puesto en las opciones del excel.

¿Puedes decirme como es el código?

Gracias

¿Cómo se llama la tabla?

Tabla4

Prueba así:

Private Sub btn_guardar_Click()
  Dim final As Long, lobj As ListObject, i As Long, j As Long
  Set lobj = Hoja7.ListObjects("Tabla4")
  With ListBox1
    For i = 0 To .ListCount - 1
      lobj.ListRows.Add , 1
      final = lobj.ListRows.Count
      For j = 0 To 5
        lobj.DataBodyRange(final, j + 1) = .List(i, j)
      Next
    Next
    .Clear
  End With
  cbo_equipo.SetFocus
End Sub

¡Gracias!

Un genio, gracias mil, la verdad funciona perfecto, incluso me hace que vaya más rápido el código

Excelente, se queda corto¡

Me agrada ayudarte ¡G racias! Por comentar.

Buenas dante

Hace un poco me solucionaste el problema de que la tabla no me crecía al inserta filas.

Ahora cambie el listbox1 por un listview y vuelve a ocurrirme, e intentado modificar la tabla pero no consigo dar con el objeto correcto.

Te adjunto el código del listview y el código que me diste.

sl2

Private Sub btn_guardar_Click()
Dim j As Integer
Dim i As Integer
Dim Rango As Range
Dim NuevaFila As Integer
If Me.ListView1.ListItems.Count = 0 Then MsgBox "No hay registros": Exit Sub
 j = Hoja7.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
       For i = 1 To ListView1.ListItems.Count
            If ListView1.ListItems(i).Checked Then
                Hoja7.Cells(j, 1) = ListView1.ListItems(i).Text
                Hoja7.Cells(j, 2) = ListView1.ListItems(i).ListSubItems(1).Text
                Hoja7.Cells(j, 3) = ListView1.ListItems(i).ListSubItems(2).Text
                Hoja7.Cells(j, 4) = ListView1.ListItems(i).ListSubItems(3).Text
                Hoja7.Cells(j, 5) = ListView1.ListItems(i).ListSubItems(4).Text
                Hoja7.Cells(j, 6) = ListView1.ListItems(i).ListSubItems(5).Text
                Hoja7.Cells(j, 7) = ListView1.ListItems(i).ListSubItems(5).Text
                j = j + 1
            End If
       Next i
MsgBox "Registros dados de alta correctamente.", vbInformation, "EXCELeINFO"
Unload Me
'  Dim final As Long, lobj As ListObject, i As Long, j As Long
'  Set lobj = Hoja7.ListObjects("Tabla4")
'  With ListView1
'    For i = 0 To .ListCount - 1
'      lobj.ListRows.Add , 1
'      final = lobj.ListRows.Count
'      For j = 0 To 5
'        lobj.DataBodyRange(final, j + 1) = .List(i, j)
'      Next
'    Next
'    .Clear
'  End With
' Unload Me
' frm_parte.Show
End Sub