Quiero conseguir que un marco me sirva para varias hojas y que varios marcos se activen con un botón

Tengo que realizar un fómulario de entrada y quiero que determinadas celdas aparezcan en distintas hojas, para ello he creado un macro con las celdas que quiero repetir en cada hoja y otros macros para las otras celdas, repartirlas como yo quiero. Si las pruebo por separado funcionan. El problema viene cuando junto los macros en un botón, solo realiza la orden en la primera hoja. Dejo el Macro de las celdas que quiero copiar ( son las mismas pero en diferentes hojas) para ver si podéis ayudarme

Sub Macro1()
'
' Macro1 Macro
'
Application.ScreenUpdating = False
'
Range("B3:H3").Select
Selection.Copy
Sheets("Información general").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulario").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Sub Macro2()
'
' Macro2 Macro
'
Application.ScreenUpdating = False
'


Range("B3:E3").Select
Selection.Copy
Sheets("Diagrama de niveles").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulario").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Sub Macro3()
'
' Macro3 Macro
'
Application.ScreenUpdating = False
'
Range("B3:E3").Select
Selection.Copy
Sheets("Proveedor").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulario").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Sub Macro4()
'
' Macro4 Macro
'
Application.ScreenUpdating = False
'


Range("B3:E3").Select
Selection.Copy
Sheets("Validez").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulario").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Sub Macro5()
'
' Macro5 Macro
'
Application.ScreenUpdating = False
'


Range("B3:E3").Select
Selection.Copy
Sheets("Histórico de calibración").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulario").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Sub Macro6()
'
' Macro6 Macro
'
Application.ScreenUpdating = False
'


Range("B3:E3").Select
Selection.Copy
Sheets("Localización").Select
Selection.Insert Shift:=xlDown
Range("A2").Select
Sheets("Formulario").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

Sub INGRESAR()
'
' INGRESAR Macro
'
Application.ScreenUpdating = False
'


Call Macro1
Call Macro2
Call Macro3
Call Macro4
Call Macro5
Call Macro6
End Sub

Respuesta
2

Me puedes explicar qué quieres copiar.

Por ejemplo, en la macro1

Sub Macro1()
'
' Macro1 Macro
'
    Application.ScreenUpdating = False
    '
    Range("B3:H3").Select
    Selection.Copy
    Sheets("Información general").Select
    Range("A2").Select
    Selection.Insert Shift:=xlDown
    Range("A2").Select
    Sheets("Formulario").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

Estás seleccionando las celdas "B3:H3", pero no pusiste de cuál hoja.

Lo que vas a copiar es de la hoja "Formulario"???

Entonces puedes ponerlo así:

Sub Macro1()
'Mod.Por.Dante Amor
    Application.ScreenUpdating = False
    Sheets("Formulario").Range("B3:H3").Copy
    Sheets("Información general").Range("A2").Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Si es correcto lo que te dije, así quedarían tus macros:

Sub Macro1()
'Mod.Por.Dante Amor
    Sheets("Formulario").Range("B3:H3").Copy
    Sheets("Información general").Range("A2").Insert Shift:=xlDown
End Sub
Sub Macro2()
    Sheets("Formulario").Range("B3:E3").Copy
    Sheets("Diagrama de niveles").Range("A2").Insert Shift:=xlDown
End Sub
Sub Macro3()
    Sheets("Formulario").Range("B3:E3").Copy
    Sheets("Proveedor").Range("A2").Insert Shift:=xlDown
End Sub
Sub Macro4()
    Sheets("Formulario").Range("B3:E3").Copy
    Sheets("Validez").Range("A2").Insert Shift:=xlDown
End Sub
Sub Macro5()
    Sheets("Formulario").Range("B3:E3").Copy
    Sheets("Histórico de calibración").Range("A2").Insert Shift:=xlDown
End Sub
Sub Macro6()
    Sheets("Formulario").Range("B3:E3").Copy
    Sheets("Localización").Range("A2").Insert Shift:=xlDown
End Sub
Sub INGRESAR()
'
    Application.ScreenUpdating = False
    Call Macro1
    Call Macro2
    Call Macro3
    Call Macro4
    Call Macro5
    Call Macro6
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿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 / 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

Hoja de captura de datos en excel

Quisiera saber en excel cual es la forma de crear una hoja de captura de datos y que éstos se vayan acumulando en una hoja alterna. Entiendo que este proceso se puede hacer con macros. Para tratar de ser más claro les comento que se trata de una...
1 respuesta

Ejecutar "x" macro cuando cambia valor"x" columna

Soy nuevo aquí, y tengo un dilema. Todas las respuestas que he mirado hablan de ejecutar una macro cuando se cambia una celda y no me sirven. Pues bien, tengo 5 macros en una hoja, cada una asociada a una columna con sus respectivas celdas. Las...
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

Eliminar autoshapes sin eliminar validación

Tengo el siguiente código: Dim autoforma As Shape For Each autoforma In ActiveSheet.Shapes autoforma.Delete Next autoforma Range("A1").Select Pero resulta que en donde tengo que borrar las formas, tengo celdas en donde hay validación de datos y...
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

¿Cómo puedo cambiar celdas a formato de numero, por formato de celdas no me permite?

Solicito de su valiosa ayuda ya que no he podido crear una macro para Excel 2003 que me convierta un rango de celdas a numero, lo he intentado por formato de celdas y no pasa nada, la única forma es realizar el cambio manualmente para lo cual tengo...
1 respuesta

Macro que busque y me traiga las filas con las coincidencias encontradas

Tengo esa macro funcionando pero me trae solo un resultado no se como hacer para indicarle a la macro que si hay varios resultados con el mismo dato me traiga todas las filas Ejemplo busco "1" y la macro me trae a la fila seleccionada toda la fila...
1 respuesta

Macro para copiar celdas especificas de una hoja1 y guardarlas en la Hoja2

Para Dante Ante todo un gran saludo Dante, hiendo a mi pregunta, como podría realizar una macro que me copie los datos de celdas especificas de la hoja1(Repuestos) a la hoja2(Datos), e intentado realizar con la grabadora de macros y me realiza de una...
1 respuesta