Buenas compañeros. Yo en esto de excel soy nuevo y estoy, ahí a ver si me entero un poco , pero estoy muy espeso, por mas que le doy vuelta. Bueno el tema es que he creado un formulario con un controle de texto, y mi intención, es que desde un botón al hacer clik
Ingrese los datos que introduzca en el control, pero incrementando una fila.
Si empiezo por el range(a1), al introducir el dato me pase a la siguiente y a sin . Bueno a ver si me podéis ayudar, o darme un poco de luz
Muchas gracias

Bueno, seguramente para lo que me parece que pretendes te resultaría mucho mejor utilizar el procedimiento CELLS(FILA, COLUMNA) con el que puedes acceder a cualquier celda excel sin tener que utilizar un rango específico.


No sé si me explico.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Si Acalanto si te explica bien, gracias.
Bueno yo he intentado con esto pero no me pasa a la siguiente fila se ve que falta algo de foco de celda ¿no?

Private Sub CommandButton1_Click()
Dim fila
fila = ActiveCell.Row
Cells(fila, 1).Value = "Hola"
fila = fila + 1
End Sub

Bien, según el código que incluyes en tu mensaje, observo que la variable FILA la declaras dentro del procedimiento. Siempre que invoques ese procedimiento la variable FILA está iniciada y por lo tanto su valor es igual a valor que le asignas de la fila activa, pero ésta no modifica su valor, y por mucho que sumes siempre te la encontrarás con ese valor inicial.

Mi consejo es que dimensiones esa variable como pública en la cabecera del código, con lo que conseguirás que sea accesible al resto de módulos y si alguno de ellos la incrementa, ese incremento se refleja en toda la aplicación.

Antes de escribir cualquier otra cosa, al comienzo del módulo, declara ésto.

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

Ya di con la tecla. Como yo sospechaba, era cuestión de activar la celda.




Private Sub CommandButton1_Click()
Dim fila As Long

fila = ActiveCell.Row
Cells(fila, 1).Value = "Hola"
fila = fila + 1
Cells(fila, 1).Activate



End Sub