modificar codigo de pegado

publicado el 10 de septiembre6 años

como puedo modificar este codigo de pegado de un libro a otro libro ejecutandose a partir de la celda ax1 a cw 42

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

Editado el el 10 de septiembre6 años por avalencia
Código pegando en el mensaje, no en la etiqueta correspondiente, viéndose demasiado largo

publicado el 13 de septiembre6 años

Hola fredy122, sube tus archivos y lo intento

publicado el 15 de septiembre6 años

Autor

es que son dos libros uno se llama analisis2018 y el otro se llama porograma 4 cifras

y de acuerdo a ese procedimiento se pegan ciertas celdas de un libro a otro lo que quisiera es acortar este codigo anterior de otra manera

publicado el 15 de septiembre6 años

Bueno sin tus archivos lo único que puedo hacer es preparar yo un ejemplo y que tu lo adaptes a tus necesidades.

publicado el 15 de septiembre6 años

Hola fredy122, te subo un ejemplo haber si es lo que necesitas, también un enlace para que veas en video el funcionamiento del mismo.

Tienes que tener en cuenta que en la macro contenida en el archivo progama4 cifras 1.xlsm debes cambiar la ruta que hay por la tuya para que te funcione.

Workbooks.Open("C:\Users\JSD\Desktop\Analisis2018.xlsm")

La que te muestro es la ruta que tiene el archivo en mi ordenador, es decir yo lo tengo en el escritorio, lo que debes modificar es lo de color Amarillo, si pones los dos archivos en tu escritorio lo único que tienes que modificar seria Workbooks.Open("C:\Users\JSD\Desktop\Analisis2018.xlsm") por el nombre de tu ordenador.

Cuando pulses el botón de Traspasar no es necesario que tengas abierto el otro archivo.

Enlace de video https://www.dropbox.com/s/ueg0xxopxpntv4z/consulta de fredy122.mp4?dl=0

Analisis2018.xlsm programa 4 cifras 1.xlsm

publicado el 15 de septiembre6 años

Autor

maestro este es el libro y lo que necesito es enviar los numeros que estan en probables a una hoja destino

https://drive.google.com/open?id=1X5ZAoOscZa7Jd4i4AQ4p0k2nIKEjwBmK

Editado el el 15 de septiembre6 años por fredy122
lo que pasa es que son referencias circulares y al copiarlas a una hoja pareciera que el libro trajiera un virus o algo que no me deja desempeñar aen otro libro

publicado el 15 de septiembre6 años

Mañana te lo subo

publicado el 16 de septiembre6 años

Hola fredy122, la hoja esta protegida, subir el archivo desprotegido.

publicado el 19 de septiembre6 años

Autor

Alguna manera de desproteger el libro maestro

publicado el 19 de septiembre6 años

Siento mucho decirte que aquí, colaboramos ayudándonos unos a otros pero no damos soporte para desproteger libros u hojas, si sabes quién es el autor pídele la clave de acceso y continuamos, un saludo.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

193 Archivos
99 Comentarios
30 Revisiones
Última descarga

Agenda Calendario Vintage
- 2

Fechas Móviles

Saludos amigos espero estén bien
Nuevamente acudo a ustedes para que me ayuden con lo siguiente inconveniente, con la ayuda de este tutorial https://youtu.be/LFCT9xU4alc?si=gVeIDHcKwCUmO0sM configure el archivo adjunto para obtener los resultados requeridos coincidentemente dos de las fechas que necesito cumplen con los parámetros utilizado en el tutorial es decir el tercer viernes de un mes, sin embargo cuando intento determinar otra fecha con el mismo metodo no me arroja resultados congruentes ejemplo el cuarto lunes de octubre o el segundo martes de febrero y así sucesivamente
Mucho les sabre agradecer la ayuda que me puedan brindar

Feriados Moviles.xlsx

Por jues, · publicado hace 16 horas 16 hr
Sumatoria en función de un año y con conversión de valores

Hola a ambos,
Por si te interesa un total detallado por cada divisa, te adjunto archivo con los detalles...
Saludos,

Sumar Tipo de cambio (G).xlsx

Por Victor7, · publicado el 4 de octubre4 oct
Sumatoria en función de un año y con conversión de valores

Muchas gracias John por tu respuesta, me sirvió de gran ayuda!.

Saludos

Por Matías86, · publicado el 1 de octubre1 oct
Sumatoria en función de un año y con conversión de valores

¡Saludos, @Matías86 !
Prueba en F4 con la siguiente fórmula:
=SUMA((0&C2:C199)*BUSCARV(B2:B199;E10:H11;COINCIDIRX(AÑO(C1);E9:H9);)*(AÑO(A2:A199)=AÑO(C1)))
¡Bendiciones!

Por John Jairo V, · publicado el 1 de octubre1 oct
Sumatoria en función de un año y con conversión de valores

Estimados,
Junto con saludar, tengo la siguiente consulta:
Cree esta formula en F4, =SUMA(FILTRAR(C2:C199;AÑO($A$2:$A$199)=AÑO(C1))) que suma valores de una tabla en función del AÑO ubicado en C1 y ubicado en A2:A199 (ver excel adjunto).
Lo que necesito ahora, es que los valores contenidos en C2:C199 que tienen una Moneda en la columna B2:B199 que puede ser EUR o USD, tenga conversión de valor en función de una tabla auxiliar ubicada en E9:H11.
El resultado esperado sería 160.000.

Saludos y de antemano, muchas gracias!Ejemplo sumar con Tipo de cambio.xlsx

Por Matías86, · publicado el 29 de septiembre29 sep

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

modificar codigo de pegado

Featured Replies

Archivado

Archivos

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Estadísticas de descargas

Mensajes

Fechas Móviles

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Sumatoria en función de un año y con conversión de valores

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)