Jump to content

pegones1

Members
  • Content Count

    768
  • Joined

  • Last visited

  • Days Won

    27

Everything posted by pegones1

  1. Hola restre, prueba el fichero adjunto con las celdas en formato hora "HH:MM" ya que la función PROMEDIO no funciona con formato texto como "6 H y 20 M" sino con números decimales con formato hora, como 0,2638888889 que equivale a 6:20 (6 horas y 20 minutos). La fórmula empleada para calcular el Tiempo Total en la columna J es: =10/24*(DIAS.LAB(H2;I2)-1)+RESTO(I2;1)-RESTO(H2;1)[/CODE] Para no sumar horas de días festivos, se debería incluir una lista con las fechas festivas en otra hoja y darle el nombre Festivos, cambiando la fórmula por: [CODE]=10/24*(DIAS.LAB(H2;I2;Festivos)-1)+RESTO(
  2. Adjunto ejemplo para consultar datos en Excel con el lenguaje SQL. La tabla de datos está en la hoja Datos y los resultados van a parar a la hoja Resultados. En las celdas de la columna A de la hoja Principal: 1º) se escriben las sentencias SQL, 2º) se selecciona una y 3º) se hace click en el botón SQL. La tabla se referencia como [Datos$] en cada sentencia. Ejemplo de sentencia: SELECT manager_id, emp_fname, emp_lname, salary FROM [Datos$] WHERE status='T' ORDER BY salary DESC[/CODE] Espero que esto sea lo que quería greg_dorian. SentenciaSQL.zip
  3. re: [sOLUCIONADO] Vincular una celda a una cotizacion bursatil Pedro, en las hojas "TEL" y "TEF" conecto con MSN Dinero para las cotizaciones de Telefónica. Están preparadas las conexiones para acceder cuando se abre el archivo y cada 60 minutos. La forma de actualizar en Excel 2003, si no recuerdo mal, es en la barra de herramientas de datos externos pinchar en Actualizar o Ctrl + Alt + F5 Espero que se ajuste a lo que quieres y puedas ajustarlo a tu gusto. ConsultaWebTeleDinero.zip
  4. Gerson, como ví que NICOTUC y tú estábais atascados y al ser un tema de fechas me apeteció ayudar a catoncia, así como a mí me ayudan en otros foros en inglés, de los que Chandoo.org - Learn Microsoft Excel Online - Excel Tips, Tricks, Charting Tutorials, Download Excel Templates, Excel Formulas and More... es uno de mis preferidos, como ya debes saber. Un abrazo a tod@s.
  5. Eso quiere decir que te ha servido mi respuesta y ¿está [sOLUCIONADO]? Si es así, añade [sOLUCIONADO] al nombre del tema por delante: [sOLUCIONADO] Comparacion de Fechas Y un moderador cerrará el tema cuando lo lea.
  6. Hola Macro, gracias por tus macros. El caso más sencillo de sumar días saltándose los sábados, domingos y festivos se puede resolver con la propia función WorkDay de Excel por si alguno no lo sabe: SumarDias = WorksheetFunction.WorkDay(Fecha, Dias - 1, Sheets("Festivos").Range("A:A"))[/CODE] Los otros casos los has expresado muy bien.
  7. Hola catoncia, prueba el adjunto y me cuentas si te sirve. Tu problema es el clásico solapamiento de fechas que es más fácil de resolver comprobando si no se solapan que si se solapan. Sean 2 rangos de fechas: x-y , a-b No se solapan si es cierto alguno de estos dos casos: y < a ó b < x Las fórmulas están explicadas en inglés aquí: Check if two ranges of dates overlap [Excel Formulas] | Chandoo.org - Learn Microsoft Excel Online @Gerson, el formato condicional que he aplicado es tan simple como que la celda no contiene espacios en blanco. Si te sirve de ayuda agradécenoslo pulsa
  8. Hola Hernán, tu último ejemplo ¿no debería finalizar un día antes? El problema es que en la columna O sumas días completos con días de 9 horas, por lo que he añadido una nueva columna P con el número decimal de días de 9 horas, en la que uso Y5 ya que ahí metes las Horas/Día (9 horas), con la fórmula: =ENTERO(O5)+RESIDUO(O5;1)*Y5/24[/CODE] Observa que hago referencia a la columna P en la fórmula que calcula la fecha final: [CODE]=SI(RESIDUO(M5+P5;1)>16/24;M5+P5+15/24;M5+P5)+ELEGIR(DÍASEM(SI(RESIDUO(M5+P5;1)>16/24;M5+P5+15/24;M5+P5);2);0;0;0;0;0;SI(V5="X";1;2);SI(W5="X";0;1))[/CODE]
  9. Never, te permito todas las correcciones que me propongas porque son acertadas. Mi problema es que muchas veces acabo editando código en la nube, sin pararme a chequearlo. Entre nosotros, me gusta averiguar si quienes se bajan los programas acaban usándolos y el feedback con correcciones es una manera de averiguarlo. Ya he cambiado el código en el post anterior. Gracias por tu retroalimentación. En la siguiente página: Karl E. Peterson's Classic VB Code: Assoc se explican todas las posibilidades de la API AssocQueryString de las cuales, el ejecutable asociado a una extensión es la más u
  10. Gracias Never por tus constantes muestras de afecto y apoyo. No te preocupes por la memoria mientras podamos usar las memorias digitales. Y ¡ahora que recuerdo! en lugar de usar la función FindExecutable que da muchos problemas (mira este pdf) al buscar extensiones de más de 3 caracteres (¡no encuentra la aplicación que abra ficheros Access! por ejemplo con la extensión .accdb de 5 caracteres) prefiero usar: que con sólo indicarle la extensión del archivo muestra el Path del programa que lo abrirá. Option Explicit 'Notas nvr y pegones1: 'Se esta considerando que el archivo pdf que dese
  11. Never, gracias por la traducción pero está de más el texto en inglés cuando se puede hacer referencia al link exacto: Resumiendo, para ser compatibles con los sistemas de archivo FAT32 que no soportan nombre largos, el tamaño máximo es de 260 caracteres (incluido el carácter nulo del final) para la dirección y el nombre del fichero. Los sistemas de archivos NTFS soportan nombres largos de hasta 32.767 caracteres habitualmente usados con funciones API en versión Unicode, para la programación internacional en idiomas con caracteres que necesitan más de un byte. Traducción de la nota de es
  12. Hola Edwin, como te ha comentado neverdelimon1, el problema son los paréntesis y el mío escribir sin testear. Los argumentos se escriben entre paréntesis cuando se va a usar el resultado devuelto, como en este ejemplo que usa los 3 argumentos de la función: lEncontrado = FindExecutable(NombreDelArchivo, Ruta, RutaEXE)[/CODE] La siguiente llamada no devuelve resultado y se pone sin paréntesis: [CODE]Shell strAux, vbMaximizedFocus[/CODE] Veámoslo con MsgBox: [CODE]lAux = MsgBox errorMessage, vbYesNoCancel 'INCORRECTO lAux = MsgBox(errorMessage, vbYesNoCancel) 'CORRECTO MsgBox errorMes
  13. Josapu, prueba tu código con esta página: PAGINAS SALMON ON-LINE La original son los frames que no contienen los objetos necesarios.
  14. Never, muy bueno tu código pero hecho de menos comprobar el caso en que no se tenga instalado Acrobat Reader, o un programa que abra archivos con la extensión pdf, para que no provoque FileNotFoundException por ejecutar una Shell vacía. Con tu permiso, he modificado el código con la devolución de errores de FindExecutable y asegurando que RutaEXE no es vacío (debe contener por ejemplo: AcroRd32.exe o Acrobat.exe u otro lector de pdfs) Option Explicit 'Notas nvr: 'Se esta considerando que el archivo pdf que deseas abrir se ecuentra guardado en la misma ruta donde tienes guardado el archiv
  15. Al abrir PDFs, hay otros argumentos que pueden interesar a Edwin y que se pueden leer en el siguiente archivo: http://partners.adobe.com/public/developer/en/acrobat/PDFOpenParameters.pdf#page=6&zoom=200,50,100 Abierto por la página 6 con zoom de 200 y scroll horizontal de 50 y vertical de 100: #page=6&zoom=200,50,100
  16. Edwin, ¿has probado a incluir el argumento page en el link al fichero pdf en el código de tuve: arch = ruta & "Reglamento.pdf" & "#page=" & numPagina[/CODE] siendo numPagina la página que se indique a abrir del pdf, quedando así para la nº 25: ../[b]Reglamento.pdf#page=25[/b] Está explicado en esta página en inglés: Linking to a Specific Page in a PDF File (Microsoft Excel) Ya nos contarás a tuve y a mí cómo te ha ido y das las gracias si te ha servido.
  17. tuve adjunto hoja con las funciones integradas PENDIENTE e INTERSECCION.EJE para comprobar que los resultados son correctos en I3 y J3. Ahora a esperar que nuestro recién llegado al foro tenga ganas de volver después de casi un mes sin recibir respuestas. datos_malates2.zip
  18. Gracias tuve por recordarme las funciones de Excel para obtener la regresión lineal pero a un estudiante universitario le interesa saber qué fórmulas necesita y por qué. Con funciones integradas se oculta el método de resolución, lo mismo que pasa con Solver: Otra función integrada para calcular el error típico o estándar: =ERROR.TIPICO.XY(Rango_y; Rango_x) =STEYX(known_y's,known_x's)
  19. Bienvenido malates a este foro y disculpa el retraso en contestarte. Mis recuerdos de la Uni datan de hace 30 años y entonces se me daba bien calcular rectas mediante el método de los mínimos cuadrados. En esta página se explica el método: Adjunto una solución con tus datos por si te sirve. datos_malates.zip
  20. Hola hernanmathias, bienvenido al foro con retraso. Veo que tu consulta lleva mucho tiempo sin recibir respuesta. Prueba esto para obtener las fechas planificadas: =SI(RESTO(M5+O5;1)>16/24;M5+O5+15/24;M5+O5)+ ELEGIR(DIASEM(SI(RESTO(M5+O5;1)>16/24;M5+O5+15/24;M5+O5);2);0;0;0;0;0;2;1)[/CODE] Si la suma de fecha de inicio y días fab. es mayor que 16:00 (16/24) se le suman 15 horas (15/24) o sea desde las 16:00 a las 07:00 horas. La segunda línea solo añade a la fecha resultante 2 días si es sábado y 1 día si es domingo.
  21. Fornelasa, Lotus Symphony es más compatible con OpenOffice que con MS Office y no puede guardar macros VBA aunque pueda ejecutarlas a veces. Es una buena alternativa a coste cero. Para ahondar más en la herida, se puede visitar la Calculadora de Ahorros de Lotus Symphony que puede ayudar a entender el potencial de ahorro de una organización al cambiar todos o sólo algunos de sus usuarios de Microsoft Office a Lotus Symphony - la alternativa sin cargo de IBM: IBM Lotus Symphony - Savings Calculator Los precios de Microsoft Office y Excel 2010 en español son (ver aquí): $139.99 - Excel $14
  22. Hola neverdelimon1, cualquier cosa que imagines puede que sólo valga para ciertos lenguajes y navegadores. En la siguiente página tienes información de los lenguajes y navegadores a los que se aplica: execScript method (window) JavaScript Siendo IE y Google Chrome los que soportan JavaScript. IE soporta además JScript y VBScript.
  23. Quienes invertimos tiempo en Excel debemos saber que Micro$oft tiene grandes ganancias gracias a nuestros esfuerzos. Las últimas cuentas del gigante Micro$oft se pueden descargar en ficheros Excel desde aquí: Obtenidas de su web: Microsoft Investor Relations - Income Statements Seguro que podríamos mejorar estas hojas y sus fórmulas, pero es difícil alcanzar tan buenos resultados en tiempos de crisis a costa de nosotros los usuarios de Excel: Office 2010 ha tenido un comienzo rápido con un incremento de ingresos del 15% en su primer trimestre completo en el mercado. Microsoft Business
  24. josapu me alegra que te funcione y espero que lo hayas entendido. Habrás visto que la búsqueda se hace pinchando en la imagen: <a href="javascript:buscar_tiendas()"><img src="/on/images/btn_buscarazul.jpg" alt="Buscar"></a>[/PHP] El método execScript permite ejecutar la función javascript del botón. Microsoft recomienda incluir el segundo argumento: [CODE]IE.document.parentWindow.execScript("buscar_tiendas();", "JavaScript")[/CODE] para indicarle el lenguaje utilizado.
  25. Hola josapu, prueba a sustituir este código: 'APRIETO EL SUBMIT i = 0 While i < objCollection.Length If objCollection(i).Type = "submit" And _ objCollection(i).Name = "preguntar" Then ' "Search" button is found Set objElement = objCollection(i) End If i = i + 1 Wend objElement.Click ' click button to search [/CODE] por este otro: [CODE]IE.document.parentWindow.execScript("buscar_tiendas();")[/CODE] y me cuentas si has encontrado las tiendas que buscabas.
×
×
  • Create New...

Important Information

Privacy Policy