Guardar Historico de Datos

hola, Jorge !

[debo decirte que una vez descargado] el archivo tampoco es muy... *explicativo* [que digamos] :-(

1) para las cuestiones 5-8 y 9... que *tipo* de datos se espera que introduzcan como respuesta ?

2) para el boton que tienes incrustado cuyo objetivo es *guardar/respaldar/...* la informacion capturada...
un detalle importante pudiera ser: -> *cuando* seria conveniente que se pueda [o no] ejecutar ?
a) cada vez que lo pulsen ? [independientemente de si se ha capturado/modificado/... informacion in/completa ?]
b) hasta que se hayan ingresado los 30 campos con sus 9 cuestiones ?
c) es permitido dejar cuestiones sin respuesta ? [cuantas ?... cuales ?... por que si o no algunas ?... etc.]

3) si te resulta dificil *explicar* [con palabras]... podrias poner en el archivo 3 o 4 ejemplos *ya guardados* ?
[obviamente] conservando en el cuestionario las respuestas del ultimo *registro*

saludos,
hector.

__ la consulta original __

En una hoja tengo una especie de formulario donde se introducen datos de evaluacion.
El total del mismo se dispone de la siguiente forma.
9 cuestiones.
1-4 que se encuentran en vertical tiene cuatro posibles respuestas horizontales.
5-8 solo son un total en celda tanto vertical como horizontal.
9 igual que la anterior.
... me gustaria guardar los datos en otra hoja de forma correlativa a la intruduccion del mismo
y que no se borren una vez cambie las respuestas.
Adjunto direccion con archivo porque esto es muy dificil de Explicar.
http://jorgegarciacardenas.googlepages.com/R.xls
Que macro prodria usar

Siento mi explicación.. lo intentaré. (Perdón por el anterior)
Adjunto dirección de archivo para ayudar a mi explicación.
http://jorgegarciacardenas.googlepages.com/R2.xls


Usabilidad:

El archivo está pensado para guardar todas las encuestas que mediante un
simple cuestionario, se introducen.
Las hojas:
1º en la Hoja "Resumen" se observan los datos en formato impresión que se
están introduciendo en el presente. Tras pulsar el botón "Imprimir" este se
realiza para guardarlo en papel.

2º en la Hoja " Cuestionario", Se introducen las encuestas de todos los
alumnos que han evaluado al profesor. Pueden ser 30 o los que en ese momento
se encuentren en clase. 5, 6, 7, 15..
- En el apartado Izquierdo se marcan las características de la clase con
conceptos como: Profesor, Materia, Nº de alumnos por clase.
- En el derecho los datos recopilados de las encuestas, de tal forma que
en las 9 cuestiones que se presentan se pueden responder de la siguiente
forma. El alumno número uno debe responder de la pregunta 1-5 con un
EXCELENTE, BUENO, NORMAL, REGULAR o DEFICIENTE. Mientras que desde la
pregunta 5-8 evalua al profesor con valores numéricos del 1-10. A parte de
estas, existe una última que permite exponer al alumno texto sobre la propia
clase.

Para la evaluación final solo se tienen en cuenta las celdas con el total de
evaluación que se encuentra en el archivo en las celdas AO8 y siguientes...
Porcentajes para los valores textuales (cuestiones 1-4) o promedios para las
numéricas (cuestiones 5-8)...

3º En la hoja llamada "Base Total Resultados" se registran los datos que
previamente se han introducido en los días anteriores con un resultado
mas compacto.

Por ejemplo. El día 13/09/2007 Jorge García dio clase con el resultado que
se observa en el archivo, teniendo en cuenta que hoy es 23/09/2007 y un nuevo
profesor llamado " Hector Miguel" ha dado clases y que tambien ha sido
evaluado, se necesitaría que tras introducir el cuestionario de la pestaña
"Cuestionario" y se pulsase el botón "guardar" de la misma hoja se pudiese
registrar en la pestaña llamada " Base Total" debajo del ultimo cuestionario
introducido Todos seguidos sin borrarse en esa misma pestaña el
anterior

Lo he intentado Héctor espero que aclare un poco.

Un saludo,
Jorge G

hola, Jorge !

Adjunto direccion de archivo para ayudar a mi explicacion.
http://jorgegarciacardenas.googlepages.com/R2.xls [...]

copia/pega las siguientes lineas en un modulo de codigo normal/estandar/general/...
-> y asignas la macro al objeto *shape* que tienes indicado para guardar los resultados
[OJO que los nombres de las hojas van al estilo *hard-coded* y si los nombres cambian... -???-]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Sub Guardar_Datos()
With Worksheets("base total resultados").Range("a65536").End(xlUp).Offset(1)
.Offset(0) = Date
.Offset(, 1) = Evaluate("resumen!d19")
.Offset(, 2) = Evaluate("resumen!b3")
.Offset(, 3) = Evaluate("resumen!b6")
.Offset(, 4) = Evaluate("resumen!b7")
.Offset(, 5).Resize(, 4) = Evaluate("transpose(resumen!f12:f15)/100")
.Offset(, 9).Resize(, 4) = Evaluate("transpose(resumen!g12:g15)/100")
.Offset(, 13).Resize(, 4) = Evaluate("transpose(resumen!h12:h15)/100")
.Offset(, 17).Resize(, 4) = Evaluate("transpose(resumen!i12:i15)/100")
.Offset(, 21).Resize(, 4) = Evaluate("transpose(resumen!j12:j15)/100")
.Offset(, 25).Resize(, 4) = Evaluate("transpose(resumen!f22:f25)")
.Offset(, 29) = Evaluate("resumen!f29")
End With
End Sub