Re: Celdas que guarden datos

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