Escribir el valor de un textbox celda por celda...

Hola, tengo una duda, espero me puedan ayudar.

En un text box se ingresan datos, estos quiero que se guarden por ejemplo en la celda A1 de excel, al presionar aceptar, luego de presionar aceptar los datos del textbox se borran (pero no los de la celda) e ingreso nuevos datos en el texbox, que código puedo usar para que automáticamente ahora el valor no se guarde en la celda A1 sino en la A2 y así sucesivamente al ingresar nuevos datos.

Muchas Gracias.

1 respuesta

Respuesta
1

Con este código puedes hacer lo que pides:

Sub prueba()
fila = Range("a65536").End(xlUp).Row
If fila = 1 Then
Range("a1").Value = textbox1
Else
Range("a65536").End(xlUp).Offset(1, 0).Value = textbox1
End If
End Sub

recuerda finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas