Cómo introducir datos en una base de datos

[kanussha]

Quiero introducir varios datos en una hoja (una hota de tomas de datos, con ayudas instrucciones varias etc) y que luego esos datos vayan a otra hoja que sería una base de datos con los campos de los datos introducidos al principio. Mi problema es cómo saber qun que fila se introcucirán los datos; vamo como sé la fila siguiente a la última en la que se grabaron lod datos. Creo que me estoy haciendo un lío, espero que me ayudéis . gracias de antemano.

[3pies]

Puedes probar cualquiera de estas dos formas, porque ambas hacen lo mismo, que es posicionarte en la primera fila vacía que encuentran, y que será donde vas a escribir los datos:

Código:

Sub Ejemplo_1()
'Nos situamos en A1
Range("A1").Select
'Bajamos hasta la última fila adyacente, que tenda datos
Selection.End(xlDown).Select
'Pasamos a la siguiente línea, que será una línea en blanco
ActiveCell.Offset(1, 0).Select
End Sub

Código:

Sub Ejemplo_2()
'Nos situamos en A1
Range("A1").Select
'Mientras la celda en cuestión no esté vacía, que
'vaya bajando una fila, hasta que se encuentre con una vacía
Do While Not IsEmpty(ActiveCell.Offset(0, 0))
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

Salu2

[kanussha]

Gracias, muchas gracias.
3pies, te mandé un mensaje privado porque no hallaba la forma de ponerlo aquí, pero la pregunta era la misma. Otra vez gracias. Probaré las dos formas y te contaré. Hasta la próxima amigo.

[kanussha]

Necesito un poco más de ayuda.

Consigo que el dato de por ejemplo la casilla A1, lo coloque el la primera celda vacía de la primera columna. Peo además necesito colocar más datos en las celdas que se van encontrando a su derecha.
Creo que otra vez me estoy liando, voy a intentar aclararlo, con el caso real:

Como dije en el primer mensaje, tengo una hoja de recogida de datos: Nº de cliente, codigo producto1, cantidaad1, producto2, cantidad2, . . . .así hasta el producto 6.

Esos datos van a cumplimentar una "carta de porte", una especie de albarán. Lo que quiero es que una ez que lo imprima (porque acepté esos datos como buenos), los datos introducidos vayan a otra hoja en la que en cada columna se guarden dichos datos. Por cada carta de porte una línea diferente. (por eso necesitaba situarme en la siguiente fila vacía).

Gracias de nuevo.

[3pies]

Fíjate en el código anterior, que hay algo relativo a "offset".

Para moverte una columna a la derecha:

Código:

Activecell.offset(0,1).select

Para moverte doce columnas a la derecha:

Código:

Activecell.offset(0,12).select

Para moverte una fila hacia abajo:

Código:

Activecell.offset(1,0).select

Y así sucesivamente...

Como ves, se utiliza offset(X,Y), donde X es el número de fila(s) que quieres moverte, e Y el número de columna(s) que te quieres desplazar.

Salu2

[kanussha]

Gracias de nuevo amigo.