modificar codigo de pegado

publicado el 10 de septiembre5 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 septiembre5 años por avalencia
Código pegando en el mensaje, no en la etiqueta correspondiente, viéndose demasiado largo

publicado el 13 de septiembre5 años

Hola fredy122, sube tus archivos y lo intento

publicado el 15 de septiembre5 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 septiembre5 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 septiembre5 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 septiembre5 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 septiembre5 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 septiembre5 años

Mañana te lo subo

publicado el 16 de septiembre5 años

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

publicado el 19 de septiembre5 años

Autor

Alguna manera de desproteger el libro maestro

publicado el 19 de septiembre5 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

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Error en Macro

Le aumenté a 3 Seg. Y nada, no se que estoy haciendo mal
Este seria la impresión original al cargar el Formulario:

Y esta es la Impresión que me sale, me carga el Saldo en la Celda J21 del Recibo

Por dorgelis, · publicado el martes a las 22:235 días
Error en Macro

Probé la macro incluyendo la linea anterior y en mi ordenador un segundo fue suficiente para que funcionara correctamente.
Si te sigue dando el formulario incorrecto modifica el tiempo de espera de esa línea subiendo de 1 a 3 segundos.

Por Sergio, · publicado el martes a las 21:335 días
Error en Macro

Gracias por responder, perdón por la confusión, efectivamente al imprimir me sigue colocando los montos errados al imprimir el formulario

Por dorgelis, · publicado el martes a las 21:215 días
Error en Macro

En el mensaje original no comentabas nada de un error, simplemente no te salía el formulario con los valores que deseabas. ¿Es así?

Por Sergio, · publicado el martes a las 21:115 días
Error en Macro

Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Por dorgelis, · publicado el 4 de agosto4 ago

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

modificar codigo de pegado

Featured Replies

Archivado

Archivos

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

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Error en Macro

Error en Macro

Error en Macro

Error en Macro

Error en Macro

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)