Jump to content

Héctor Miguel

Members
  • Posts

    1,375
  • Joined

  • Last visited

  • Days Won

    58

Reputation Activity

  1. Thanks
    Héctor Miguel got a reaction from Janlui in Verificar archivo abierto   
    similar a la fraccion que expones en tu consulta inicial, solo cambia de esto:
    a esto:
    If esArchivoAbierto(rutaAlArchivo) Then  
  2. Like
    Héctor Miguel got a reaction from Janlui in Abrir archivo externo   
    si no conoces la EXTension, (probablemente) lo mejor es un hipervinculo ?:
    Sub abrirArchivo() Dim ruta As String, archivo As String, objetivo As String ruta = ThisWorkboook.Path & "\archivos\" archivo = "2021-11-22-4-1" objetivo = Dir(ruta & archivo & ".*") If objetivo <> "" Then ThisWorkbook.FollowHyperlink ruta & objetivo End Sub quiza obtendras una alerta por potencial riesgo abriendo ese tipo de enlaces (?)
  3. Like
    Héctor Miguel got a reaction from Jose BN in Activar teclado tactil   
    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"
  4. Like
    Héctor Miguel got a reaction from Jose BN in Activar teclado tactil   
    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"
  5. Like
    Héctor Miguel got a reaction from LeandroA in Hoja de excel con datos para compartirme   
    generador de datos aleatorios
  6. Like
    Héctor Miguel got a reaction from LeandroA in Hoja de excel con datos para compartirme   
    generador de datos aleatorios
  7. Like
    Héctor Miguel got a reaction from Silvia in Cambiar sentido de de formula coincidir   
    prueba:
    =buscar(2;1/(r1:r7000="si");fila(r1:r7000))
  8. Like
    Héctor Miguel got a reaction from Jose BN in Duda gráfico columnas apiladas   
    va tu adjunto en devolución, ver hoja2 (mismo procedimiento)
    stack chart (both).xlsx
  9. Like
    Héctor Miguel got a reaction from renato13 in Enlistar y visualizar en Web Browser archivos PDF   
    el detalle mas importante para llegar a buen puerto con tu proyecto es que debes dejar de pensar en el control webbrowser, mismo que YA NO da soporte para mostrar el contenido de archivos pdf y cambiar por un control activeX de adobe, mira por aqui:
    - Display PDF in Excel VBA UserForm
    al final hay un ejemplo con un webbrowser, pero... (insisto) ya dejo de funcionar 🤔
  10. Like
    Héctor Miguel got a reaction from renato13 in Enlistar y visualizar en Web Browser archivos PDF   
    el detalle mas importante para llegar a buen puerto con tu proyecto es que debes dejar de pensar en el control webbrowser, mismo que YA NO da soporte para mostrar el contenido de archivos pdf y cambiar por un control activeX de adobe, mira por aqui:
    - Display PDF in Excel VBA UserForm
    al final hay un ejemplo con un webbrowser, pero... (insisto) ya dejo de funcionar 🤔
  11. ¡Excelente!
    Héctor Miguel got a reaction from Patrick Marabote in Intervalos X horas y total de personas   
    agrego tercera forma
    n en rango-horario (ayudaExcel).xlsx
  12. ¡Excelente!
    Héctor Miguel got a reaction from Patrick Marabote in Intervalos X horas y total de personas   
    agrego tercera forma
    n en rango-horario (ayudaExcel).xlsx
  13. ¡Excelente!
    Héctor Miguel got a reaction from Patrick Marabote in Intervalos X horas y total de personas   
    no vi el uso de "mediana" (?)
    con los datos de tu modelo anterior (entrada y salida por separado) van dos formas de contar en un intervalo de tiempo (que puedes cambiar)
    la diferencia entre una u otra forma pudiera ser si cuenta la salida "dentro" del rango o solo si la salida excede el rango superior
    n en rango-horario (ayudaExcel).xlsx
  14. Thanks
    Héctor Miguel got a reaction from lokaso in Formato con activeprinter.show no cancela la impresion   
    cambia tu macro por algo ± como esto:
    Sub selectPrinter() Dim activa As String, cambio activa = Application.ActivePrinter cambio = Application.Dialogs(xlDialogPrinterSetup).Show If cambio Then ActiveSheet.PrintOut Application.ActivePrinter = activa Else MsgBox "Impresion cancelada !!!" End If End Sub para tu segunda pregunta:
    no creo que puedas "administrar" el proceso de impresión por medio de msgbox'es
    (deja que la aplicación lo muestre por sus medios convencionales)
  15. Thanks
    Héctor Miguel got a reaction from MauriciodeAbreu in Detectar cambio de hoja en formulario   
    el "error" que mencionas asoma por las traducciones "automáticas", si lees el artículo en inglés no existe tal discrepancia, por eso mismo prefiero leer los artículos "originales"
    al fin de cuentas, todos los que he visto en español (en algún momento) han "tocado base" en el origen de los mismos (en inglés) 😉
  16. ¡Excelente!
    Héctor Miguel got a reaction from MauriciodeAbreu in Detectar cambio de hoja en formulario   
    si quieres que sea el usuario quien dispare eventos al cambiar la hoja en cualquier libro, prueba desde módulos "de clase" con eventos a nivel de la aplicación
    lee, relee y vuelve a leer estos procedimientos:
    Events And Event Procedures In VBA
  17. Like
    Héctor Miguel got a reaction from overdrive in Duda sobre tiempo de vida de las variables   
    para la situación que necesitas resolver, le principal diferencia entre variables "Public" y "Static" es que:
    - Static solo se puede usar "dentro" de un procedimiento (Sub) por lo que su alcance (o vida) queda circunscrito al tiempo de ejecución del procedimiento y es visible solo para ese procedimiento
    - Public (por otro lado) declarado en un modulo estándar (área de declaraciones), pudiera conservar un alcance mayor, incluso llamadas entre procedimientos
    - puedes asignarle una matriz/array e inicializarla en el evento '_open' del ThisWorkbook (sin perder de vista que...)
    - esto NO te exime de que para cambiar el valor de algún elemento, debes ubicarlo (por índice o bucle) para cambiar el elemento a su "nuevo" valor
    mira por aquí:
    - Instrucción Static
    - Instrucción Public
  18. Like
    Héctor Miguel got a reaction from njnsp in Tabla Dinámica - Suma de Totales de Campo Calculado   
    modelos como el de tu adjunto presentan detalles a consideración (p.ej.)
    1) al abrir tu archivo y no hacer otra cosa que recalcular todo y actualizar la TD, los valores mostrados cambian totalmente (la razón ?)
    2) en tu hoja de datos, las fechas en columna "A" son TEXTOS que simulan fechas (sabes como se tratan las fechas en excel ?)
    - la función FECHANUMERO(... toma el orden de fechas de la configuración regional del equipo
    - en tu caso coincide con el de los TEXTOS-fecha de la columna "A" (día/mes/año)
    - en mi caso, el orden de fechas es mes/día/año, por lo tanto, fechas con el día >12 YA NO son reconocidos como fecha
    - si estas completamente seguro que tu modelo se trabajara SOLO en equipos de configuración IGUAL a tu sistema ?... (sigue así)
    3) las TD (ni los CC) hacen sus cálculos sobre los datos de origen pero...
    - NO tienen la facilidad de tratar en conjunto los datos con funciones como x.SI.conjunto por lo que...
    - ciertos cálculos se deben hacer dese la tabla con los datos de origen
    4) tus formulas en la hoja datos refieren a columnas COMPLETAS (G:G, E:E, F:F, etc.) pero...
    - no porque se pueda, significa que DEBAS hacer ese tipo de referencias
    - (ya te veré cuando los datos crezcan y veas una desmejora en el rendimiento del modelo), en todo caso...
    - define nombres con referencia a rangos dinámicos o convierte los datos en tablas (ListObjets) como base para la TD
    ahora, como prefieres que demos tratamiento y ajustes a los puntos 2, 3 y 4 ?
  19. Like
    Héctor Miguel got a reaction from Antoni in Mantener la celda activa en la misma posición de la pantalla   
    atajo... no creo, funcion(alidad)...
    congelando los paneles de la ventana y la "celda activa" en el panel "flotante" ?
  20. Like
    Héctor Miguel got a reaction from Tannya in Necesito crear varios libros a partir de dos archivos   
    pues, si... pero no (con la precisión que se requiere)
    con base en tus comentarios (y con ambos libros abiertos), prueba con algo +/- como:
    Sub creaLibros() Dim Fuente1 As Workbook, Fuente2 As Workbook, n As Long Set Fuente1 = Workbooks("libro1") Set Fuente1 = Workbooks("libro2") Application.ScreenUpdating = False For n = 1 To Fuente1.Worksheets.Count Fuente1.Worksheets(n).Move Fuente2.Worksheets(n).Move After:=ActiveWorkbook.Worksheets(1) ActiveWorkbook.SaveAs "INM NOMBRE DEL INMUEBLE MES AÑO", 51 ActiveWorkbook.Close True Next End Sub 1) usa los nombre reales de tus libros
    2) por el cripticismo de "INM NOMBRE DEL INMUEBLE MES AÑO" te toca adaptar la macro ? (para cada archivo nuevo)
    3) si quieres conservar las hojas en sus libros originales, cambia de ".Move" a ".Copy"
    4) si tienes alguna carpeta donde guardar los (nuevos) archivos, la incluyes en el "SaveAs"
  21. Like
    Héctor Miguel got a reaction from Khalel in Cerrar mensaje de error de forma automática   
    ese código lo pones en un modulo "estándar" y  lo usas "en lugar de..." el que publicaste
  22. Like
    Héctor Miguel got a reaction from Jose BN in Ayuda con funcion   
    no tengo manera de probar con mas de un monitor
    en todo caso, sin pasar por PS, prueba algo +/- como lo siguiente y comentas ?
    Sub getMonitorID() Dim elemCol, elem, serMon, serialNum Set elemCol = GetObject("winmgmts:{impersonationlevel=impersonate}!\\" & _ Environ("computername") & "\root\wmi").ExecQuery("select * from wmimonitorid") For Each elem In elemCol For Each serMon In elem.SerialNumberID serialNum = serialNum & Chr(serMon) Next MsgBox serialNum Next End Sub  
  23. Like
    Héctor Miguel got a reaction from Jose BN in Duda gráfico columnas apiladas   
    va tu adjunto en devolución, ver hoja2 (mismo procedimiento)
    stack chart (both).xlsx
  24. Like
    Héctor Miguel got a reaction from Jose BN in Cálculo de cantidad de horas clasificadas por turnos   
    👍
    obtuve más de lo que "di" 😉
  25. ¡Excelente!
    Héctor Miguel got a reaction from Jeani in Cálculo de cantidad de horas clasificadas por turnos   
    las columnas que mencionas fueron solo para tener una "visión" de las consideraciones necesarias para distinguir días y horas entre laborables o fin de semana y festivos y la separación de fecha-hora es solo trabajar en dos columnas: una la parte entera (días) y la otra la parte fraccionada (horas), funciones (obviamente) entero(... y residuo(... 1) y finalmente se convierte a valores y se elimina "la fuente"
    pero una vez que ha quedado visto (y comprendido), podemos regresar a tu modelo de base (menos columnas auxiliares para su comprensión) y resulta el nuevo adjunto
    horas x turno v2 (ayudaExcel).xlsx
×
×
  • Create New...

Important Information

Privacy Policy