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  



  • Posts

    • Estimado bigpetroman, antes que nada muchas gracias por responder. Explico un poco de que va el sunto de los seriales tanto en la Salida como en la Entrada, la condicion de estos equipos es algo peculiar, ya que pueden salir varias veces y entrar la misma cantidad de veces, salvo algunas excepciones que no importan para la aplicacion de este archivo. Por tal motivo, no he restringido el ingreso de los seriales a una sola vez. Para decirlo mas claro, salen en calidad de prestamo y deben regresar en un perodo X, el cual esta definido por variables de tiempo no fijas en la mayoria de los casos. Por otro lado, los equipos tienen dos seriales, uno del fabricante, y otro de Inventario, y, este ultimo, necesito capturarlo tanto en la salida como en la entrada. He de acotar, que en la salida no hay problemas con la captura o funcionamiento de la aplicacion, en cambio, en la entrada de estos equipos es donde viene mi dilema. Siendo asi, lo que necesito lograr, con vuestra ayuda claro esta: 1- Hacer que la aplicacion al ingresar el serial en la hoja " Reg. Entrada" me busque en la tabla de salida (que esta en la hoja "Salidas"), el serial que ingresé, si lo encuentra, me traiga la informacion que contiene esa linea. Y, dicha informacion, la coloque o pegue, en la tabla Entradas, que obviamente esta en la hoja "Entradas". 2- Si, no llegara a encontrar dicho serial (porque salio antes de que estubiera operativa esta aplicacion), me pida ingresar el serial de inventario, el cual esta bajo la denominacion de Bienes Nacionales. Y, al ingresar este segundo serial, me coloque la informacion (los dos seriales) en la tabla Entradas, ubicada en la hoja "Entradas". Dicho esto, lo que necesito es basicamente lo que describo arriba, ya que el mensaje que me arrojaria la aplicacion es informativo (solamente para cuando haya encontrado el serial),  para saber su ubicacion y numero de Baul, y asi poder colocar el equipo en su lugar. Con respecto a la pregunta de que si quiero agregar o no una nota, creo, deberia ser pan comido despues de lograr los puntos 1 y 2. No se si he logrado explicarme, o he enrredado mas las cosas. Por favor indicame y tratare de ser mas explicito. O si lo prefieres hacer un paso a paso. De verdad muchas gracias de antemano por vuestra atencion, esfuerzo y paciencia. Atento a vuestros comentarios... Saludos.
    • amigo @MauriciodeAbreu, yo intente ayudar, pero de verdad que no logré entender de todo, por favor sube un detalla un ejemplo concreto que tengas en tu archivo. 1. coloco el serial X en la celda E5 de la hoja Reg. Entradas 2. se debe mostrar el valor Y en la celda Z (no se, no logro entender, pues en la hoja de salida por lo que veo el serial se puede repetir) y así vas explicando hasta el paso final, para poder entender suerte
    • Lamento decirte que no utilizo esa herramienta, por lo que no puedo valorar dicha compatibilidad   Saludos 
    • Te adjunto una alternativa mas con funciones genéricas de Excel, es automático para ambas columnas    Saludos Libro1.xlsm
    • Saludos expertos, por favor necesito de sus ayudas a alguien que disponga de tiempo, necesito guarda en PDF en un carpeta que se encuentra en descarga Que se busca agregar -Que cuando se corra la macro para generar el PDF se guarde estos datos en la base de datos. -Si un usuario(Nombre) le vuelvan a generar un PDF en un rango de = 7 días atrás mande un mensaje: usuario ya fue generado copia y fecha cuando fué creado y todo. Ajunto el archivo por favor muchísimas gracias a cada uno de ustedes. Feedback Formal-MACRO-PDF-1.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy