1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

Solucionado Visualizar imagen si se cumple condiciones

Tema publicado en 'Macros y programación VBA' iniciado por Allan, 3 Mar 2012.

Estado del tema:
Cerrado para nuevas respuestas
  1. Allan

    Allan Usuario

    Registrado:
    16 Sep 2009
    Mensajes:
    80
    Me Gusta recibidos:
    0
    Gracias de antemano..\

    Alguien me podria explicar como se inserta este tipo de imagen (archivo tomado de un tema ya cerrado) por mas que intento no logro entender como hacen para que el logo aparesca segun la condicion de esa celda .. es justamente lo que necesito hacer para un trabajo de la universidad.

    este es el Link del tema.. intento entender la solucion que dio "toldeman".
    http://www.ayudaexcel.com/foro/form...opiar-imagen-si-se-cumplen-condiciones-21533/

    tambien adjunto el archivo


    Gracias.

    Allan

    Adjuntos:

  2. Toldeman

    Toldeman Moderador Staff AyudaExcel

    Registrado:
    11 May 2008
    Mensajes:
    3.040
    Me Gusta recibidos:
    146
    Hola allan.

    Pongo el codigo:

    PHP:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If [
    E28] = "s" Then
    Worksheets
    ("sobres").Shapes("Picture 3").Visible True
    Else
    Worksheets("sobres").Shapes("Picture 3").Visible False
    End 
    If
    End Sub
    Este codigo esta en la hoja donde esta el logo y se dispara cuando existe un cambio en la celda [E28] y este coincide con la letra "s".

    Puedes ajustarlo a cualquier celda o rango de tú hoja indicando la condicion o condiciones que tiene que a ver para que se ejecute.

    Un saludo.
  3. Allan

    Allan Usuario

    Registrado:
    16 Sep 2009
    Mensajes:
    80
    Me Gusta recibidos:
    0
    Muchas gracias por tu respuesta, pero intenté aplicar el codigo y no pude definir donde se pone ese codigo .. te paso mi archivo para que lo veas.. lo que quiero es que si en [B18] dice "she" aparesca la imagen de rosado y si dice "he" aparezca la imagen azul.

    muchisimas gracias..

    Adjuntos:

    • prueba.zip
      Tamaño de archivo:
      97,4 KB
      Visitas:
      37
    Última edición: 3 Mar 2012
  4. Toldeman

    Toldeman Moderador Staff AyudaExcel

    Registrado:
    11 May 2008
    Mensajes:
    3.040
    Me Gusta recibidos:
    146
    Hola.

    Pulsa las teclas alt + f11 y una vez en el editor vba doble clik en la hoja y pegas este codigo.

    PHP:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If 
    Target.Address <> "$B$18" Then Exit Sub
    If [B18] = "she" Then
    Sheets
    ("Sheet3").Shapes("Picture 4").Visible True
    Else
    Sheets("Sheet3").Shapes("Picture 4").Visible False
    End 
    If
    If [
    B18] = "he" Then
    Sheets
    ("Sheet3").Shapes("Picture 6").Visible True
    Else
    Sheets("Sheet3").Shapes("Picture 6").Visible False
    End 
    If

    End Sub

    Un saludo.
  5. Allan

    Allan Usuario

    Registrado:
    16 Sep 2009
    Mensajes:
    80
    Me Gusta recibidos:
    0
    funciona perfecto, muchisimas gracias Toldeman por tu ayuda.

    Un cordial y afectuoso abrazo desde Costa Rica.

    Doy el tema por cerrado.

    Allan
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página