Ver Mensaje Individual
  #5 (permalink)  
Antiguo 08/10/2011, 09:34
rishart
 
Fecha de Ingreso: enero-2008
Mensajes: 181
Antigüedad: 16 años, 9 meses
Puntos: 1
Respuesta: Copiar Celda con Formulas Excel

Cita:
Iniciado por mrocf Ver Mensaje
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(, -1Then 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.