Re: Celdas que guarden datos

20/04/2006 - 14:35 por satelite | Informe spam
hola hector, un ejemplo pueder se escrutinios de votos (elección). La tabla puede ser: dos columnas y 5 filas, en las filas de la primera columna tenemos nombres de personas. en La segunda columna se registrarán los votos de las personas por ronda . Lo que yo quiero, si se puede, es que los votos a medidas que se escriben se se guarden en otras celdas, (preferiblemente en otra hoja), ya que los votos deben ser borrados por cada ronda (Botón macro), por supuesto, cuando se borran los datos, los primeros deben quedar registrados en las celdas de la hoja seleccionada, luego el proceso se sigue repitiendo sucesivamente para luego totalizar la cantidad de votos que obtuvo la persona. Te agradezco tu ayuda
Saludos

satelite

Ver este tema: http://www.softwaremix.net/viewtopic-507042.htm

Enviado desde http://www.softwaremix.net

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
21/04/2006 - 03:41 | Informe spam
hola, 'anonimo/a' !

... ejemplo... escrutinios de votos (eleccion)... tabla... dos columnas y 5 filas
... filas... primera columna... nombres de personas... segunda columna se registraran los votos de las personas por ronda
... que los votos a medidas que se escriben se guarden en otras celdas, (...en otra hoja)... deben ser borrados por cada ronda
... el proceso se sigue repitiendo... para luego totalizar la cantidad de votos que obtuvo la persona.



suponiendo que en la hoja 'activa' tienes los 5 nombres en el rango 'A2:A6' y los votos se registran en 'B2:B6'...
la siguiente macro [p.e. asignada a un boton] trasladara los votos a la hoja2...
-> una fila 'por ronda' y dejando los nombres por columnas en la hoja2 en la fila1 a partir de la columna 'B'

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

en un modulo de codigo 'normal' ==Sub Registro_rondas()
Dim Sig As Byte
With Worksheets("hoja2").Range("a65536").End(xlUp).Offset(1)
.Value = "Ronda " & .Row - 1
For Sig = 1 To 5
If .Row = 2 Then .Offset(-1, Sig) = ActiveSheet.Range("a1").Offset(Sig)
.Offset(, Sig) = ActiveSheet.Range("b1").Offset(Sig)
Next
End With
ActiveSheet.Range("b2:b6").ClearContents
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida