Llenado de base de datos en excel

06/12/2004 - 19:40 por Adrian | Informe spam

Quisiera saber si alguien me puede ayudar con lo siguiente

Tengo una base de datos en excel (2000 registros aprox.) los cuales son
llenados directamente en la hoja de calculo (algo laborioso debido a que
tengo que llenar en forma horizontal 140 columnas).

Para la impresion individual de estos datos, generé una forma para indicar
cada dato del registro en forma ordenada (algo asi como una solicitud de
inscripcion tradicional para alguna entidad), esto es, si quiero los datos
del registro 1, escribo este numero en alguna celda especifica y en
automatico se llena el resto de la forma con la funcion: BDEXTRAER.

Hasta aqui no tengo problemas. La solicitud es lo siguiente, alguien podría
indicarme alguna macro para hacerlo en forma inversa, esto es, llenar la
forma de impresion y con alguna macro, se llene la base de datos integrando
los datos nuevos al final de la base de datos?

Gracias esperando haberme explicado.
Adrian

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

llenado dinamico de comboBox en Hoja excel con datos de Access

Leer las respuestas

#1 Héctor Miguel

07/12/2004 - 09:14 | Informe spam

hola, Adrian !

... alguna macro para ... llenar ... la base de datos integrando los datos nuevos al final de la base de datos?

espero haber 'captado' la intencion :))
suponiendo que los datos 'se llenan' en la hoja2 [p.e.] 4 columnas SIN los titulos en 'A2:D[n]'
y que en la base de datos de 'adicionan' SIEMPRE en la 'siguiente fila libre' de la columna 'A'
en un modulo de codigo 'normal' ==Sub RegistrarDatosNuevos()
With Worksheets("Hoja2")
Range(.Range("a2"), .Range("a65536").End(xlUp)).Resize(, 4).Copy _
Worksheets("Hoja1").Range("a65536").End(xlUp).Offset(1)
End With
End Sub

saludos,
hector.

Responder a este mensaje

#2 Adrian

10/12/2004 - 00:28 | Informe spam

Hector mil gracias la pondre en práctica.
Saludos
Adrian

"Héctor Miguel" escribió en el mensaje
news:

hola, Adrian !

> ... alguna macro para ... llenar ... la base de datos integrando los

datos nuevos al final de la base de datos?

espero haber 'captado' la intencion :))
suponiendo que los datos 'se llenan' en la hoja2 [p.e.] 4 columnas SIN los

titulos en 'A2:D[n]'

y que en la base de datos de 'adicionan' SIEMPRE en la 'siguiente fila

libre' de la columna 'A'

en un modulo de codigo 'normal' ==> Sub RegistrarDatosNuevos()
With Worksheets("Hoja2")
Range(.Range("a2"), .Range("a65536").End(xlUp)).Resize(, 4).Copy _
Worksheets("Hoja1").Range("a65536").End(xlUp).Offset(1)
End With
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida