Leaderboard

Sin hipervínculos. Doble-click en cualquier fecha. calendario - años SIN VINCULOS.xlsm

Te pongo la macro para que cambies el año en la hoja "HOJA1" y se actualice Si esto cumple... no olvides dar clic en 🤍 calendario - años VINCULOS.xlsm

El archivo.. Mi Negocio Foro.xlsm

En la opción de Proteger, quita la selección a las dos primeras opciones.

si tu NB corre macros, podrias intentar con esto (en un modulo de codigo estandar -excel-) Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _ ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub TeladoVirtual() ShellExecute 0, "open", "osk.exe", "", "", 1 End Sub si no te funciona con "osk.exe" prueba cambiando a "tabtip.exe"

Prueba y comenta Prueba (1).xlsm

Prueba esto: Sub guarda_pdf() ruta = ActiveWorkbook.Path & "\salida3.pdf" ActiveSheet.PageSetup.PrintArea = "$A$2:$P$42" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ruta, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False End Sub

Sub quita_cursor() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.EnableSelection = xlNoSelection End Sub

Tu información la graficaría en función a la actividad por día

Hola, Observo que el planteamiento o tu formulación está mal. 1. Todos los dias deberán sumar 24:00 horas excepto el domingo que unicamente trae información hasta las 6 de la mañana. 2. Lo que observo es que esas 24:00 los componen diferentes cortes de tiempo (Columna A) 3. Creo que lo que deberás graficar son los # de casos o cuantos eventos suceden cada dia. 4. Existen algunos días que rebasan las 24 horas, por eso agregué el formato de días. Este es el resumen. Ya me comentarás

Abre un Modulo ( Alf + F11) y copia la macro, el Archivo TXT colocalo en la misma carpeta donde se encuentyre tu archivo excel. Si observas la macro, procesará el archivo 1.TXT Sub opentxt() Application.ScreenUpdating = False Application.DisplayAlerts = False Range("a1:b1000").ClearContents Dim myfile As Variant, cad As String, fila As Long ruta = ActiveWorkbook.Path ChDir ruta myfile = "1.txt" fname = Dir(myfile) If fname = "" Then MsgBox "No existe archivo en esta carpeta" Exit Sub End If Open myfile For Input As #1 fila = 1 Cells.Clear While Not EOF(1) Line Input #1, cad Cells(fila, 2) = cad fila = fila + 1 Wend Close #1 Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Se grafico lo que tenias sombreado Espero te sirva Book1 (2).xlsx

Perdona no fue mi intención no volverá a ocurrir 😬

Hola Jeaa Revisé tu form y está trabajando correctamente, solo que creo que hay un procedimiento manual que tienes que implementar, tienes Botón Buscar y Botón Limpiar. Buscas tu primer código, te da los resultados, si vas a cambiar el código de búsqueda el usuario debe limpiar y luego ingresar el codigo y clic en buscar, pero si lo quieres en macros aquí te va una explicación que aprendí ayudaexcel. No se puede asignar una variable en el userform porque estarás "cargando la memoria temporal del excel = Lentitud en procesos". La variable estará aumentando la memoria temporal de excel mientras el userform esté activo Por tal razón, en tu botón buscar agrega esta instrucción en el botón Buscar Private Sub CBbuscar_Click() If Txtcodigo.Value = Empty Then MsgBox "Para realizar una busqueda, es necesario que ingrese un codigo", vbCritical, "Error de Usuario" Txtcodigo.SetFocus Exit Sub Else Call BuscarCodigo End If End Sub En tu módulo de Vba agrega esta instrucción Public Sub BuscarCodigo() Dim codigo As String codigo = ReporteAgua.Txtcodigo.Value Call Mimodulo.limpiar ReporteAgua.Txtcodigo.Value = codigo Call Mimodulo.Buscar End Sub Con esto que te acabo de dar te explico el porque: Cuando habilitas una variable en el modulo de vba, se crea cuando empieza tu macro y luego muere al finalizar la macro, la memoria temporal siempre la tendrás disponible para más consultas sin procesos ralentizados. Espero te sriva. Saludos desde Nicaragua

En el formulario de Cambiar y remplazar, pasa a Opciones y activa:Coincidir con el contenido de toda la Celda.