Cita:
Iniciado por mrocf Una relación automatizada entre valores en celda e imágenes, puede venir dada por una macro de evento de la hoja (evento Change). Por ejemplo:
Código PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myImg As Shape
With Target
If .Columns.Count + .Rows.Count > 2 Then Exit Sub
If .Address <> "$C$2" Then Exit Sub
If .Value <> .Offset(, -1) Then Exit Sub
End With
For Each myImg In ActiveSheet.Shapes
If myImg.TopLeftCell.Address = Target.Offset(, -2).Address Then
With myImg.Duplicate
.Left = Target.Left: .Top = Target.Top
End With
Exit For
End If
Next
End Sub
La idea será:
a) Modificar el valor de la celda C2
b) Si ese valor es distinto al de la celda B2: ¡no pasa nada!
c) Si ese valor es igual al de la celda B2: se copia en C2 la imagen "montada" sobre A2.
Prueba lo mostrado y comenta, por favor.
Saludos, Cacho R.
Muchas Gracias mrocf
El ejemplo funciona a la perfección, solo si no es mucha molestia y debido a que no le entiendo muy bien la programación me gustaria si puedes ayudarme.
con el ejemplo que me proporcionas veo la logica en el cual se tiene una celda fija con el valor es decir a2: imagen b2: valor fijo c2: valor a comparar para copiar imgen.
Me gustaria si pudieras ayudarme para que el valor fuera asi por ejemplo:
A1: Imagen
B2: Valor fijo
y los valores a comprobar sean por ejemplo: D3,E3,F3,G3,H3,I3,J3,K3...
D4,E4,F4,G3,H4,I4,J4,K4...
y que en cada una de esas celdas al poner el mismo valor q hay en B2 se ponga la imagen que hay en A1.
Te agradezco mucho tu ejemplo y tu tiempo, muchas gracias y ojala puedas ayudarme con este ejemplo que no tengo mucha idea de como hacerlo.