Modificar código de pegado de un libro a otro libro

Como puedo modificar este código de pegado de un libro a otro ejecutándose a partir de ax1 a a cw42

Sub Macro40()
'
' Macro40 Macro
'

'
ActiveCell.Select
Windows("programa 4 cifras 1.xlsm").Activate
ActiveCell.Offset(-36, -2).Range("A1:D6").Select
Selection.Copy
Windows("Analisis2018.xlsm").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(-36, 4).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(-36, 4).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection.Copy
Windows("Analisis2018.xlsm").Activate
ActiveCell.Offset(6, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("programa 4 cifras 1.xlsm").Activate
Application.CutCopyMode = False
Calculate
Selection. Copy

1 respuesta

Respuesta
1

I. Hola Fredy, por mi parte, no logré encontrar la información necesaria, pero podría dirigir su consulta a los compañeros Abraham Valencia y Gustavo Omar, por si pudiesen ayudarle.

Abraham Valencia

Gustavo Omar Fellay

Siento las molestias y la tardanza en contestar. Suerte.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Una macro no se ejecuta desde otra macro, pero sí si la ejecuto manualmente, ¿Por qué?

En una hoja tengo un botón que ejecuta el siguiente código: Sub preguntar_scroll() Dim respuesta respuesta = MsgBox("¿Quieres extender la pantalla actual?", vbYesNo + vbQuestion, "Extender pantalla") If respuesta = vbYes Then Sheets("visor").Activate...
1 respuesta

Mover contenido de una celda hacia arriba y abajo

Mover el contenido de una celda de una tabla con un botón hacia arriba y hacia abajo. En una hoja de excel. Y poder colocarlo donde uno desee.
1 respuesta

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Crear Macro, con condiciones y editar celda

¿Cómo crear una macro que Busque en toda la hoja, (bucle con condiciones), introduciendo texto y se pueda editar celda?
1 respuesta

Trabajar con una ventana duplicada en excel

Tengo una macro mediante la cual me duplica la ventana activa de excel para mostrarla en un segundo monitor: Sub bot_extenderpantalla_Click() 'creamos una nueva ventana de excel con la hoja activa (visor) Sheets("visor").Activate...
1 respuesta

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Al agregar columnas en una hoja de Excel, se desconfiguraron unas fórmulas.

Tengo un archivo de Excel con 4 hojas en una tengo RENTAS y en la segunda NOTAS en donde al ponerle el número de pedido me jala la información de la hoja RENTAS. Pero tengo la necesidad de agregar más columnas con más productos, y al agregar esas...
2 respuestas

Agregue un tercer combobox de búsqueda y dar problema

Sigo aprendiendo a través de su ayuda. Resulta que sigo con mi data y en un formulario utilizo dos combobox para filtrar registros por Año y por Mes, gracias a la ayuda de Don Eduardo y Julián que me orientaron a la perfección funcionan a la pinta ya...
2 respuestas

Uso de filtros avanzados y listbox en userfotm

Tengo una tabla, con nombre, productos y mes, ¿Cómo filtrar por mes y aparezca en un listbox de un userform?
3 respuestas

Cómo asignar una letra para el año de una fecha

Tengo una celda (J22) que contiene una fecha (12/03/2024), y otra celda que lee esa fecha y segun el año le asigna una letra, con esta formula =SI(TEXTO(C5;"aaaa")="2024";"A/";""), en este caso A/. El valor de la celda J22, puede cambiar dependiendo...
2 respuestas