Abraham Valencia

[Hola Yo sugiero que coloques tu archivo en algún "Drive" (OneDrive, Google Drive, DropBox, etc.) y que compartas por aquí el enlace, así nadie tendrá que hacer público su correo, que es lo que probablemente muchos prefieren (me incluyo). Abraham Valencia

[Hola Complicado entender y/o ver el dilema sin saber qué hay en la hoja cuando corres la macro. Abraham Valencia

[Hola No hay forma desde Excel o Word en que se garantice que un archivo no pueda ser copiado y/o guardado con otro nombre. Si solo te refieres a la posibilidad a evitar hacerlo desde el explorador de Windows, pues depende de los permisos que tu...

[Hola La información que brindas es muy poca, trata de dar detalles: ¿Qué error exacto te da? ¿En qué línea lo marca? Etc. Abraham Valencia

[Hola Antes que darte una respuesta puntual, yo sugeriría dejar de lado lo estético y tener todo como una sola base de datos y agregas una columna en donde estaría el departamento. De esa forma sería mucho más fácil todo ya sea usando tablas...

[Hola Prueba así: Sub Paginas() Dim nPaginai As Integer nPaginai = Application.InputBox(prompt:="Ingrese un número del 1 al 1000", Type:=1) With ActiveSheet.PageSetup .RightFooter = "Página &P de &N" .FirstPageNumber = nPaginai End With End Sub...

[Hola Prueba algo así: Dim Izquierda As Single, Arriba As Single, Ancho As Single, Alto As Single Application.DisplayAlerts = False With Worksheets("Hoja2").Range("A1:D5") Izquierda = .Left Arriba = .Top Ancho = .Width Alto = .Height .CopyPicture End...

[Hola Probablemente cuando vinculaste las tablas no activaste la opción que dice algo como "guardar la contraseña". Sugiero vincular nuevamente y activarla. Abraham Valencia

[Hola Como para comenzar, sugiero lee este artículo al respecto: https://abrahamexcel.blogspot.com/2019/04/excel-y-mysql-2.html Lo de los tiempos se puede hacer con "Application.OnTime", pero no sé si lo usaste alguna vez. Igual sugiero comenzar por...

[Hola Suponiendo que quieres actualizar tu tabla dinámica cada 15 minutos (ajústalo a tu necesidad), entonces algo así te va a servir: Sub Inicio() ActiveSheet.PivotTables("TablaDinámica2").PivotCache.Refresh Call Actualizar End Sub Sub Actualizar()...