avalencia

Hola Como bien ya adelanto @tierra_pampa si hay más archivos de Excel abiertos, al usar "ActiveWorkBook", cierras el activo, no el que necesariamente quieres; segundo, en la imagen muestras el Excel abierto (pero oculto), si desde el inicio ese era el probelma (mencionaste que el libro estaba abierto, no "solo" el Excel) pues tú cierras el libro no el mismo Excel (Application.Quit). Abraham Valencia

Estimados, creo que aunque a veces la teoría es dejada de lado ante soluciones prácticas, igual siempre es importante. - Las hojas NO tiene un "nombre interno", tienen un módulo de clase que lleva un nombre pero que no está directamente relacionado al nombre que vemos en la pestaña de la hoja. - Las fórmulas, aunque muchos no lo crean, también abren los archivos (incluso esas que muchos creen que trabajan sobre "libros cerrados") ¿difícil de creer? A un libro con datos colóquenle clave de apertura, ahora en otro libro intenten vincular con fórmulas algunas celdas entre libros ¿notan lo que pasa? Saludos Abraham Valencia

Hola En VBA de Word la instrucción es: application.Dialogs(wdDialogFileSaveAs).Show Solo reemplaza el "Application" por tu variable y debería funcionar. Abraham Valencia PD: Igual me parece poco eficiente pero es tu decisión.

Pues da la impresión que no existe ese objeto/elemento en todas las páginas por las cuales "navegas", envía el archivo para probar. Abraham Valencia

Hola El dilema es que no es que busques valores, propiamente dicho, sino que asignas valores de objetos/elementos de internet a tus variables, entonces no necesariamente se entiende cuando dices "si no encuentra ese código". Por cierto, es una mala costumbre usar "On Error Resume Next" a menos que sea estrictamente necesario, sugiero comenzar quitando esa línea, probar y volver a comentar. Abraham Valencia

Hola Ese código no convierte a pdf, pero yendo al punto del dilema, en dicho código hay una incongruencia: FileFormat:=xlNormal. Dicha ennumeración no se usa en versiones recientes de Excel-VBA (por más que intentes guardar como *.xls), para usar la correcta y guardar en formato *.xls mirar por aquí: Enlace Para "recuperar" tu archivo, solo cámbiale la extensión de *.xlsm a *.xls, una vez cambiada, ábrelo. Abraham Valencia

Para ser sincero, ayudarte es complicado si no podemos acceder a la misma web Abraham Valencia

Sugiero dar una leidita a esto: Enlace Creo que viendo el "método" adecuado podrás lograr lo que estás buscando. Abraham Valencia

Hola Sugiero comenzar leyendo esto: Enlace Saludos Abraham Valencia

Hola Yo borraría lo que estás usando y lo dejaría solo con esto en el módulo del libro (el que por defecto se llama "ThisWorkBook"): Dim UltimaFila As Long Private Sub Workbook_Open() Let UltimaFila = Sheets("Hoja1").Cells(Rows.Count, 1).End(xlUp).Row With Sheets("Hoja1") .Unprotect "tuclave" .Range("A" & UltimaFila + 1) = Time .Protect "tuclave" End With End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False Let UltimaFila = Sheets("Hoja1").Cells(Rows.Count, 2).End(xlUp).Row With Sheets("Hoja1") .Unprotect "tuclave" .Range("B" & UltimaFila + 1) = Time .Range("C" & UltimaFila + 1) = .Range("B" & UltimaFila + 1) - .Range("A" & UltimaFila + 1) .Protect "tuclave" End With ActiveWorkbook.Save End Sub Por supuesto es solo una sugerencia, tú decide o en todo caso mira que te sirve de ahí. Abraham Valencia

Hola, un ejemplo: Sub Navegar() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "https://www.google.com.pe" Do Until IE.ReadyState = 4 DoEvents Loop With IE .Document.getElementsByName("q")(0).Value = "buscar lo que sea en google" .Document.getElementsByName("btnK")(0).Click .Visible = True End With Set IE = Nothing End Sub Comentas Abraham Valencia

Hola Hay varios controles ActiveX (y otros) que son "heredados" del "viejo" VB 6.0 y que no son compatibles con los Office de 64 bits y no hay forma de cambiar eso y justamente entre ellos está el DtPicker (y no es el único). En general la recomendación es siempre usar controles compatibles con los Office de 32 o 64 bits y con toda versión de Office. Abraham Valencia

Hola Como ya te habíamos comentado, recuerda que Access no es igual a Excel; en general los sistemas gestores de bases de datos funcionan distitno a lo que quizá nos acostumbramos con Excel. Para Access esos campos vacíos son "nulos" por ende debes de indicarle que también los cuente: Query = "Select count (MOTIVO) from consulta where MOTIVO ='CIERRE ROTO' And (Not tipo='roto' or tipo is null)" Saludos Abraham Valencia

Hola En general no es conveniente usar "Select" pero yendo a tu dilema, probablemente al insertar un valor en N9 se vuelve a activar el evento "Change" entrando en un bucle "infinito". Cambia así tu macro: Sub Macro18() Application.ScreenUpdating = False Application.EnableEvents = False Dim Str1 As String Dim Str2 As String Dim resultado1 As Long Str1 = Range("C8") Str2 = Range("L9") resultado1 = StrComp(Str1, Str2, vbTextCompare) Range("N9") = resultado1 + 1 Sheets("Hoja1").Select Application.ScreenUpdating = True Range("A1").Select Application.EnableEvents = True End Sub Comentas Abraham Valencia

Hola A lo que comenta Gerson sobre la velocidad, yo agregaría que hasta Excel 2003 modificar la barra de estado era relativamente "fácil" haciendo uso de funciones de la API de Windows pero con los cambios en el entorno de Office, incluyendo Excel, no es posible lograr cosas como hacer cambios de color de la fuente de la barra de estado o similares. En el caso del ejemplo enviado, no se modifica en realidad la barra de estado sino que se coloca una nueva ventana encima pero dadas más modificaciones hechas en Office tengo la impresión que no debe ser útil en Excel 2007 y 2010 pero no en Excel 2013 o superior. Saludos Abraham Valencia