numerar filas en una tabla usando formulario

[vecodis]

Buenas tardes, tengo una macro copiada de un ejemplo que funciona perfectamente. Usa un formulario para capturar datos a una hoja. El problema está cuando convierto el rango normal en una tabla. Aquí ya no me numera la columna A y se desplaza al final de la tabla.

Agradecería me echasen una mano. Adjunto envío archivo.

prueba.xlsm

[Abraham Valencia]

Hola

Es normal ya que un rango convertido en tabla se vuelve otro tipo de objeto y tiene en general su propia forma de insertar datos, por eso lo mejor es que decidas si prefieres usar un rango de datos o una tabla, decide eso primero. Saludos. 

[vecodis]

Hola, quiero que sea una tabla, aunque la hoja del archivo está como rango. 

Gracias. 

[JSDJSD]

Cambia tu código del botón  Grabar datos por este, a ver si es lo que buscas

Private Sub CommandButton1_Click()

    Dim ufh24 As Long
    
    With Hoja24
        ufh24 = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Cells(ufh24, 1) = Application.WorksheetFunction.Max(.Columns(1)) + 1
        .Cells(ufh24, 2) = CDate(TextBox3)
        .Cells(ufh24, 3) = ComboBox2
        .Cells(ufh24, 4) = ComboBox3
        .Cells(ufh24, 6) = TextBox4
        .Cells(ufh24, 7) = CDbl(TextBox1)
        .Cells(ufh24, 8) = CDbl(ComboBox4)
        .Cells(ufh24, 9) = CDbl(ComboBox5)
        .Cells(ufh24, 10) = ComboBox6
        .Cells(ufh24, 11) = CDbl(TextBox2)
    End With
    
    Limpiar
    
End Sub

 

[JSDJSD]

[vecodis]

 Perfecto!!!  TEMA RESUELTO

Muchas gracias por vuestra dedicación.

Saludos.