neverdelimon1

Hola Primero que todo felicitar al master pegones por su aporte, y al mismo tiempo saludar al master gerson. Por otra parte cuando lei. Me causo risa por la ironia de la vida, a decir de microsoft: FuenteY entonces me pregunto si añade mejor descripción MED que EXTRAE, en verdad que excel me gusta mucho, pero hay cambios que hicieron que no me parecen lógicos (obvio la lógica de ellos 'almenos la que emplearon' no es la del usuario), por ejemplificar si como usuario novato introduciendome en excel leo que hay una función que se llama EXTRAE a mi mente viene casi de inmediato que me puede servir para extraer datos de una cadena, texto, numero, etc, es decir por si sola se explica la función, pero si leo MED me puedo imaginar todo menos que funciona como extraer, es mas hasta suena como una funcion matemática o financiera jejejejeje. Bueno solo pasaba por aqui para comentar un poco mi impresión. saludos cordiales

Hola master pegones En excel 2010 funciona bien, hasta que comienza uno a dar clics sobre el mapa y se produce el evento mouse move, que es cuando se produce el error. Y las manecillas no se aprecian tampoco en excel 2010 Creo que me tendre que conformar en esperar si alguien da con el truco para que salga la estrella, ojala que aparezca un rey mago saludos cordiales

Hola master pegones En mi caso se activa solito, lo cual resulta obvio puesto que esta asociado al evento activate del libro el cual se produce una vez abierto y cargado. Creo que me voy a tener que conformar con la respuesta medio contestada :-( lo que pasa que intente dando clics con el boton derecho y mas experimentos pero me sale el error de que la expresion es demasiada compleja y de ahi ya no puedo hacer nada. saludos cordiales

Hola Master pegones Acabo de decubrir algo jejejejeje, recuedas que te consulte sobre el comportamiento que me sucedia en la macro? en el que al momento de abrir el libro se movian en el norte los botones de opcion, entrando y saliendo, bueno pues ya le vi la forma y es la estrella de la que hablas, jejejejejeje, tiene asociado un sub, en mi caso no tengo que hacer nada porque desde la apertura con el evento se desencadena. Sub ArrancaEstrella()... Saludos cordiales

Hola He seguido haciendo pruebas y basto con parar el timer y volverlo a iniciar en cuanto abre el libro es decir paro el timer cuando se termina de cagar el libro y lo reinicio y listo ya no me dio ningun problema, lo deje trabajando mas de dos horas y todo bien, en cuanto al consumo de memoria lo más que me alcanzo a consumir fueron 36 000 KB y de ahi bajaba por ejemplo hasta el rango de 29 000 kB volvia a subir pero nuevamente no rebasaba los 36 000 KB, por mi parte me parece que el timer es el que le esta pesando a excel, ya que por experiencia en versiones anteriores cuando se usa muy recursivamente tal método Excel se torna muy inestable, quizás si usamos el timer de las funciones api podremos evitar los colapsos, voy a intentar con ese cambio y posteriormente comento. Aprovecho para saludar a mi buen amigo verzulsan. saludos cordiales

Hola master Pegones Primero que todo felicitarte doblemente, una felicitacion es por el magnifico trabajo que haz hecho y la otra pues una cordial felicitación de año nuevo. Como casi no habia entrado al foro por eso apenas he podido postear mi test. Lo he probado en excel 2010 y funciona correctamente por un rato, después de unos 10 min. a veces + a veces -, aparece un error que dice expresión demasiado compleja, error 16 en tiempo de ejecución. Application.ScreenUpdating = False With RelojDigital .Top = Y + Mapa.Top voy al depurador oprimo F8 y eureka avanza a la siguente linea, quizás se debe efectivamente a los procesos que tiene y que se le hace un poco 'pesado a excel' si bien desde vba poco o nada podemos hacer de forma nativa, quizás haciendo uso de funciones api podemos implementar lo que comenta nuestro amigo verzulsan a quien aprovecho para saludar. Otra cosa que ocurre es que los botones de opción, entran y salen del mapa todos en la parte norte, no se si sea el comportamieno predefinido, recuerdo que la primera vez que abri el archivo no ocurria eso,pero ahora me he topado con ello. Me voy a meter en detalle al código y ya te expondre si hay algo en lo que te pueda aportar. saludos, un abrazo de año nuevo

Hola master pegones Desde luego que comparto contigo lo que a bien explicaste, en español a veces no estan documentadas totalmente las funciones (inclusive en ocasiones ni en ingles, es algo que ya desde antaño se le ha criticado mucho a MS, claro ejemplo es la fución sifecha, que si no fuerse por que recurrimos a la historia, no nos dariamos cuenta de su existancia, prueba de ello es el escribir en el cuadro de buscaqueda de la misma ayuda de MS Excel la palabra sifecha; el resultado que devuelve es que no se encontro ninguna coincidencia... ), y si tienes toda la razón que al hablar de expresiones aritmeticas, ya estabas icluyendo tanto valores positivos como negativos, solo que lo mio no era apuntar que tus aseveraciones estaban incompletas o inconclusas, mas antes apoyarlas al incluir los valores negativos de forma explicita, buscando incrementar la curiosidad al respecto. Ademas debo decir que cada que leo uno de tus comentarios me quedo maravillado por tan excelsas explicaciones, y no es que te este haciendo la barba (como decimos aca en méx), mas antes es solo es un comentario por medio del cual trato de reconocerte por lo menos en un poco todo el mérito de tan atinadas exposiciones. Saludos cordiales

Hola Aprovecho para saludar a todos y felicitarlos por tan acertados comentarios Aqui tambien cabe decir, que permite el valor 0 y tambien negativos, en el sentido de que va descontando los dias, por ejemplo se puede cambiar el 0 por -1, -2,-3 y asi segun los dias que se deseen descontar. saludos cordiales

Hola verzulsan, el resultado que obtienes es por el comportamiento de la funcion fs.GetAbsolutePathName el cual es causado por el argumento que le estas pasando. prueba este ejemplo Sub test() drvpath = "C" Set fs = CreateObject("Scripting.FileSystemObject") MsgBox "Directorio activo" & vbNewLine & CurDir MsgBox "GetAbsolutePathName pasandole como argumento " & drvpath & vbNewLine & fs.GetAbsolutePathName(drvpath) Set fs = Nothing End Sub[/CODE] y luego asi [CODE]Sub test() drvpath = "Hola que tal" Set fs = CreateObject("Scripting.FileSystemObject") MsgBox "Directorio activo" & vbNewLine & CurDir MsgBox "GetAbsolutePathName pasandole como argumento " & drvpath & vbNewLine & fs.GetAbsolutePathName(drvpath) Set fs = Nothing End Sub[/CODE] y por aca esta explicado el comportamiento GetAbsolutePathName Method saludos cordiales

Hola solo para contribuir un poco Sheets.Add.Name = "Pruebas" El metodo sheets.add devuelve un objeto (en este caso una hoja) es por eso que se le puede modificar la propiedad Name o cualquiera que se desee. Tomando de la ayuda de Excel el metodo copy no devuelve nada .... .Es decir los metodos no sin mas que funciones unos devuleven un resultado y otros no, en este caso sheets.add devuelve un objeto y por consiguiente podemos modificar sus propiedades o inclusive aplicarle otro metodo, mientras el metodo copy no devuelve nada. saludos cordiales

Hola me uno a las felicitaciones Muchas muchas felicidades petercien1 (como decimos por aca en México) que cumplas muchos mas! Saludos cordiales

Hola master abraham Muchas muchas muchas felicidades saludos cordiales

Muchas felicidades fleming esta excelente tu aporte sigue asi saludos cordiales

Me uno a las felicitaciones Muchas ¡Fe li ci da des! y te deseo mucha ambundancia prosperidad en todos los sentidos Chimpun. nvr

Hola Magnifica la exposicion y solucion el master pegones. Por mi parte me parece muy viable como alternativa usar VBA, y pues me queda la espinita de que MS ya debiese haber subsanado tal situacion (quizas se deba a cuestionas de compatibilidad, o haya algo mas en el transfondo), no nos queda mas que esperar, lo importante es que ya con todos los comentarios vertidos ya podemos elegir entre la funcion residuo (resto) u otra alternativa conociendo de antemano los limites (que almenos en mi ayuda en español de MS Excel no venia indicada). saludos cordiales

Hola Quede decir... ¡magnifica exposición del master pedro!... Por lo menos ahora ya sabemos a que atenernos jejejejeje saludos cordiales

Hola Yo igual deseo agradecer de forma especial a fleming, quien fue quien descubrio tales errores (bug de Excel), ahora habria que ver la forma de hacercelos llegar a MS (eso si es que les interesa jejejejej) saludos cordiales

Hola Maravillosas todas las explicaciones de los masters. Aunque viendo la ayuda de MS Excel y dado que la funcion no especifica un límite y si revisamos los limites de MS Excel tampoco se podria derivar de ahi el 'error' me atrevo a decir que es un bug de dicha funcion, por lo que tendremos que esperar a que en futuras versiones de excel sea corregido. Saludos cordiales EDITO: Solo para compartir: Abri el archivo en una hoja de calculo (de la competencia jejejej) que nuestro amigo y master verzulsan nos proporciono, y con las mismas formulas, donde arroja excel el error de #¡Num! alla si da los residuos =0

Hola Desde luego que todo el merito es para el master Antoni (porque a mi ni se me hubiera ocurrido jejejejejej). Y ya que estamos entrando en el pasado y puesto que no estamos tomando en cuenta el rendimiento ni nada por el estilo, que tal un bucle simulado, de los primeros que nos permitia VB de hace ya muchos antaños. Function xLen(Texto As Variant) As Integer 0 On Error Resume Next 1 Dim Cadena() As Byte, UboundCadena As Integer 2 'Obtenemos la longitud del texto 3 '------------------------------- 4 Cadena = Texto 5 Cadena(UboundCadena) = Cadena(UboundCadena) 6 If Err.Number = 0 Then 7 If Cadena(UboundCadena) > 0 Then xLen = xLen + 1 8 UboundCadena = UboundCadena + 1 9 GoTo 5 'bucle simulado 10 End If 11 End Function Sub test() 0 ' Para probar la funcion anterior 1 Dim a As Integer 2 a = xLen("Hola Antoni") 3 MsgBox "Número de caracteres: " & a, vbInformation 4 End Sub[/CODE] Saludos cordiales

Excelente tu trabajo jicotillo gracias por compartirlo saludos cordiales

Me uno a la solidaridad, en el ánimo de que pronto se reestablezca la normalidad en chile . saludos

Muchas gracias proper. Me parece que ha quedado maravillosa la nueva apariencia del foro, felicidades saludos

Agradecimiento Hola Vinzent Wow excelente , muchas muchas gracias por compartirlo saludos:)