¿Cómo puedo hacer que un número que ingreso en una hoja automáticamente pase a otra hoja?

Hola Fernando, como puedo hacer que un número que ingreso en una hoja, (en una celda fija que se utilizaría solo de ingresos) automáticamente pase a otra hoja y quede registrada, asociada a un nombre dentro de esta otra hoja.
Agradecido de antemano
Vitoco

1 Respuesta

Respuesta
1
Para esta tarea deberás recurrir a una pequeña macro, toda vez que no existe procedimiento normal de MS Excel para lograrlo.
Deberías utilizar una macro que, por ejemplo, copie el contenido de una celda y lo pegue -como valor- en la hoja/celda de destino que le indiques.
A este fin, activa el editor de Visual Basic (presiona Alt+F11), inserta un nuevo módulo ("Insertar", "Módulo") y pega el siguiente código:
Sub Pegaval()
EnHoja = "Hoja1"
EnRango = "H5"
Selection. Copy
Sheets(EnHoja). Range(EnRango). PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub
Al inicio del código verás dos variables donde le podrás indicar en qué hoja y que celda de ella recibirán el valor del la celda que tengas seleccionada al ejecutar la macro Pegaval.
Cierra el editor de Visual Basic y graba el archivo.
Espero que esto te ayude.
Un abrazo!
Fernando
Me arroja un error '9'.
Subíndice fuera de intervalo. Al depurar marca en amarillo la siguiente frase:
Sheets(EnHoja).Range(EnRango).PasteSpecial (xlPasteValues)
¿Habrá algún error de tipeo?
Gracias
A modo de ejemplo, puse dentro de la macro:
EnHoja = "Hoja1"
EnRango = "H5"
Asegúrate que estas son las direcciones donde quieres que el valor de la celda activa sea pegado.
Si no reemplaza Hoja1 por el nombre de la hoja donde deberán ir los datos (obviamente, tal hoja debe existir para que no te salte el error que mencionaste) y, de la misma manera con la dirección de la celda de destino.
Si ambas direcciones son correctas, el contenido de la celda seleccionada al momento de ejecutar la macro será pegado en tal celda de la hoja indicada. La celda de destino no debe estar protegida, claro está.
Prueba con esto y dime.
Un abrazo!
Fernando
Ahora, como puedo hacer que el numero se registre como un listado, ya que solo se graba en una celda especifica, en este caso H5, ¿pero es posible que se lleve una especie de histórico?.
OK, aquí estaría una macro modificada para que agregue a continuación de la celda ocupada los distintos valores que envíes usando la macro.
Voy a suponer que la primer celda (H5) es para un titulo y luego se irán agregando datos debajo de ella, fila a fila.
Sub Pegaval()
EnHoja = "Hoja1"
EnRango = "H5"
Selection.Copy
With Sheets(EnHoja).Range(EnRango)
If .End(xlDown).Row > 50000 Then
.Offset(1).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Else
.End(xlDown).Offset(1).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If
End With
End Sub
Recuerda que debes cambiar el nombre de al hoja y de la celda donde quieres que esto ocurra y que tal celda debe tener un titulo o algo así.
Espero haberte satisfecho.
Un abrazo!
Fernando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
1 respuesta

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

Macro para pegar información de un libro a otro

Esta pregunta la hice hace poco pero buscando y buscando vi que respondes bien a este tipo de preguntas (espero que me puedas ayudar). Yo conseguí el siguiente código, pero no hace lo que necesito: Sub Guardar() Application.ScreenUpdating = False...
1 respuesta

Macro para pasar de renglón

Tengo un archivo de excel con más de 200 registros en la primer hoja, sin embargo, de cada registro, tengo que sacar en una hoja nueva 265 subregistros de un solo registro. Dicha macro ya la realice, el caso que lo que quiero es de que al apretarle...
1 respuesta

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Activar la hoja con la macro sin indicar el nombre

Estoy haciendo un libro con 3 hojas iguales. En cada hoja tengo 6 autoformas, cada una de ellas con una macro asignada diferente entre las de la misma hoja pero iguales de una hoja a otra. La cuestión es que la macro copia un rango, va a una cuarta...
1 respuesta

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Activar una macro en excel con el enter

Estoy creando una macro en excel 2007... Primero grabe la macro donde solo ingreso el dato código y se autocompletan los demás campos con los datos de otra hoja por medio de la fórmula BuscarV ... Pero ahora necesito que al ingresar el código y dar...
1 respuesta