pegones1

Hola neverdelimon1, ¿no te has preguntado qué figura tienen los botones de opción moviéndose al norte del mapa? Lo que se han perdido, por perder algún evento, son las coordenadas de las ciudades que representan esos botones por lo que tendrás que abrir el archivo original y copiar el rango Relojes!$P$3:$Q$36 Dependiendo de la memoria RAM del equipo, funciona más o menos tiempo ya que por cada segundo que pasa ocupa 170 KB más (en una hora unos 600 MB) y ¡eso no lo tengo controlado! ¿Alguien me puede ayudar a reducir el consumo de memoria?

Re: Felices Fiestas, a todas las personas de buena voluntad Me uno a las felicitaciones en estos días de fiesta y comparto un enlace a varios Christmas en Excel publicados en el blog de mi amigo Chandoo. 6 Christmas Cards in Excel – Download and Spread Joy | Chandoo.org - Learn Microsoft Excel Online

Gracias verzulsan por tu feedback. El comprobador de compatibilidad de Excel 2010 me dice que lo es con Excel 2003 con pérdidas menores de fidelidad. ¿Qué diablos entenderá por fidelidad Micro$oft Excel? ¡No lo mismo que entendemos nosotros! No te extrañen los lags iniciales mientras se construyen las formas de los relojes y las ciudades. De todas maneras es una primera versión Beta para ser testeada en diferentes rincones del Planeta Tierra ¡que no es tu caso! Realmente le he prestado más atención a conseguir reducirlo en tamaño, para subirlo al foro, que en la gestión de los eventos. Lo que no quiero es reducir el número minimo de relojes y ciudades mostradas (34). Como buen probador que eres, cuando tus propios proyectos te permitan horas libres, ¿por qué no me indicas dónde casca para seguirle la pista?

Quisiera mejorar el World Clock por lo que necesito recibir comentarios con los test y chequeos de neverdelimon1, verzulsan, Gerson y los que os bajéis el fichero del https://www.ayudaexcel.com/foro/f64/mapa-mundial-con-relojes-marcando-las-horas-en-excel-15530/#post78598. Las características principales de este mapa de relojes mundiales son: Mapa mundial con 32 relojes analógicos e infinitos relojes digitales Relojes en sus zonas horarias y con ajuste del horario de verano Actualización de los relojes al Tiempo Universal real UTC y GTM/Zulu 24 relojes analógicos en las 24 zonas horarias 10 relojes analógicos programables con listas de amigos Relojes digitales de 24 horas en cualquier localización en el mapa 34 ciudades asociadas a los 34 relojes analógicos Lista de más de 650 ciudades de 230 países Enlaces a información completa de cada ciudad Creación de más ciudades sobre el mapa Noche de estrellas fugaces La sincronización de los relojes se hace con los servidores de The World Clock – Time Zones El código es libre y, si quieres hacer modificaciones menores y subirlo al foro, debes seguir estos pasos: Ejecuta la macro privada VaciaMapa de ThisWorkbook, dejando 5 formas en la hoja "Mundo": 1 mapa, 2 relojes analógicos, 1 reloj digital y 1 ciudad. En la hoja "Ciudades" selecciona el rango "A:C" y borra todo (no elimines las columnas) contestando No a la pregunta. Guarda como otro fichero de unos 300 KB Comprímelo como zip o rar para conseguir menos de 97.7 KB Súbelo al foro para compartirlo con todos.

Subo adjunto con el que he pasado las horas porque quiero saber, de un vistazo, a qué horas se levantan y se acuestan mis amigos, en particular los amigos del foro. Lo que me ha costado unas horas más es conseguir meter un fichero de 6 megas en un zip de menos de 97.7 KB. Al final ocupa 78.4 KB a base de crear dinámicamente los relojes, las ciudades y conectarse a Internet para descargar el mapa mundial. Tengo que dar las gracias por la inspiración a George Lungu y su tutorial de cómo hacer un reloj analógico en Excel: En alguna hora de estas vacaciones explicaré en mi blog cómo lo hice. Felices Fiestas a tod@s. EDITADO: Adjunto 2ª versión del Mapa con relojes mejorados y con geolocalización de las ciudades del mundo. 2ª EDICIÓN: La última versión de Relojes Mundiales 2.0 se puede descargar desde el post #20 He escrito varios temas explicando cómo hacerlos en mi blog: RelojesMundialesPW1.zip RelojesMundialesPW2.rar

Verzulsan, me pasa lo mismo que a Macro Antonio. Seguro que uno de los dos lo arregla. ¿Acaso has dibujado a mano a las mama noel? Feliz Navidad a los amigos del foro.

Macro Antonio, ¿no querrás que pintemos pirámides en Excel? La verdad es que es muy entrañable tu felicitación hecha a mano. ¡Felicidades!

Recapitulando Fleming, el argumento n, con el número de meses, puede ser un número absoluto mayor que 12 y no hace falta restringirlo a ABS(n) < 12. FIN.MES(fecha_inicial;meses) Meses es el número de meses anteriores o posteriores al argumento fecha_inicial. Si B6 = 23/02/2008 =FIN.MES(B6;24) = 28/02/2010 O sea, dos años despúes (24 meses después) y lo mismo ocurre con los números negativos.

Gracias never por tu aclaración. Sólo apuntar que ya dije que los argumentos permiten expresiones aritméticas, lo que se sobreentiende como operaciones con números positivos y negativos. Leyendo la documentación del argumento día de la día Obligatorio. Número entero positivo o negativo que representa el día del mes, de 1 a 31. Si el día es menor que 1, día resta la magnitud de la cantidad de días, más uno, del primer día del mes especificado. A buen entendedor sobran palabras de lo que pasará si día = 0. Creo que compartiréis conmigo que la verdad es que muchos argumentos de funciones en Excel están penosamente documentados e incluso sin documentar.

Estoy con sailepaty que dónde esté una fórmula nativa que se quiten las UDFs. Gerson, siempre se puede llamar desde una UDF a una fórmula nativa. La que te pasé en el post #4 para calcular el último día del mes fué ésta: diasmes = VBA.Day(VBA.DateSerial(Year(fecha), Month(fecha)+1, 0))[/CODE] que se convierte fácilmente en una fórmula para todas las versiones de Excel: [CODE]=DIA(FECHA(AÑO(A1);MES(A1)+1;0))[/CODE] Y se obtiene [b]el día anterior al primer día del mes siguiente[/b], ¡como tú querías! La Función FECHA(año; mes; día) permite expresiones aritméticas y la posibilidad no muy documentada de que el [b]argumento día sea 0[/b], lo que equivale al día anterior al día 1.

Hola Gerson, el problema es que EoMonth no está disponible por defecto en Excel 2003. Viene de serie en 2007 y 2010. Me limito a buscar en el foro y encuentro que tú mismo te has respondido: https://www.ayudaexcel.com/foro/f7/contar-solo-dias-laborales-excel-2003-a-7198/#post32666 Para activar el complemento: Ve a Tools->Add-Ins y marca Analysis ToolPak y presiona OK / Ve a Herramientas->Complementos y marca Paquete de herramientas de análisis y presiona aceptar. Puedes obtener el último día del mes de esta otra manera para cualquier versión de Excel pero con la limitación de que fecha sea menor que el 1 de diciembre de 9999: diasmes = VBA.Day(VBA.DateSerial(Year(fecha), Month(fecha)+1, 0))[/CODE] Ya me dirás si te funcionan los dos métodos.

Gerson, tu fórmula y la UDF generan error #¡VALOR! cuando en las celdas no hay fechas. =SI(A2="";"No es fecha valida";DIA(FIN.MES(FECHA(AÑO(A2);MES(A2);1);0)))[/CODE] Una forma de asegurar que las fechas son válidas y que la celda tiene formato de fecha es ésta que devuelve un 0 en caso contrario: [CODE]=SI(O(A2<1;A2>2958466;IZQUIERDA(CELDA("format";A2);1)<>"D");0;DIA(FIN.MES(A2;0)))[/CODE] Esta fórmula chequea si el número decimal que representa la fecha está entre las fechas aceptadas por Excel, del 1-01-1900 00:00:00 al 31-12-9999 23:59:59 (más o menos) Además comprueba que el formato de la celda sea del tipo fecha, comenzando con la letra D: Propongo esta UDF: [CODE]Public Function diasmes2(ByVal fecha As Variant) As Long If IsDate(fecha) Then diasmes2 = VBA.Day(WorksheetFunction.EoMonth(fecha, 0)) Else diasmes2 = 0 End If End Function[/CODE] que se sirve de la función IsDate para comprobar si se ha introducido una fecha correcta.

Gracias Gerson, pero no estaría completo si no explicara que he seguido el patrón de los angloparlantes, siguiendo con la sugerencia de sailepaty, ya que: .Pattern = "\d+(\.\d+)?" ' separa números decimales con el signo "." (en inglés) .Pattern = "\d+(\,\d+)?" ' separa números decimales con el signo "," (en español) .Pattern = "-?\d+(\,\d+)?" ' separa números decimales positivos y negativos con el signo "," (en español)[/CODE] Realmente prefiero el último patrón de Regular Expression Syntax (Scripting) ya que si: A1 = ABCD[b]-12,34[/b]EF[b]5,67[/b]GH =GetNum(A1;1) = [b]-12,34[/b] =GetNum(A1;2) = [b]5,67[/b] Esto me recuerda que se me está olvidando el programa [b]sed (stream editor)[/b] con el que comencé a usar las expresiones regulares en Unix hace unos 30 años: sed (informática) - Wikipedia, la enciclopedia libre

Hola sailepaty fíjate que la función es SoloNumeros y su resultado OnlyNumbers lo que seguro que pasa por manejar dos idiomas. Todas las soluciones aportadas obtienen todos los números juntos de la cadena, por ejemplo para: A1 = ABCD1234EF567GH =SoloNumeros(A1) = 1234567 Con lo que aparecen concatenados los dos números. Function GetNum(ByVal txt As String, ByVal ref As Long) As Double With CreateObject("VBScript.RegExp") .Global = True If ref > 0 Then .Pattern = "\d+(\.\d+)?" GetNum = .Execute(txt)(ref - 1) Else .Pattern = "\D" GetNum = .Replace(txt, "") End If End With End Function[/CODE] Con esta función se obtiene: =GetNum(A1;1) = [b]1234[/b] =GetNum(A1;2) = [b]567[/b] =GetNum(A1;0) = [b]1234567[/b] El segundo argumento indica qué número se va a separar y si es <=0 no los separa. Sirve para n números separados por caracteres alfabéticos.

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.

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 $149.99 - Office Hogar y Estudiantes (W, E, PP, ON) $279.99 - Office Hogar y Pequeña Empresa (W, E, PP, ON, OL) $499.99 - Office Professional (W, E, PP, ON, OL, PB, A) W-Word, E-Excel, PP-PowerPoint, ON-OneNote, OL-Outlook, PB-Publisher, A-Access Por separado valen: $139.99 - W, E, PP, OL, PB, A $79.99 - ON Haciendo cuentas, es mejor comprar Office Professional y pedirle por favor a Microsoft que nos descuente los productos no usados (W, PP, ON, OL, PB y A) ¡que sólo queremos Excel! con lo que habrá que pagarle: $499.99 - $79.99 - $139.99 x 5 = $-279.95 Como sale negativo, esa es la cantidad que nos tiene que devolver Bill Gates & Cía. Cualquier otra combinación de productos no nos saldrá más rentable.

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 Division: Los ingresos aumentaron 216 millones de dólares o un 26% debido a las ventas del sistema 2010 Microsoft Office y el crecimiento en el mercado de PC. ¿Qué se puede mejorar en estas cuentas? ¿Ya os habéis pasado o comprado Excel 2010?

Re: Cual fue tu primer post en AyudaExcel? Hola estimados compañeros, Mi primer post fue sobre calendarios por mi interés en el cálculo con funciones de fecha en Excel, VB, Access, Oracle, Unix, SQL, JavaScript, iCal, etc.: https://www.ayudaexcel.com/foro/f7/ayuda-calendario-excel-7508/#post58464 Gracias a la observación de nuestro compañero numérico 54022298 (¿será un computador en su hamaca de playa?) me di cuenta que tenía un problema al calcular los números de semana y observé el distinto comportamiento en este asunto de las diferentes versiones de Excel, comentándolo en otro post de este foro: https://www.ayudaexcel.com/foro/f6/%5Bsolucionado%5D-mostrar-qu%E9-semana-del-%F1o-es-la-actual-11790/index3.html En estos 6 meses he recibido muchos agradecimientos y siempre he procurado agradecer la ayuda excelente recibida.

Si Fleming, que está curtido en este foro, ha picado con el Play de la foto, a más de uno y una les habrá pasado lo mismo. Ya he indicado en el post #1 que el enlace al vídeo es externo ya que no es uno de los compatibles de este foro: Hulu YouTube Vimeo Dailymotion Metacafe Google Facebook sino del Canal de History.com Videos Gracias Gerson por indicarle a Fleming dónde tiene que pinchar para verlo.

He encontrado por casualidad este vídeo de 1987 en el que un joven Bill Gates, con gafas de gran tamaño, responde a las preguntas de la prensa acerca de su nuevo y deslumbrante software Microsoft Excel, que "realmente mejora la calidad de sus resultados" ¡Los resultados nuestros no!, se entiende que habla de los resultados suyos ya que, vendiendo Excel y productos Microsoft, lleva más de 15 años siendo uno de los hombres más ricos del mundo según Forbes - Bill Gates No pinches en la flecha de Play (lo de arriba es sólo una foto). Pincha en este enlace de abajo: Personalmente me encanta la flor que lleva en la solapa y el gesto de subirse las enormes gafas. Por cierto, en la foto se ve que las primeras versiones de Excel sólo se sustentaban en 2 columnas.

Para pronosticar el tiempo en una hoja Excel lo mejor es llamar a un servicio web. Si Gerson introduce Honduras puede ver el tiempo meteorológico de los próximos 3 días en varias ciudades de su país. De paso puede estudiar el tratamiento de documentos XML en VBA. Se han empleado los siguientes servicios web: GeoLookupXML - Servicio para encontrar una ciudad en la base de datos Wunderground. ForecastXML - Obtiene el pronóstico del tiempo para un lugar. Del Servidor de Aplicaciones Web: Los resultados aparecen sin traducir porque no tengo mucho tiempo dados los tiempos que corren... MiTiempo.zip

Pedro (petercien1), que pases un feliz día junto a tu familia. Te deseo mucha felicidad y prosperidad a un luchador chileno como tú, ahora que los últimos mineros sepultados están a salvo y se va quedando vacío el campamento Esperanza. Recibe un puñado de carbón "del dulce", que se regala el día de Reyes Magos en España, de un hijo de minero. Un cariñoso abrazo de otro Pedro. pegones1

Como hijo de minero y de pueblo minero me alegra que se hayan puesto todos los medios para rescatar a los 33 mineros chilenos, aunque será difícil que no haya más desgracias en las p.t.s minas donde eres tratado como desaparecido aunque sólo estés a 700 metros de la superficie terrestre y, en cuanto salgan, tendrán que volver a registrarse como personas vivas... Hay muchas preguntas por aclarar, ¿por qué había sólo dos inspectores de minas en la región de Acatama? ¿son caros los inspectores? ¿son seguras las minas? ¿o es que no interesa que paralicen las minas por motivos de seguridad? Todos sabemos que las condiciones laborales de los trabajadores y la seguridad encarecen el oro y el cobre, tan cotizados hoy día, ¿estamos dispuestos los consumidores a pagar ese sobreprecio? ¿o dejaremos que sigan muriendo los mineros chinos, chilenos y de todo el mundo sin hacer nada? Acabo de enterarme que Macro Antonio es autor invitado en el equipo de EXCELLENTIAS.COM ¡Animo con tu labor divulgativa de las macros!

Abraham me congratula tu nombramiento como MVP Excelente Para hacérselo saber a todo el mundo, ¿por qué no publicas tu nuevo título en tu página web? ABRAHAM VALENCIA EXCEL y te creas un avatar en consonancia para este foro. Gerson, te cuento que yo también fui invitado a formar parte del equipo de redacción de EXCELLENCIAS.COM, pero mis múltiples obligaciones me impiden de momento diversificarme. En agosto os incorporasteis varios expertos y sí, también avalencia: Abraham Valencia se integra al equipo Excellentias.com por lo que estaré al tanto de vuestros excelentes aportes, ¡MAESTROS!

Si tienes la versión de Excel 2010 instalada, y una página Web o un blog de tu propiedad, desde esta semana puedes incrustar libros Excel que podrá ver e incluso editar cualquier visitante de tu blog. Microsoft permite ahora que los workbook que se guarden en SkyDrive con formato Excel 2010, del tipo .xlsx o .xlsb solamente, puedan ser compartidos. Aunque aún tiene bastantes limitaciones al no poder emplear macros ni VBA, ni otras características. Embedding Excel Web App in your own web page or blog - Microsoft Excel 2010 - Site Home - MSDN Blogs Forma parte de: Introducción a Office Web Apps - Microsoft Office Lo que más me gusta es que puedo compartir en mi blog ficheros Excel de otros expertos que estén accesibles al público en general. Ver la Ayuda de Excel Web App Blogueros como Gerson, Macro Antonio y yo tenemos una herramienta muy potente para incrustar ejemplos en los blogs. Prueba a abrir este fichero: EasterSundayCalculation.xlsx - Windows Live Si tienes instalado Excel 2010 lo puedes descargar en tu equipo. Si no tienes Excel 2010, haz click en Compartir e Insertar, y verás la hoja de cálculo y el código HTML que se debe copiar en la página Web o blog en que desees que aparezca. <iframe src="http://r.office.microsoft.com/r/rlidExcelEmbed?su=7719626156792686819&Fi=SD6B219F16DA7128E3!208&AllowInteractivity=False" width="402" height="346" frameborder="0" scrolling="no"></iframe>[/HTML] He incrustado un ejemplo en mi blog: Cómputos que hacen la "Pascua" | Pedro Wave Blog Spot y he hecho referencia a él en este post para que veáis lo bien que queda P.D.: En muchos foros se recomienda a los que tienen Excel 2003, olvidarse de Excel 2007 y dar el salto directo a Excel 2010 por las muchas prestaciones que tiene y, desde ahora, la de incrustar y compartir aplicaciones Excel en la Web es de las más atrayentes.