Excel - como iniciar al final de la linea

   
Vista:

como iniciar al final de la linea

Publicado por Rafael (3 intervenciones) el 11/02/2008 04:30:01
Buenas noches,

Agradezco el espacio y la posibilidad de resolver un problema que se ha vuelto añejo para mi; no soy programador pero me he adentrado a la programación en excel y en vba. Tengo un formulario el cual he buscado la expresión para que lo que se capture en cualquier textBox se capture en la primer fila en blanco al final de las filas con información capturada en la hoja de excel. Lo que sucede al escribir información en el textBox se pasa en la hoja de excel en la última fila con datos, sustituyendo la iniformación

Espero poder encontrar respuesta en este foro

Rafa López
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como iniciar al final de la linea

Publicado por fenix (47 intervenciones) el 11/02/2008 14:47:18
En un form pon un boton y nombralo nuevo y otro Guardar

Private Sub NUEVO_Click()
Sheets("Hoja1").Select
Range("A3").Select ' Row inicial
Rem limpia todos los TextBox
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
While ActiveCell <> "" ' Busca Row en blanco
ActiveCell.Offset(1, 0).Select
Wend
ActivarControles
DesactivarBotones
GUARDAR.Enabled = True
CANCELAR.Enabled = True
TextBox1.SetFocus
End Sub

Private Sub NUEVO_Click()
AsignaDatos
End Sub

Private Sub AsignaDatos()
Rem posiciona el dato en la celda
ActiveCell = TextBox1
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem posiciona el dato en la celda
ActiveCell = TextBox2
Rem se mueve una columna a la derecha
ActiveCell.Offset(0, 1).Select
Rem posiciona el dato en la celda
ActiveCell = TextBox3
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar