Saltar al contenido
View in the app

A better way to browse. Learn more.
Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

modificar codigo de pegado

publicado

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 por avalencia
Código pegando en el mensaje, no en la etiqueta correspondiente, viéndose demasiado largo

Featured Replies

publicado
  • 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

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

publicado

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
  • 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 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
  • Autor

Alguna manera  de  desproteger el libro maestro

publicado

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

Configure browser push notifications
Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.