Jump to content

verzulsan

Members
  • Content Count

    890
  • Joined

  • Last visited

  • Days Won

    6

verzulsan last won the day on July 24 2011

verzulsan had the most liked content!

About verzulsan

  • Rank
    Advanced Member
  • Birthday 12/25/1980

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Una importante característica es que posee la capacidad de multiplicar los elementos tal como hacia Jesús. Si clickais varias veces en el grifo o en el desagüe, el vino rebosará la capacidad sin que este rebose. Los aportes de Antoni también mejoran como el vino.
  2. xD como mola, este no lo había visto.
  3. JAJAJA, ese Master Macroman. Arriba dije que en 2007 no peta pero tampoco enseñaba el comentario, lo puse cuando aun no sabia que en realidad no habia comentario que mostrar por que la shape estaba borrada. Lo de que se quede el triangulito rojo tras borrar la shape, es un poco absurdo ya que si no hay shape asociada, el triangulito rojo deberia desaparecer tambien. Pero bueno, se soluciona teniendo un poco de cuidado al usar macros para borrar masivamente las shapes con un "if(shape=4) no borrar" Un saludo!
  4. Vale, definitivamente Tema solucionado. Se me olvidó que tenia mas funciones que eliminaban las shapes, solo poner el condicional type 4 a las demas y funciona a la perfeccion con comentarios. Un saludo y podeis dar el tema por solucionado. No olvideis avisar a Microsoft sobre el bug de comentario sin shape.
  5. Nada, sigue petando pero ahora de otra forma. Con la nueva macro, creo el comentario, y me deja verlo, pero tras acceder a cualquier shape haciendo doble click en la definicion, algo cambia, cuando vuelvo a poner el raton sobre el comentario, excel peta. Es decir, me sigue borrando el comentario de la celda incluso con el condicional type=4. Primero lo toma como type=4 y no lo borra, pero tras incrustar otro shape, ya no es type 4... ¿Alguna idea?
  6. Bueno ya solucioné el tema agregando un condicional a la macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveSheet.Shapes.Count > 0 Then For Each s In ActiveSheet.Shapes If s.Type <> 4 Then s.Delete 'Borrado de todas las shapes de la hoja Next End If End Sub[/CODE] No pasaba que ejecutara la macro al navegar sobre el comentario, sino que un comentario es un shape, y nada mas crearlo, se produce el cambio de seleccion, es entonces cuando el shape es borrado pero excel sigue mostrando el icono de "comentario incrustado" cuando en realidad no hay ya nada, al intentar acceder a el, excel peta por que no han tenido en cuenta esta macro destroza shapes. El tipo de shape de los comentarios es "4". Excel deberia borrar el comentario tras detectar que ya no hay shape asociado a el. Es un bug que deberiais avisar a excel, asi ganais otro puntito para la web Un saludo!
  7. Hola, Adjunto un archivo en donde me está dando problemas una hoja en concreto, al crear un comentario y luego intentar leerlo, excel "Peta" y se cierra en versiones anteriores a 2007, a partir de 2007, simplemente el comentario no aparece por que seguramente debe ser borrado por la macro de la que hablo abajo. Lo raro es que es una macro que se activa por cambio de seleccion (y no se por que, pero creo que toma el raton flotante sobre el comentario como cambio de seleccion), tras lo cual, intenta borrar el comentario como si fuera un shape mas y... crash. he detectado que el codigo que da problemas es el siguiente, perteneciente a la hoja "BD" Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Si hay Shapes se borran todas las shapes If ActiveSheet.Shapes.Count > 0 Then For Each s In ActiveSheet.Shapes s.Delete 'Borrado de todas las shapes de la hoja Next End If End Sub[/CODE] El codigo lo único que hace es borrar todos los objetos shapes cuando se cambia de celda. Solo se me ocurre ponerle un condicional para que si es un comentario no lo borre, pero no entiendo por que se activa si no he cambiado de celda. Gracias de antemano por la ayuda. Un saludo. Temario Sistemas (8,9,10).zip
  8. Ahhh ahora si Gerson jeje, soy tan cazurro que solo he metido texto. Gracias por la explicacion. Un saludo!
  9. 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
  10. 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
  11. 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
  12. 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!
  13. 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!
  14. 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)
  15. 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.
×
×
  • Create New...

Important Information

Privacy Policy