verzulsan

Ahhh ahora si Gerson jeje, soy tan cazurro que solo he metido texto. Gracias por la explicacion. Un saludo!

Hola Gerson, No he entendido demasiado bien el proposito de la funcion. He descargado el archivo pero no hace nada en la zona verde al escribir o modificar. Un saludo

Hola Pedro, Nunca habia visto nada tan raro en excel con las formulas, la verdad que me ha molado, ahora resulta que sí se pueden hacer formulas circulares y encima esta guarda un ahora() de forma estatica. Mola mucho. Aun no la entiendo pero la estudiaré. Siempre sorprendiendo Un saludo amigo

Hola, Os dejo aqui un archivo auxiliar que hice por necesidad de crear una animacion de casilla en un programa de ajedrez que ando haciendo en C++, como ya esta terminada esa fase de animacion, lo iba a guardar en el baul y me acordé de vosotros, quizas os guste para tener mas flexibilidad a la hora de pintar del color que mas os interese el color de fondo de las celdas. Aqui la formula, donde Pix.R, Pix.G y Pix.B han de ser sustituidos por el valor ROJO, VERDE, AZUL que os interese en un rango entre 0 y 255, habrá otros metodos pero este es el mio: Dim P8 As Double: P8 = 2 ^ 8 'potencias de colores Dim P16 As Double: P16 = 2 ^ 16 'potencias de colores Pix.R + (((Pix.G + 1) * P8) - P8) + (((Pix.B + 1) * P16) - P16)[/CODE] Para pintar la celda del color deseado, solo hay que usar la propiedad de celda: Range(A1).Interior.Color = FORMULA DE ARRIBA Os dejo tambien el archivo de pruebas, a ver si os da ideas para alguno de vuestros proyectos. Un saludo! Eligiendo colores2.zip

Uisshhhhhhhh, casi xD, cuando puse Multi Extract Data estaba pensando en "Microsoft Extract Data" (en español), pero me pareció muy cutre y lo cambié por Multi Un saludo!

Hola Rafael y Antoni, Estoy con master Antoni, muy ingenioso. Aqui te dejo una version simplificada de la macro quitando toda la parafernalia del grabador de macros: Sub macro8() ActiveCell = Cells(1, 1).Formula mcadena = Range("a1") ActiveCell.Characters(Start:=Len(mcadena), Length:=1).Font.Superscript = True End Sub[/CODE] Un saludo!

Muy buen trabajo Pedro como siempre. ¡Te estas volviendo muy friki eh! me va a costar pillarte Lo de los cambios es algo que si son para bien se aceptan facil pero este tipo de cambios la verdad que mosquea si no le ves el sentido. Haced como yo y buscar reglas nemotecnicas como por ejemplo, MED=Extraer?, pues podria ser.... hmm .... "Mega Extraer Datos" xD, o Multi Extract Data. Un saludo en orden de aparicion (Pedro, Gerson y Never)

Muy bueno Gerson. Bastante útil para algunos casos, como por ejemplo una presentacion en la que sobran esos elementos y se necesita una mayor vision global. Un saludo amigo.

Hola Pedro, varias cosillas. He estado analizando el archivo y lo que te comenté del scroleo de la pantalla me ocurre debido al evento Application.ScreenUpdate, lo he quitado de en medio y me va perfecto sin scrolear, supongo que se deberá al equipo que uses, version, Sistema operativo etc, unos lo notaran, otros no, pero a mi con eso ya se me quita. Otra cosilla. El tema de la memoria ocurre en la funcion ValorReloj. He marcado en rojo las lineas que te estan creando el problema (quizas se me haya escapado alguna) y en verde la importancia de consumo. Cada vez que la celda A1 de la hoja "relojes" se actualiza con Now, Excel pide 250Kb mas de memoria a razon de 1 megabyte cada 4 actualizaciones. No se exactamente que tienes asociado a esa celda pero solo ocurre con esa. Revisa el codigo a partir de estas lineas a ver si consigues averiguar algo. Sub ValorReloj(Optional GMT As String, Optional valGMT As Single, Optional fila As Long = 0) Dim valTiempo As Date Dim strGMT As String If ActiveSheet.Name <> "Mundo" And _ ActiveSheet.Name <> "Relojes" Then Exit Sub valTiempo = ConvertLocalToGMT(Now, True) With Sheets("Relojes") .Range("A1") = Now [COLOR="Green"]'Esta linea consume unos 250kb/s[/COLOR] [COLOR="Red"]'.Range("C1") = valTiempo[/COLOR] End With With Sheets("Mundo") If GMT = "" Then valGMT = .Range("C55").Value strGMT = ValorGMT(valGMT) Else strGMT = GMT End If valTiempo = valTiempo + valGMT / 24 [COLOR="Green"]'Esta linea consume 4kb/s[/COLOR] [COLOR="Red"]'.RelojDigital.Value = strGMT & " " & TimeValue(valTiempo) & " " & DateValue(valTiempo)[/COLOR] If fila = 0 Then fila = .Range("C56").Value If fila = 0 Then fila = valGMT + 14 [COLOR="Green"]'Esta linea consume 40-50kb/s[/COLOR] [COLOR="Red"]'CopiaReloj "Reloj0", fila, strGMT[/COLOR] Else fila = fila + 2 [COLOR="Green"]'Esta linea consume 40-50kb/s[/COLOR] [COLOR="Red"]'CopiaReloj "Reloj0", fila[/COLOR] End If Else [COLOR="Green"]'Esta linea consume 40-50kb/s[/COLOR] [COLOR="Red"]'CopiaReloj "Reloj0", fila[/COLOR] End If End With End Sub[/CODE] Sustituye la funcion por esa, veras como ya deja de consumir, asi vas haciendo pruebas con cada linea por separado. Un saludo amigo

Mola mucho Mauricio, no sabia que se podia controlar la cancelacion de una forma tan simple. Gracias por el tip. A ver si consigo que capture errores infinitos por que a la segunda suelta error de verdad. Un saludo amigo

Jeje, me alegra que te gustara josemaria. Se puede cancelar facil con (control+break) o (windows+d), pensaba hacer la broma mas pesada cancelando las teclas de control, break y windows pero aun no tengo muy controlado el tema de hook del teclado y no me merecia la pena si queria acabarlo antes de que acabara el dia de los inocentes. jeje Un saludo!

Buenas, Aqui os dejo una pequeña tonteria para alegrar la mañana de este día Saludos! PD: Dedicado a los Macronianos RatonBorracho_vzs.zip

Hola Pedro, ayer no te contesté por que lo miré por encima. Creo que has realizado un trabajo excelente. Lo volveré a mirar cuando termine una implementacion en un proyecto que ando metido, por eso no lo pude mirar en profundidad por que el codigo que has usado es muy extenso. Cuando lo vuelva a mirar en mayor profundidad te comentare lo que vaya notando, Te comento por encima lo que noté ayer: En excel 2000 y 2003 casca, solo va en versiones iguales o superiores a 2007, (Quizas deberias ponerle un detector de version para que solo intentara arrancar en caso de versiones aceptadas, creo que tengo el codigo por algun lado). Desde mi punto de vista, creo que esta sobresaturado de eventos, mi ordenador es relativamente nuevo y en el tiran bien la mayoria de los juegos modernos, aun asi, tu hoja tiene demasiado parpadeo, lag entre procesos, como si le costara tirar del carro. Si es solo de pruebas esta bien que sea asi, pero quizas no le vendrian mal un par de restricciones segun un panel de control que solo activara lo que necesitas asi liberas la hoja de procesos innecesarios. Ya te digo que todo lo de arriba esta basado en unos minutos que estuve mirandolo y no pude comprender bien la utilidad, por lo que prefiero esperar a mirarlo detenidamente para darte una respuesta mas constructiva por que tiene realmente muy buena pinta. Un saludo amigo

Re: Ejercicios con el raton para novatos del excel (Nivel basico de ingles requerido) Thanks por la traduccion Luis. Ya he cambiado el titulo del post e indicado en un PD que existe la version en español. Solo falta que algun moderador cambie el titulo real general del post por que ese no me deja cambiarlo a mi. Buen trabajo tio, un saludo!

Las modificaciones las hice con excel 2003 y ahi si va perfectamente, lo acabo de probar con 2007 y efectivamente no cambia de colores. En modo depuracion parece que entra en la funcion GetAsyncKeyState una vez y luego ya no vuelve a entrar, no se por que, lo miraré a ver si puedo arreglarlo aun que no soy muy de 2007 jeje. Te molaron las mama noel eh? . Que va, no lo he hecho a mano, no estoy tan loco. Hace un tiempo me hice un excel para importar valores RGB desde una imagen, estos valores son asignados a cada celda con el formato "(R,G,", luego proceso la tabla de valores con la funcion que aparece en el excel modificado de antoni que he adjuntado "PintarImagen" en el modulo3, y me pinta toda la imagen sola. Bueno miraré eso un ratejo que luego me tengo que poner con un ajedrez que estoy haciendo en c++ EDIT: Ya he averiguado algo. La funcion se comporta de manera diferente en 2007, si haces click no surte efecto, pero si mueves el raton es entonces cuando se activa... EDIT2: Solucionado, al haber sido guardado con excel 2003, el 2007 lo abría en modo compatibilidad y tenia un comportamiento extraño. La solucion ha sido guardar el libro con formato de macros para 2007 y ya funciona, no ha sido necesario realizar ningun cambio. En el adjunto esta el libro, si lo abris con 2003 usad el otro, y si lo abris con 2007 usad este, tambien podeis abrir el de 2003 desde el 2007 y hacer vosotros mismo la transformacion a compatibilidad de macros 2007, luego cerrais, lo reabris y listo. Un saludo! PD: Menuda tonteria que no se puedan subir mas de 100kb pero si uno de mas de 100 partido en cachos... tendreis que unirlo por que ocupa mas en xlsm que en xls... PintarCuadros_antoni_vzs.part1.rar PintarCuadros_antoni_vzs.part2.rar