Una duda sencilla pero me urge!!!!
Publicado por Veronica (1 intervención) el 31/12/2013 22:09:19
Hola a todos!!! Estoy deseperadaaaaa!
Tengo una duda que seguro para todos es super sencilla pero me está volviendo loca y me urge resolverla.
Tengo un archivo con 2 hojas, en una hay una encuesta y en la otra una base de datos con todos los items de la encuesta de modo horizontal.
Esta vez no quise crear un formulario, sino que queria trabajar directamente desde la hoja de excel y lo que quiero es llenar en la hoja de encuestas los resultados (siempre con un valor 1 reemplazando a la x) y al terminar apretar un Boton y que me pase todos esos resultados a la hoja de la Base de datos buscando primero verticalmente la primer celda vacia y luego desplazandose a la derecha.
Yo cree esto pero no hay caso (probe tambien con ActiveCell = Sheets("ENCUESTAS").Range("C5").Value .
FELIZ AÑO A TODOS Y GRACIASSSSS!
Tengo una duda que seguro para todos es super sencilla pero me está volviendo loca y me urge resolverla.
Tengo un archivo con 2 hojas, en una hay una encuesta y en la otra una base de datos con todos los items de la encuesta de modo horizontal.
Esta vez no quise crear un formulario, sino que queria trabajar directamente desde la hoja de excel y lo que quiero es llenar en la hoja de encuestas los resultados (siempre con un valor 1 reemplazando a la x) y al terminar apretar un Boton y que me pase todos esos resultados a la hoja de la Base de datos buscando primero verticalmente la primer celda vacia y luego desplazandose a la derecha.
Yo cree esto pero no hay caso (probe tambien con ActiveCell = Sheets("ENCUESTAS").Range("C5").Value .
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ENCUESTAS()
'
Worksheets("Datos").Activate
Range("A4").Select
Do While Not IsEmpty(ActiveCell)
'Bajamos una fila
ActiveCell.Offset(1, 0).Select
LoopENCUESTAS
ActiveCell = ENCUESTAS.Range("C5").Value
ActiveCell.Offset(0, 1) = ENCUESTAS.Range("E5").Value
End Sub
FELIZ AÑO A TODOS Y GRACIASSSSS!
Valora esta pregunta
0
