calvuch

Si deseas "capturar", los cambio realizado en una hoja del excel, debes utilizar el evento Workbook_SheetChange esto lo haces directamente desde el editor de Visual basic en el objeto: ThisWorkbook esto ya fue respondido por "boumerang", en este link...

Prueba esto, modifique la linea If Sh.Name = "Historico" Then Exit Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Z As Range If ActiveSheet.Name <> "Historico" Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub...

Claro, eso puesto que desde una macro abres un archivo (principal) que en su evento open intenta cerrar al archivo que lo invoco (maquina)., lo que debe hacer el macro del archivo maquina (entre muchas cosas que seguramente hará), es abrir archivo...

Si las macros están referenciadas por nombre y cambiaste el nombre de la hoja, bueno, no et queda más que en el editor de Visual basic utilizar Buscar y reemplazar y actualizar todas las macros ahora en lo personal prefiero utilizar mis macros con...

Lo primero seria al imprimir el objeto establecer en opciones de impresión "cuantas copias deseas", pero si deseas una "tira de gráficos", entonces: Una vez que tengas listo tu gráfico, fíjate en el número que tiene el mismo (ue lo identifica como...

¿Los días Son Lunes a viernes o Lunes a Domingo?

Esto ya fue erspondido varia veces, ve esto http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/2323234/macro-copia-datos-de-otro-libro-y-pegue-en-actual respondido por: elda_vinci Si no te...

Veamos Supongo que tus rótulos están en A1 B1 etc. Pues bien En A2 en donde ira el código pon esto: =EXTRAE(B2;1;1)&EXTRAE(B2;LARGO(B2);1)&"-"&EXTRAE(C2;1;1)&EXTRAE(C2;LARGO(C2);1) en D2 en donde va la descripción pon esto: =+B2& " " &C2 Bye

Ok. Lo que pasa es que en tu código, tu solo "selecionas" el rango en donde esta la maquina1 (A7) pero no lo incluyes en el list. Tu macro solo incluye aquellos registros cada 21 filas desde A7 en forma secuencial, por lo tanto los resultados...

Prueba esto: Sub saltos_de_pagina1() 'El número de saltos de página horizontales está limitado a 1.026 por hoja. Dim i As Integer ActiveWindow.View = xlPageBreakPreview ActiveSheet.PageSetup.PrintArea = "$A$1:$G$65535" For i = 1 To 225 Set...