Forums Últimos mensajes - Powered by IBM
 

Formulario para entrada de datos

18/01/2008 - 12:00 por José Rafael | Informe spam
Necesito aprovechar algun ejemplo o información para introducir datos en 100
columnas de datos que se encuentren a la vista en una sola pantalla (hoja de
cálculo o UseForm y que una vez introducidos y/o modificados se ingresen en
la base de datos (100 columnas) para asi introducir alrededor de 1000
clientes y conseguir una base de datos (en excel por favor) para luego
realizar innumerables análisis de los datos.
Saludos y gracias
José Rafael de Valencia (España)
 

Leer las respuestas

#1 Héctor Miguel
18/01/2008 - 20:55 | Informe spam
hola, José Rafael !

Necesito aprovechar algun ejemplo o información para introducir datos en 100 columnas de datos
que se encuentren a la vista en una sola pantalla (hoja de calculo o UseForm) y que una vez introducidos
y/o modificados se ingresen en la base de datos (100 columnas) para asi introducir alrededor de 1000 clientes
y conseguir una base de datos (en excel por favor) para luego realizar innumerables análisis de los datos...



asi... a "bote-pronto"... prueba un userform con 100 textboxes (TextBox1...TextBox100) mismo orden de las 100 columnas
colocas "estrategicamente" controles Labels sobre los mismos (indicando concepto o columna)
mas un control CommandButton y algo de codigo en el evento '_click' del boton en el modulo de codigo del formulario
(p.e.) asumiendo que las 100 columnas inician en la columna A y que NO hay columnas intermedias sin datos
y que la columna A SIEMPRE tendra datos sin celdas vacias de por medio...

private sub commandbutton1_click()
dim n as byte
with worksheets("tu hoja base de datos").range("a65536").end(xlup).offset(1)
for n = 1 to 100
.offset(, n - 1) = controls("textbox" & n)
next
end with
end sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares