Problema en vba excel copiar de un libro a otro
Tengo un problema que me tiene loco perdido.
Tengo una macro que básicamente copia unas celdas de una línea (fórmulas) en una hoja de un libro para seguidamente abrir otro libro y copiar la línea en forma de valores y cerrando el libro al salir.
Todo funciona bien hasta que le inserto al libro origen el código para activar los menús. (Al desactivar) que previamente fueron desactivados.
Por alguna razón no realiza la función de copiar, cuando cambia de libro el portapapeles esta vacío.
Si alguien tiene alguna idea de porque psa esto. Gracias a todos
Macro copia de libro a libro
Windows("CAJA 2023.xlsm").Activate
Sheets("linea datos").Select
Range("A6:KV6").Select
Selection.Copy
Windows("Ventas 2023.xlsb").Activate
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("Ventas dia 2023.xlsb").Close SaveChanges:=True
Codigo insertado al desactivar Thisworkbook
ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
Visita mi canal:
-----------
Revisa la siguiente manera de simplificar el código:
Sub prueba()
Workbooks("CAJA 2023.xlsm").Sheets("linea datos").Range("A6:KV6").Copy
Workbooks("Ventas 2023.xlsb").Sheets(1).Range("A4").PasteSpecial Paste:=xlPasteValues
End SubDe esa manera no es necesario activar, seleccionar hoja, seleccionar celda.
Por cierto, en la segunda línea puse la hoja 1, porque en tu código no está la referencia a cuál hoja pegar. Cambia Sheets(1) por el nombre de la hoja donde vas a pegar, por ejemplo Sheets("Hoja1").
En el siguiente vídeo encontrarás más ejemplos de cómo utilizar las variables y también cómo simplificar códigos:
Curso de macros. Declarar variables en vba excel. - YouTube
Curso de macros. Consejos para empezar a programar. - YouTube
___________
Otras recomendaciones:
___________
Sal u dos Dante Amor
