Visual Basic para Aplicaciones - Copiar información en otra hoja a partir de un botón GRABAR

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 12
Ha aumentado su posición en 9 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Copiar información en otra hoja a partir de un botón GRABAR

Publicado por luigui (7 intervenciones) el 01/11/2019 05:02:28
Buen día.
presento el siguiente problema y agradecería compartan sus conocimientos conmigo:
Tengo una Hoja de excel, que corresponde a un cuestionario, el cual cuando se termine de llenar y dar en el botón grabar este debe guardar los datos trabajos, y luego volver a a dejar la lista de opciones disponibles para elegir nuevamente.

la particularidad es que las opciones están en base a una lista de datos y cada ves que se de guardar este debe ir almacenando la información N veces.

Gracias de antemano.

Captura
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Copiar información en otra hoja a partir de un botón GRABAR

Publicado por Antoni Masana (498 intervenciones) el 01/11/2019 17:02:32
¿Donde se debe guardar?
¿Que quiere decir que se debe almacenar N veces, que debe copiar los datos de la hoja 25 veces, o 30 o 100?

No hay ni siquiera un intento de hacer una macro, ni un diseño de salida ni un mínimo esfuerzo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 12
Ha aumentado su posición en 9 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Copiar información en otra hoja a partir de un botón GRABAR

Publicado por luigui (7 intervenciones) el 01/11/2019 22:09:15
Esta mal redactado al decir N veces, sin embargo lo que busco hacer es que cada ves que le de al botón grabar guarde los registros y los vaya almacenando.

No hay ni siquiera un intento de hacer una macro, ni un diseño de salida ni un mínimo esfuerzo.
He intentado grabar como debería funcionar cuando le de a botón grabar, pero tengo problemas en copiar las respuestas de la lista y por ello no deja grabar, estoy buscando seguir aprendiendo mas de macros, también por ello es el apoyo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 11
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Copiar información en otra hoja a partir de un botón GRABAR

Publicado por CoquitoPE (79 intervenciones) el 04/11/2019 00:56:18
Luigi un saludo...
En tu comunicación estoy considerando lo siguiente:
1.- Tienes un único cuestionario que no cambia
2.- Tienes respuestas en una única celda. (conocemos su ubicación)... cells(fila1,col2)...cells(nfila,ncol)...etc
3.- La hoja donde esta el cuestionario se llama "Hoja1"...
4.- Nombramos o agregamos otra hoja llamada "Hoja2" o "Guardar"
5.- En la hoja "Hoja2" o "Guardar"... se almacenaran las respuestas... en las columnas seguidas.
6.- No tendremos ningun control de fechas,,, repeticiones etc...
7.- Podemos mantener las preguntas en la fila 4 de la "Hoja2" o "Guardar"
el codigo haciendo doble click en el Boton "GRABAR"

1
2
3
4
5
6
7
8
9
10
11
12
13
sub Guardar()
dim sinFila as single
dim intColu as integer
sinfila=5
while sinfila<>""          ' buscando ultimo disponible
    sinfila=sinfila + 1
wend
intcolu=1
worksheets("Guardar").cells(sinfila,intcolu)=cells(3,5) : cells(3,5)=""    '  donde cells(3,5) es nombre
intcolu=intcolu+1; worksheets("Guardar").cells(sinfila,intcolu)=cells(4,5) : cells(4,5)=""    '  donde cells(4,5) es fecha
intcolu=intcolu+1; worksheets("Guardar").cells(sinfila,intcolu)=cells(8,1) : cells(8,1)=""    '  donde cells(8,1) es primera pregunta
'.... todas las preguntas
end sub

... deseo que te oriente o resuelva...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 11
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Copiar información en otra hoja a partir de un botón GRABAR

Publicado por CoquitoPE (79 intervenciones) el 04/11/2019 15:30:15
Perdon... recien vi horrores...
1
2
3
4
5
6
'......
sinfila=5
while cells(sinfila,1)<>""
      sinfila=sinfila+1
wend
'........
'rectificar please
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Dirk
Val: 50
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Copiar información en otra hoja a partir de un botón GRABAR

Publicado por Dirk (20 intervenciones) el 07/11/2019 16:09:49
Hola Luigui, puedes usar Google Form? es tan fácil de usar...... y te guarda las respuestas en archivos tabulados..... Entra al Drive > botón +Nuevo > Opción Mas > Formularios de Google no sin antes ver un par de videos.... de verdad que es muy fácil para hacer encuestas....


Salu2
Dirk
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar