Jump to content

josemaria

Members
  • Content Count

    737
  • Joined

  • Last visited

About josemaria

  • Rank
    Advanced Member
  • Birthday 03/30/1980
  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.
×
×
  • Create New...

Important Information

Privacy Policy