¿Cómo pasar datos de un Textbox Multilínea a una Base de Datos en Excel?

Estoy tratando de hacer una macro con un Userform que contiene un Textbox multilínea donde lo que busco es escribir códigos separados por renglón, y al hacer clic en el CommandButton mande estos datos directamente a la fila siguiente en blanco (después de la última celda llena) separados con renglones, encontré un par de ejemplos en este blog y busque adaptarlos a mis necesidades pero lo que hace el código es escribir todos los datos ingresados en el Textbox en una única celda, eso sí, separados pero lo que yo busco es que se registren en diferentes filas, ambos códigos hacen lo mismo.

1 respuesta

Respuesta
1

Private Sub BtnIngresar_Click()

Application.ScreenUpdating = False
Dim af As Long

codigos = Split(TxtIngEnt.Value, vbCrLf)
af = Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Entradas").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(UBound(codigos) + 1, 1) = Application.Transpose(codigos)

End Sub

Funciona perfectamente.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas