Jump to content

Héctor Miguel

Members
  • Posts

    1,371
  • Joined

  • Last visited

  • Days Won

    58

Héctor Miguel last won the day on October 21

Héctor Miguel had the most liked content!

About Héctor Miguel

  • Birthday 10/25/1956

Converted

  • Campos
    ,

Recent Profile Visitors

4,798 profile views

Héctor Miguel's Achievements

  1. 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"
  2. hola, a ambos ! algunas sugerencias (necesitas ser menos ambiguo con las instrucciones a vba): 1) las comparaciones textuales son sensibles a las (may/min)usculas o fuerzas la comparacion con funciones if lcase(<variable1>) = "texto en minusculas" if ucase(<variable>) = "TEXTO EN MAYUSCULAS" o pones al inicio del modulo: option compare text 2) referencias a objetos (como las hojas) tiene varias alternativas - nombre en las etiquetas (entre comillas) no importa si lo indicas en (may/min)usculas, no hay dos hojas con el mismo nombre - el "codename" (lo que ves en el explorador de proyectos) como Hoja1, Hoja2, etc. - el indice (posicion) de las hojas en el libro ( worksheets(1), worksheets(2), etc. ) 3) hojas en bucles ? arrays: for each hoja in worksheets(array("hoja1, "hoja2", "hoja3", ...) indices: for n = 1 to worksheets.count worksheets(n). ... ... ... codenames: (referirlos tambien en una matriz/array) Worksheets refiere solo a hojas de calculo Sheets refiere a todo tipo de hojas en el libro (graficos y otros tipos) 4) objetos incrustados que pudieran tener nombres diferentes ? - cuantos commandbuttons hay en cada hoja ? - si es un solo commandbutton (sin importar el nombre) puedes usar esto en el evento '_open' del libro Private Sub Workbook_Open() Dim OnOff As Boolean, hoja As Worksheet OnOff = LCase(ThisWorkbook.FullName) = "c:\carpeta\libro1.xlsm" For Each hoja In Worksheets: hoja.OLEObjects(1).Enabled = OnOff: Next Worksheets(4).OLEObjects(1).Enabled = True End Sub
  3. prueba: =buscar(2;1/(r1:r7000="si");fila(r1:r7000))
  4. si entiendo bien, y estas usando el navegador chrome (?) cuando quieras cerrar todo chrome (después de las acciones de tus macros) usa una instrucción ± como esta: shell "taskkill /f /t /im chrome.exe" si lo que buscas es algo diferente, comentas los detalles del caso ?
  5. 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 🤔
  6. agrego tercera forma n en rango-horario (ayudaExcel).xlsx
  7. 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
  8. 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)
  9. si es "tarea de escuela" ?, lo que te conviene es estudiar las funciones aplicables: - Getting Coefficients Of Chart Trendline si necesitas de calculos mas avanzados... - Trendline Coefficients and Regression Analysis
  10. 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) 😉
  11. 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
  12. te falto indicar de donde "salen" esos 13 (o sea, los 6 + 2 + 5) ??? y como se "construyen" los periodos en blanco entre cada grupo de días (???) y cualquier otro detalle "en el tintero" ? alguna razón "de peso" para no usar un gestor de proyectos "real" ?
  13. no se si esto funciona en mac (hace mucho que no lo uso) antes de mostrar el mensaje, agrega estas dos lineas: AppActivate Application.Caption DoEvents si no funciona, buscamos otras alternativas
  14. ese (pseudo) formato "numérico" aparece en cuanto el contenido de una celda excede los 255 caracteres (a partir del caracter 256)
×
×
  • Create New...

Important Information

Privacy Policy