pegones1

Hola jackpvs, compruébalo ahora mismo con Microsoft ExcelWebApp, la nueva herramienta de Excel para insertar hojas de cálculo en blogs y páginas web, y para no tener que esperar llegar al 2050 la acabo de introducir en mi blog: Cómputos que hacen la "Pascua" | Pedro Wave Blog Spot Como ves, en las columnas C y E hay cálculos que hacen "la Pascua" porque las fórmulas originales que aparecen en las páginas web están escritas con el formato de fechas en inglés y funcionarían cambiando la configuración regional del sistema operativo. Por ejemplo, para la fórmula original en inglés: =DOLLAR(("4/"&DAY(MINUTE(A1/38)/2+55)&"/"&A1)/7,)*7-6[/CODE] traducida a Excel en español (Columna C): [CODE]=MONEDA(("4/"&DIA(MINUTO(A1/38)/2+55)&"/"&A1)/7;)*7-6[/CODE] el formato de fechas es "M/D/AAAA" (mes/día/año) y falla =¡VALOR!, por lo que aconsejo usar esta versión que no depende del formato de las fechas (Columna D): [CODE]=MONEDA(FECHA(A1;4;DIA(MINUTO(A1/38)/2+55))/7;)*7-6[/CODE] En la columna H he metido como he podido la megafórmula: [PHP]=FECHA(A1;SI(SI(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=29;-1;SI(Y(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=28;RESTO(A1;19)>10);-1;0))+RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)+21+RESTO((20-(RESTO((SI(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=29;-1;SI(Y(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=28;RESTO(A1;19)>10);-1;0))+RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)+21-19);7))-(SI(SI(RESTO((40-(ENTERO(A1/100)-20));4)=3;1;0)+RESTO((40-(ENTERO(A1/100)-20));4)>1;1;0)+SI(RESTO((40-(ENTERO(A1/100)-20));4)=3;1;0)+RESTO((40-(ENTERO(A1/100)-20));4))-(RESTO((RESTO(A1;100) + ENTERO(RESTO(A1;100) / 4));7)));7)+1>31;4;3);SI(SI(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=29;-1;SI(Y(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=28;RESTO(A1;19)>10);-1;0))+RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)+21+RESTO((20-(RESTO((SI(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=29;-1;SI(Y(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=28;RESTO(A1;19)>10);-1;0))+RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)+21-19);7))-(SI(SI(RESTO((40-(ENTERO(A1/100)-20));4)=3;1;0)+RESTO((40-(ENTERO(A1/100)-20));4)>1;1;0)+SI(RESTO((40-(ENTERO(A1/100)-20));4)=3;1;0)+RESTO((40-(ENTERO(A1/100)-20));4))-(RESTO((RESTO(A1;100) + ENTERO(RESTO(A1;100) / 4));7)));7)+1>31;-31;0)+SI(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=29;-1;SI(Y(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=28;RESTO(A1;19)>10);-1;0))+RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)+21+RESTO((20-(RESTO((SI(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=29;-1;SI(Y(RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)=28;RESTO(A1;19)>10);-1;0))+RESTO(SI((ENTERO(A1/100)-20)<13;0;ELEGIR((ENTERO(A1/100)-20)-12;-2;0;0;-2;-2;0;-2;-2))+SI((ENTERO(A1/100)-20)<1;0;ELEGIR((ENTERO(A1/100)-20);-1;0;0;-1;-1;0;-1;-1;-1;-1;-1;-1;0;-1;-1;0;0;-1;0;0))+ENTERO(((ENTERO(A1/100)-20)+5)/2)+202-11*RESTO(A1;19);30)+21-19);7))-(SI(SI(RESTO((40-(ENTERO(A1/100)-20));4)=3;1;0)+RESTO((40-(ENTERO(A1/100)-20));4)>1;1;0)+SI(RESTO((40-(ENTERO(A1/100)-20));4)=3;1;0)+RESTO((40-(ENTERO(A1/100)-20));4))-(RESTO((RESTO(A1;100) + ENTERO(RESTO(A1;100) / 4));7)));7)+1)[/PHP] Con ella no hay cálculos que nos hagan "la Pascua" pues está probada hasta el año 4099, aunque no sé si será tragada vs tratada con la limitación del tamaño de los mensajes de este foro. P.D.: Por cierto, los ministros de las iglesias implicadas están pensando fijar las fechas de Semana Santa para que a los gobiernos y a los colegios de estudiantes no les hagan "la Pascua" por los dichosos cambios anuales.

Adjunto fichero con varias funciones y fórmulas que calculan los domingos de Semana Santa según el Calendario Gregoriano desde 1900 hasta 2204, año para el que fallan todas las fórmulas. Sería interesante encontrar una fórmula mejor. En la columna B está el mejor algoritmo reconocido con el que se comparan las fechas. Los domingos de Pascua erróneos se marcan de naranja y los errores de cálculo en rojo. DomingoPascua.zip

Como Super Macro Antonio supongo que ahora tendrás que ser más moderado en tus citas para no herir susceptibilidades. Desde Zaragoza comparto contigo la gran pérdida de un hombre que ha hecho historia, desde sus comienzos políticos en el PSA - Partido Socialista de Aragón, durante la Transición Española, de la que guardo un tremendo recuerdo por haber estudiado en el colegio de la familia Labordeta, en el que aprendí la utopía que encierra el Canto a la Libertad. La historia nos cuenta que la Batalla de Zaragoza, durante la Guerra de Sucesión en 1710, fue la última oportunidad para que la Corona de Aragón pasara a ser propiedad del Archiduque Carlos de Austria, pero un mes más tarde fue mal recibido en Madrid y tres meses más tarde se escondió en Barcelona, que fue finalmente tomada en 1714. Los borbones reinaron en España a partir del año 1700 por lo que malamente tuvieron que ver con los conquistadores de los Reinos de las Indias. Estoy seguro que Labordeta hubiera acabado con su famoso grito ¡A la m....!

Hay cálculos que nos fastidian porque son muy difíciles o porque no nos salen y decimos que nos hacen la Pascua en sentido figurado. Los cálculos o Computus que propongo son para obtener el Domingo de Pascua (Easter Sunday) que han hecho "la Pascua" a los matemáticos, astrónomos, programadores y calculadoras humanas desde el siglo IV. Hasta logroastur intentó resolver los días de Semana Santa en el post #53 del tema Número de semana. Para que estos cálculos no nos hagan "la Pascua" y no nos fastidien dando fechas equivocadas, he recopilado las fórmulas y UDFs más precisas y curiosas que calculan el Domingo de Pascua en mi blog: pedrowave.blogspot.com/2010/09/computos-que-hacen-la-pascua.html Se pueden descargar desde aquí: EasterSundayCalculation.zip La fórmula más curiosa e incomprensible para mí, que vale para los años 1900 a 2203, es: =MONEDA(("4/"&A1)/7+RESTO(19*RESTO(A1;19)-7;30)*14%*7-6[/CODE] [b][i]¿La comprendes? ¿Conoces alguna fórmula o función mejor?[/i][/b] Si quieres saber más sobre este tema mira mi blog: Cómputos que hacen la "Pascua" | Pedro Wave Blog Spot

Como veo que este tema está parado, comparto un juego para romper canicas que me hizo pasar muy buenos ratos en mi primera PDA táctil. Era el juego Bubble Breaker o Rompedor de Burbujas que en esta versión Excel se llama JawBreak o RompeMandíbulas. Está escrito por Andy Pope en su página web AJP Excel Information Se puede descargar desde aquí: jawbreak.zip INSTRUCCIONES: La idea es conseguir la puntuación más alta seleccionando canicas o bolitas adyacentes del mismo color. Cuantas más canicas haya más alta es la puntuación. Haga clic en una canica y todas las canicas adyacentes serán seleccionadas. Haga clic de nuevo y las canicas seleccionadas se romperán y aumentará su puntuación. Haga doble clic en una canica y automáticamente se eliminarán todas las canicas adyacentes. Seleccione una canica de otro color para cambiar la selección actual. En la hoja Ranks se guardan las 10 puntuaciones máximas y los nombres de los jugadores. ¡A disfrutar! Por cierto, no intentes romper las bolitas de colores que salen hoy en Google.es

Por lo que a mí respecta, sólo me queda dar las gracias a Macro Antonio, que ha contribuido con sus macros y UDF, a sailepaty por aportar su propia versión con fórmulas a este tema (lástima que no haya más propuestas) y a todos los usuarios lectores que se han interesado o se vayan a interesar en el futuro de cómo separar texto en celdas.

¿Has probado tu fórmula con textos de más de 100 caracteres? Como éste: 11111111111111111111111111111111111111111111111111 11111111111111111111111111111111111111111111111111 1111111111,2,3,4,5,6,7,8,9,10 Ya no sale el 2 en la segunda celda separada

En mi fórmula sustituyo el separador por un salto de línea lo que para listas de números es genérico. He partido de que todos los casos de ejemplo no contenían strings en varias líneas. Es cierto que con strings conteniendo saltos de línea habría que sustituirlo por otro carácter o combinación de caracteres que no aparecieran en la cadena de texto. Para Excel 2007 y 2010 la fórmula es más sencilla: =SIERROR(MED($A1;ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";C$18));ENCONTRAR(" ";SUSTITUIR($A1&$B1;$B1;" ";C$18))-ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";C$18)));"") Y tu fórmula sería: =RECORTAR(MED(SUSTITUIR($A1;$B1;REPETIR(" ";100));(C$18-1)*100+1;100)) Siempre partiendo de que en el rango C18:Q18 hay números enteros (1,2,3,..) ¿Has probado tu fórmula con textos de más de 100 caracteres? Como éste: 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111,2,3,4,5,6,7,8,9,10 Ya no sale el 2 en la segunda celda separada

Estoy de acuerdo contigo en todo pero hay que tener en cuenta las limitaciones de estas fórmulas y, sobre todo, los límites de Excel para trabajar con strings: 32.767 caracteres en una celda. En tus fórmulas sustituyes cada carácter separador por 500 espacios en blanco, por lo que una cadena de texto como: 1,2,3,4,5,6,7,8,9,10,11,12,14,15,16,,,,,,,,,,,,,,,,,31,,,,,,,,,,,,,,,,,,,,,,,,,,57,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,100,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,132 produce error: #¡VALOR! al necesitar más espacio por celda a separar del disponible. Para abarcar más de 130 celdas a separar, puedes reducir el valor de sustitución 500 por uno más bajo. Para un valor de 100, llegarías a separar aproximadamente unas 650 celdas como máximo. ¿Por qué has empleado 500? Mi solución es genérica y no requiere trabajar con strings muy largas por lo que es más eficiente espacial y temporalmente, ya que extrae el texto justo que se debe separar en cada elemento.

Normalmente el auxiliar de relleno no será necesario introducirlo en las celdas separadas vacías ya que se usa su valor por defecto (espacio en blanco " " o string nula ""). En este caso la fórmula del post #16 se simplifica bastante: =SIERROR(MED($A1;ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";C$18));ENCONTRAR(" ";SUSTITUIR($A1&$B1;$B1;" ";C$18))-ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";C$18)));"")[/CODE] En el caso más corriente de que el carácter separador sea la coma "," y sustituyendo la fila auxiliar por el número de celda a separar, resulta esta fórmula más simple: [CODE]=SIERROR(EXTRAE(A1;ENCONTRAR(" ";SUSTITUIR(","&A1;",";" ";2));ENCONTRAR(" ";SUSTITUIR(A1&",";",";" ";2))-ENCONTRAR(" ";SUSTITUIR(","&A1;",";" ";2)));"")[/CODE] Este ejemplo es para separar el elemento 2 de la cadena de texto de la celda A1. Solo falta sustituir 3 veces la cifra 2 por el elemento a separar y cambiar la celda A1 por la deseada. Con el consentimiento tácito de sailepaty, adjunto el fichero anterior sin la columna con el carácter auxiliar. NOTA: La función MED de Excel 2010 equivale a la función EXTRAE de versiones anteriores. SepararTextoAlfanumerico2010.zip

Gracias fornelasa, la verdad es que con macros ya había un tema: Macro para separar texto y valores en Distintas columnas que Macro Antonio (hasta ayer conocido como Antoni Ayala) se encargó de resolver magistralmente, como siempre. Lo que intento con este tema es ir por el camino de las fórmulas para quienes no tengan o no gusten de habilitar las macros...

Para que la fórmula anterior del Post #15 sea independiente del número de columnas (entre la celda en la que se está separando el texto y la primera de ellas) hace falta una fila auxiliar con números enteros consecutivos (1, 2, 3, ..) Si la fila auxiliar es la 18, la fórmula será: =SIERROR(MED($A1;ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";D$18));1)&MED($A1;ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";D$18))+1;ENCONTRAR(" ";SUSTITUIR($A1&$B1;$B1;" ";D$18))-ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";D$18))-1);$C1)[/CODE] La fila auxiliar hace las veces de argumento a la función: [b]DESCONCATENAR(Texto; Número de celda a separar)[/b] ¡OJO función virtual no implementada en Excel 2007 ni Excel 2010! Aunque la función completa sería algo así: [b]DESCONCATENAR(Texto; Número de celda a separar; [separador]; [Auxiliar de relleno])[/b] Siendo los valores opcionales por defecto: Separador = , (coma) Auxiliar de relleno = (espacio en blanco) SepararTextoAlfanumerico2007.zip

sailepaty, veo que has captado la esencia de este tema, que no es otra que olvidarse de los algoritmos y usar las fórmulas de Excel para separar textos, como si existiese la función DESCONCATENAR en Excel ¡que no existe! Como todo (o casi todo) se puede hacer de diversas maneras y gracias a tus ideas, propongo otra solución con una única fórmula y sin tener que repetir 500 veces el espacio en blanco (por cierto, tu solución es muy ingeniosa ) =SIERROR(MED($A1;ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";COLUMNAS($D1:D1)));1)&MED($A1;ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";COLUMNAS($D1:D1)))+1;ENCONTRAR(" ";SUSTITUIR($A1&$B1;$B1;" ";COLUMNAS($D1:D1)))-ENCONTRAR(" ";SUSTITUIR($B1&$A1;$B1;" ";COLUMNAS($D1:D1)))-1);$C1)[/CODE] NOTA: Se ha incluido a propósito, entre cada 2 dobles comillas, un salto de linea generado con la combinación de teclas [Alt]+[intro] porque no está incluido entre los caracteres del texto a separar. Lo cierto es que se ha complicado bastante, para tener en cuenta la personalización del o los caracteres auxiliares, en caso de que la cadena resultante sea de longitud cero y ha obligado a llamar a la función SIERROR SepararTextoAlfanumerico2.zip

fornelasa, la opción Texto en columnas de Excel, que expuse en el Post #4, no es interactiva y cada vez que se cambia el texto obliga a pasar por el Asistente para convertirlo...

Concatenar texto alfanumérico es fácil pues existe la función CONCATENAR(texto1; [texto2]; ...) o también se puede utilizar el operador de cálculo símbolo (&) para unir elementos de texto. Lo que no existe es una función para DESCONCATENAR texto en varias celdas, aunque Excel lo resuelve como cuando importa datos externos. Si en la celda A1 se escribe el texto alfanumérico a separar, por ejemplo: 1,ab,33,cde,4444 Se borran las celdas B1:F1 y se selecciona la celda A1 En el menú Datos, hacer click en Texto en columnas Se abre un Asistente para convertir texto en columnas, como se explica en esta página de Microsoft. En el paso 1, elegir Delimitados En el paso 2, marcar solo la Coma como separador En el paso 3, cambiar el Destino a la celda B1 (normalmente machaca A1) y pulsar Finalizar. En el rango B1:F1 estará el texto alfanumérico separado. 1 ab 33 cde 4444 Para entenderlo mejor lee el artículo Separacion de texto en Excellentias.com

Acabo de subir los archivos que se borraron al Hilo de Animaciones Post #46 sin problemas. ¿Qué hiciste este finde? ¡A ver cuánto dura, dura!

Aquí está el fichero con la solución propuesta sin macros para separar texto alfanumérico en varias celdas: SepararTextoAlfanumerico.xls Lo he subido a mi SkyDrive porque sigo sin poder subir ficheros al foro. Espero que algún "Super-Merodeador" me lo pueda subir

En VBA y en otros lenguajes de programación es fácil separar texto alfanumérico, pero no lo es tanto usando las fórmulas de Excel. Para preparar unos diagramas de Gantt en Excel necesitaba separar la lista de predecesores de una tarea representados como "6,10,24" y obtener los números separados por comas en otras celdas. Después de buscar una solución, he intentado mejorarla para que sea más general y he obtenido el siguiente resultado: En la columna B se define el tipo de separador: un carácter alfanumérico, por ejemplo la coma "," En la columna C se define el texto a incluir cuando no hay texto, por defecto es un espacio en blanco " " En el próximo mensaje enviaré el fichero Excel con la solución propuesta.

Guanche me recuerda los 14 meses que pasé en Tenerife haciendo el servicio militar obligatorio y viviendo dos de los mejores carnavales que he visto en mi vida. Por las fotos que has subido debes ser un guanche del tipo racial cromañoide, yo soy mediterranoide. Me maravilla que además del sueco sepas de lenguas bereberes. Ya solo falta que seas chicharrero aunque personalmente prefiero a las canarionas ¡qué recuerdos!

Me uno a las condolocencias por nuestro compañero Maamtur. El mes pasado estábamos celebrando su cumpleaños y Logroastur nos comentó se conocieron en el hospital, por lo que supongo que le dio a conocer el foro. Gracias por la huella que has dejado en este foro.

Hola julibaga, Disculpa que no te respondiera al post #56 del "Hilo general de Animaciones" pero he estado 3 días sin línea telefónica ni ADSL por culpa de 2 cruces de lineas debido el primero a fallar el filtro original del modem de la central y el segundo al sustituido, además de sufrir 2 fallos masivos del operador de Internet durante 2 días (espero que en la factura me descuentes los 5 días sin servicio de este aciago mes de julio) Ahora mismo acabo de probar con Firefox 3.6.3, Explorer 8.0.6001.18602 y Chrome 5.0.375.99, después de limpiar caché y los historiales de navegación y sigo sin poder subir archivos. En los dos modos Enhanced Attachment Uploading off y on, aparece: attachment.php (GIF Imagen, 1x1 pixels) ¿Alguna sugerencia? Después de sufrir la desconexión de Internet por parte de la operadora del fijo y del ADSL, no puedo garantizar cual será el próximo problema para seguir foreando (acabo de adquirir un modem móvil pero la operadora del celular no sabe, no quiere o no puede activarlo) El móvil no es lo mío porque con vista cansada prefiero pantallas de 21" a 42" para navegar.

re: [CERRADO]Cumpleaños de Pedro Wave (pegones1) Ahora que ya pasó mi cumple les cuento: En mi viida me metería en la cosina a cosinar un pavvo el día de mi cumplí-años!!! Pero como buen programador me gusta seguir los pasos y lo he celbrao siguendo los pazos de julio-vago con la motella de whisky hasta terbinarla. ¡¡¡Un brindis!!! ¡Arriba! ¡Abajo! ¡Al centro! ¡Pa dentro! Me falta dormir la "mona" y mañana será otro día con muchas - neuronas, pero antes tengo que resolver este poblema: Ya se que las regals son subir files pero una imagen vale si Es toy hecho un lío y necesito ayuda excel de forosotros los excelpertos para saber qué cocina función mete y saca tantos td's y tr's en esta joja???

Hemos roto la racha, perdiendo el primer partido y ganando los otros seis, ¡¡¡España es campeón!!! Con 8 goles a favor y 2 en contra ¡¡¡ya somos campeones del mundo!!!

No soy de los que dejan un tema inacabado por lo que retomo la Función RESIDUO ya que hay varias fórmulas que dan mejor solución a la función Resto que da Excel. =RESTO(n; d)[/CODE] Siendo: n = número d = divisor Fórmulas que dan el residuo o resto: [CODE]=n-d*ENTERO(n/d) =RESTO(RESTO(n;134217728*d);d)[/CODE] NOTA: Esta última está sacada de que la función RESTO() devuelve el valor de error #¡NUM! si se cumple la condición siguiente: [b]divisor * 134217728 <= número[/b] Lo mejor es que la función Mod en VBA da el resultado correcto: Ver artículo en inglés: Large Numbers in the MOD Function [CODE]Function DblMod(Dividend, Divisor) ' Declare two double precision variables Dim D1 As Double Dim D2 As Double ' Copy function arguments to local variables D1 = Dividend D2 = Divisor DblMod = D1 Mod D2 End Function[/CODE] Hay que tener en cuenta que la precisión numérica en VBA está mejor resuelta que en las fórmulas de Excel, si se usa la estructura del tipo de datos Decimal para obtener resultados exactos de hasta 29 dígitos. El tipo de valor Decimal representa números decimales comprendidos entre el [b]+79.228.162.514.264.337.593.543.950.335[/b] positivo y el [b]-79.228.162.514.264.337.593.543.950.335[/b] negativo.