Jump to content
Sign in to follow this  
fredy122

modificar codigo de pegado

Recommended Posts

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

 

Edited by avalencia
Código pegando en el mensaje, no en la etiqueta correspondiente, viéndose demasiado largo

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Hola  fredy122te 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

Share this post


Link to post
Share on other sites

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

Edited by 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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy