Formulario para entrada de datos

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.

Hola Héctor:
Como sería este código para una hoja de calculo "Introduccion de datos" en
el libro "Base de interesados" en cuya columna E, rango E2:E132 , estuvierán
los datos a introducir por cada cliente ¿ y si en vez de una entrada
nueva fuera una modificación de datos de un cliente ya registrado y con
código en la columna A?... saludos
José Rafael

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

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.

hola, Jose !

Como seria este codigo para una hoja de calculo "Introduccion de datos" en el libro "Base de interesados"
en cuya columna E, rango E2:E132 , estuvieran los datos a introducir por cada cliente...
y si en vez de una entrada nueva fuera una modificacion de datos de un cliente ya registrado y con codigo en la columna A?

si suponemos que las 131 filas [E2:E132] de la hoja "introduccion de datos"...
se corresponden con 131 columnas [A:EA] de una hoja llamada "base de datos"
y que el codigo del cliente esta en la celda [E2] de "introduccion..." y en la columna A de "base..." -???-

prueba con algo +/- como la siguiente macro (que podrias asignar a algun objeto o... ???)

sub traslada_datos()
dim celda as range
with worksheets("base de datos")
on error resume next
set celda = .cells.find(range("e2"), .range("a1"))
on error goto 0
if celda is nothing then set celda = .range("a65536").end(xlup).offset(1)
end with
with range("e2:e132")
celda.resize(, .rows.count).value = application.transpose(.value)
end with
set celda = nothing
end sub

OJO: no esta probado (estoy escribiendo de memoria por "andar fuera de mi entorno") :))

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

__ las consultas anteriores __

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

Hola Héctor:
Como decia en el post siguiente, he tomado parte del código que me
facilitaste y he añadido y quitado algunas cosas que no habian estado bien
explicadas por mi.
Saludos
y gracias
José Rafael

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

hola, Jose !

Como seria este codigo para una hoja de calculo "Introduccion de datos"
en el libro "Base de interesados"
en cuya columna E, rango E2:E132 , estuvieran los datos a introducir por
cada cliente...
y si en vez de una entrada nueva fuera una modificacion de datos de un
cliente ya registrado y con codigo en la columna A?

si suponemos que las 131 filas [E2:E132] de la hoja "introduccion de
datos"...
se corresponden con 131 columnas [A:EA] de una hoja llamada "base de
datos"
y que el codigo del cliente esta en la celda [E2] de "introduccion..." y
en la columna A de "base..." -???-

prueba con algo +/- como la siguiente macro (que podrias asignar a algun
objeto o... ???)

sub traslada_datos()
dim celda as range
with worksheets("base de datos")
on error resume next
set celda = .cells.find(range("e2"), .range("a1"))
on error goto 0
if celda is nothing then set celda =
.range("a65536").end(xlup).offset(1)
end with
with range("e2:e132")
celda.resize(, .rows.count).value = application.transpose(.value)
end with
set celda = nothing
end sub

OJO: no esta probado (estoy escribiendo de memoria por "andar fuera de mi
entorno") :))

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

__ las consultas anteriores __

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