Necesito un macro para excel
Hola, necesito crear un macro. Tengo un archivo de excel con 3 hojas. En la hoja 1 cargo datos, en la 2 quedan ordenados y luego la imprimo. Necesito que en la hoja 3 me vayan almacenando los datos que voy cargando en la hoja 1. En la hoja 1 cargo datos en las celdas: A5, A8, A12, A16. Necesito que los datos de A5 se carguen en la columna A de la hoja 3, los de A8 en la columna B de la hoja 3, de A12 en la columna C de la hoja 3 y de A16 en la columna DE de la hoja 3. Desde ya se los agradezco
1 Respuesta
Respuesta de snaki Fco
1
Debería ser así
sub almacena()
sheets("Hoja1").select
valor_a = range("A5").value
valor_b = range("A8").value
valor_c = range("A12").value
valor_d = range("A16").value
sheets("Hoja3").select
' EN CASO DE TENER EXCEL 2003
range("A65536").end(Xlup).offset(1,0).value = valor_a
range("B65536").end(Xlup).offset(1,0).value = valor_b
range("C65536").end(Xlup).offset(1,0).value = valor_c
range("D65536").end(Xlup).offset(1,0).value = valor_d
' EN CASO DE TENER EXCEL 2007
range("A1048576").end(Xlup).offset(1,0).value = valor_a
range("B1048576").end(Xlup).offset(1,0).value = valor_b
range("C1048576").end(Xlup).offset(1,0).value = valor_c
range("D1048576").end(Xlup).offset(1,0).value = valor_d
end sub
sub almacena()
sheets("Hoja1").select
valor_a = range("A5").value
valor_b = range("A8").value
valor_c = range("A12").value
valor_d = range("A16").value
sheets("Hoja3").select
' EN CASO DE TENER EXCEL 2003
range("A65536").end(Xlup).offset(1,0).value = valor_a
range("B65536").end(Xlup).offset(1,0).value = valor_b
range("C65536").end(Xlup).offset(1,0).value = valor_c
range("D65536").end(Xlup).offset(1,0).value = valor_d
' EN CASO DE TENER EXCEL 2007
range("A1048576").end(Xlup).offset(1,0).value = valor_a
range("B1048576").end(Xlup).offset(1,0).value = valor_b
range("C1048576").end(Xlup).offset(1,0).value = valor_c
range("D1048576").end(Xlup).offset(1,0).value = valor_d
end sub
