Jump to content

josemaria

Members
  • Content Count

    737
  • Joined

  • Last visited

Everything posted by josemaria

  1. hola bigpetroman; anda que no le di yo vueltas y mira lo que era, jejej. muchisimas gracias funciona a la perfeccion. Un SAludo.
  2. Hola; tengo esta macro: Sub buscaryborrar() Dim Borrar As Boolean Borrar = False valor_buscado = InputBox("Introduzca el valor a buscar y borrar", "Valor a buscar") On Local Error Resume Next If valor_buscado <> "" Then Do While Err.Number = 0 Columns("C:Z").Select Selection.Find(What:=valor_buscado, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate If Err.Number = 0 Then ActiveCell.Select Selection.ClearContents Borrar = True End If Loop Range("C1").Select If Borrado = True Then MsgBox "Valores encontrados y borrados", vbInformation, "Borrados" Else MsgBox "Valor no encontrado.", vbExclamation, "No encontrado" End If Else MsgBox ("Valor no válido") End If End Sub [/CODE] Lo que hace es buscar en un rango los caracteres que quieres borrar y los borra. Lo que a mi me interesa borrar es el valor 0.0, pues bien me borra todos los 0.0 pero tambien los 20.0, 30.0, 10.0 , etc. Existiria alguna manera de que solo y exclusivamente me borre los 0.0? Gracias.
  3. Muchisimas gracias Gengis Khan; es exactamente eso. Gracias de verdad
  4. Hola Gengis Khan; Perdona pero me he expresado fatal. Realmente lo que quiero es que cuando seleccione la celda A2, me muestre la imagen correspondiente y en el textbox me muestre el texto que hay en b2(por ejemplo), y conforme baja seleccionando celdas de la columna A, se modificque tanto la imagen como el texto. Tal y como está ahora mismo la imagen lo hace correctamente pero en el textbot se muestra lo que hay en la columna A, no lo que hay en la columna B. Gracias. Un Saludo.
  5. Hola; en la Macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("A2:A6")) Is Nothing Then Image1.Picture = _ LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg") End If End Sub[/CODE] he insertado el codigo para el textbox1: [CODE]Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("A2:A6")) Is Nothing Then Image1.Picture = _ LoadPicture(ActiveWorkbook.Path & "\imagenes\" & Target & ".jpg") End If If Not Intersect(Target, Range("b2:b6")) Is Nothing Then TextBox1.Text = Target.Value End If End Sub[/CODE] dentro del texbotx1 se cambia el codigo que hay en la columna A pero yo quiero que cambie el contenido de otra columna, por ejemplo la B, que tendría que poner despues de: TextBox1.Text = para que se ponga el rango correspondiente a otra columna?? Gracias. Un Saludo Jose Maria.
  6. Hola Gengis Khan; Muchas gracias por la opcion del textbox, estudiare la opcion a ver somo lo hago y te cuento. P.D.: Esto se está quedando de lujo con la caratura y la psinosis, parece hasta de profesionales, jeje Un Saludo. Jose Maria
  7. Hola Gengis Khan; que importante es saber, puff, no te imaginas las vueltas que le he dado, jejje. Por cierto, si me permites voy a hacerte una pregunta mas y perdona que abuse en la hoja de Busqueda, a parte de la imagen quiero que acontinuación me devuelva tambien la Psinopsis de la pelicula que yo seleccione como hago con la imagen. Mi pregunta, como no se como hacerlo mas facil, utilizo el mismo tratamiento que con las imagenes, (hago la psinosis imagen), o se podria mostrar de otra forma? Gracias. Un Saludo.
  8. Hola; Llevo intentandolo un monton de tiempo y de maneras distintas pero se me escapa algo y no hay manera de que aparezca la foto. Gracias a la ayuda de un aporte de Ioyama en el excel adjunto en la hoja busqueda, puedo buscar por distintos campos, id_pelicula, titulo, año, etc, etc. Y viendo algunos ejemplo de imagenes me gustaria que se visualizase la imagen de la celda a6 de la hoja busqueda. Los datos provienen de la otra datos. En la hoja de datos tambien he intentado que se visualice una imagen que esta en la carpeta "imagenes", con la macro worksheet_SelectionChange, pero tampoco hay manera en la hoja de datos. Lo he intentado ahí para ver que estaba haciendo mal en la hoja busqueda pero no ha salido en ninguna. Podriais decirme que estoy haciendo mal. Gracias. http://dl.dropbox.com/u/15249731/ayudaioyama.rar Un Saludo.
  9. Feliz año a todos, espero que os vaya muy bien en este año que comienza y que se acaben las crisis , los desaucios y todas las cosas malas! Un Saludo. Jose Maria.
  10. Hola Verzulsan; acabo de ver pasar mis años de universidad en un momento con tu reloj, jejeje. que tiempos aquellos del pascal y c++. Muy bueno el ejemplo, voy a ver si encuentro algun grafo de antaño, jejej. Por cierto Macro, el reloj funciona en 2007 a la perfección pero en 2003 no se llega a ejecutar se para en la linea: ".ShapeRange.TextFrame2.TextRange = Valor". Un Saludo. Jose Maria.
  11. Hola Macro Antonio; no, no en absoluto, estaba intentando volver a decirte que eres un crack y que nuevamente un nuevo aporte tuyo me a ayudado muchisimo. Gracias Nuevamente. En cuanto acabe como me ha quedado lo subo por si puedes verlo. Editado: llevo un rato intentando pasar los kb que me devuelve el archivo a Gb, y no me coincidia y no sabia que estaba haciendo mal. Me he ido al vb y zas, "Cells(i + filas + 1, j).Value = ArrFile(j, i) / 1000", dividia por 1000 cuando en realidad es por 1024 jejej. Un Saludo. Jose Maria.
  12. imprisionante , no puedo decir otra cosa, jeje
  13. Muchisimas gracias por el aporte. Tengo un disco duro, bueno varios, lleno de peliculas y hacer una base de datos se me esta haciendo pesadisillo, y sacar el tituto y año y capacidad , etc, a sido sencillimo. Muchas gracias. Un Saludo.
  14. Hola Ioyama; Perfecto, para variar. Ademas es una manera de simplificar la formula. Aunque despues de mucho insistir tambien ha funcionado con esta formula: =SI(O(DIASEM(C$57;2)=6;DIASEM(C$57;2)=7);GUARDIAS2;PRESENCIAL) y te juro que ni idea de porque no funcionaba. Aunque con tu permiso voy a amoldarlo a tu formula que es mas corta y me gusta mas, jeje. Nuevamente muchas gracias por todo. Un SAludo. Jose Maria.
  15. Hola a todos; creo que esto es de "pero grullo", pero no consigo que me funcione Tengo unas celdas con Formato Condicional con la siguiente formula =O(DIASEM(C$57;2)=6;DIASEM(C$57;2)=7) cuando cumpla esa condición me pinta la celda de gris. (La condicion es que si es fin de semana, sabado o domingo me pinte la celda de color gris). Por otro lado tengo creado un "Nombre" -->(LISTA) que contiene los valores (1,2,3,4) y en Datos-->Validación--> Lista -->=LISTA hasta ahí todo perfecto. Lo que estoy intentando hacer es que si la celda coincide con sabado o domingo, que la lista que me devuelva sea LISTA2. Lo mas intuitivo seria usar la funcion si --> SI(O(DIASEM(C$57;2)=6;DIASEM(C$57;2)=7);LISTA2;LISTA) pero no me deja. me salta un error "La fuente de la lista debe ser una lista delimitada o bien una referencia a una fila o columna individual". se puede poner una funcion condicional en la validacion, es que no se me ocurre otra forma de poder hacerlo para que se quede automatico. Gracias. Un Saludo. Jose Maria.
  16. ioyama, !, pues no te imaginas lo que me esta costando, anoche me acoste tarde viendo GANAR al Real Madrid, y esta mañana tenia un sueño... te acostumbras a acostarte tarle y luego levantarte temprano, puff. Pero bueno ya estamos. Espero que te vaya todo bien Luis muchas gracias por unir el post. Por mi puedes cerrarlo cuando veas conveniente. Un Saludo. Jose Maria.
  17. Felicidades campeon, un pelin tarde, jeje pero bueno.
  18. Hola Macro; Ante todo pedirte disculpas porque me fui de vacaciones y no te respondi como debiera. Me refiero al tema: Pendiente Enviar correo desde excel con imagen adjunta Para refrescarte un poco el tema, me esteviste ayudando para conseguir, desde un boton, enviar un correo electronico que tuviera incrustada una imagen. En un principio no funcionaba, cuando estaba probando en el trabajo, al llegar a casa y probar funciono!!. Al dia siguiente segui probando en el trabajo y no funcionaba, era incomprensible porque tengo las mismas versiones de excel. Hasta que me dio por pensar "El puerto"!!. Efectivamente, fui a ver al responsable de sistemas y le comente lo que estaba haciendo y me dijo que era imposible abrir el puerto que utilizaba gmail porque eso depende de la Junda de Andalucia, tal y tal. Despues intente usar el correo corporativo pero no me funciono y lo deje. Resumiendo, el motivo por el que no me funcionaba es que los puertos estan cerrados y no puedo utilizarlos. Como siempre, muchas gracias por todo y disculpa mi irresponsabilidad por no responderte antes, me fui de vacaciones por completo, jeje. P.D.: No respondo en el otro tema porque esta cerrado. Un Saludo.
  19. Hola Macro; la verdad es que despues del dia que llevo dandole vueltas, en el ordenador del trabajo. Llego a casa y zas!, funciona, y como bien has dicho , van a ser las referencias. Como llevas eso de saberlo todo!!!!!!!, jjejeje, mil gracias, de verdad. Un saludo. Jose Maria.
  20. Hola Macro; acabao de probar con 2003 y con excel 2007, en los dos casos se para la macro en la misma linea de codigo '.send que mala suerte............ Un Saludo. Jose Maria.
  21. Hola Macro; que cosa mas rara, porque es el mismo archivo con distinto correo electronico.......... Un Saludo. jose Maria. Rango a imagen y enviar email II.xls
  22. Un dia tarde pero he llegado , jjeje felicidades caballerooooooooooooooo!
  23. Hola Macro; dios te oiga!!!. ahora se me a parado en el ".send" With objMessage .To = "guardiasephpo@gmail.com" .CC = "" .From = "guardiasephpo@gmail.com" .Subject = "Pueba de envío de rango como imagen" .HtmlBody = HtmlBody .Send End With[/CODE] ha esto no le encuentro la explicación, porque pasa igual con 2003 y 2007, y todos los codigos parecidos que veo por internet de enviar correo tienen el .send de la misma forma. Con 2007, cuando prove hace varios dias ya se me paraba en esta parte de la macro. nuevamente muchas gracias por tu interes. Un Saludo. Jose Maria.
  24. Hola Macro; aqui sigo dandole vueltas al Shapes. He encontrado un foro en el que supuestamente resuelven el problema, pero ..... yo sigo sin conseguirlo, dan de respuesta : Sub AddChartObject() With ActiveSheet.ChartObjects.Add _ (Left:=100, Width:=375, Top:=75, Height:=225) .Chart.SetSourceData Source:=Sheets("Sheet1").Range("A3:G14") .Chart.ChartType = xlXYScatterLines End With End Sub[/CODE] el enlace donde lo he mirado es : Toutes versions Compatibilité VBA entre Exel 2003 et 2007 Un Saludo.
  25. Hola Macro; no me gusta rendirme , pero no se que probar mas. En un principio despues de buscar la ayuda y de probar algunso metodos de Shapes en 2003 (AddOLEbject, addPicture, etc) empece a goglear pensando en que ha alguien maas le pasaria, y encontre algunas paginas: - 2007 macro Shapes.AddChart does not work in 2003 y despues di con esta, que tuve que registrarme: - Code to make a chart in 2010 does not work in 2003 En el post de " romperstomper" pone de cambiar la linea de codigo que da error por: Añadir chars.add y utilizar - Activechart.Location xlLocationAsObject, "sheet name here" pero por vueltas y cambios que hago o consigo que se ejecute. no consigo hacerlo funcionar , lo siento Un Saludo. Jose Maria
×
×
  • Create New...

Important Information

Privacy Policy