Copiar Celda con Formulas Excel

[rishart]

Hola amigos buenas noches, espero esten iniciando muy bien el fin de semana.

El motivo por el cual realizó este post es para solicitar su ayuda con el siguiente caso:

Son 3 celdas las involucradas

una celda contiene una imagen, la segunda celda contiene un numero y en la tercera celda va el resultado.

mi duda es:

por ejemplo:

Me gustaria que al poner un "1" en la celda 3 al darle enter, compare el num de la celda 3 con el de la celda 2 y si son iguales me copie la imagen de la celda 1.

muchas gracias por su ayuda espero puedan ayudarme y me haya dado a explicar con el ejemplo.

sin mas por el momento quedo en espera de sus respuesas. gracias

[mrocf]

No entendí lo siguiente:

Iniciado por rishart

... me copie la imagen de la celda 1 ...

Que te copie la imagen, ¿hacia dónde?

[rishart]

que la imagen se copie de una celda a otra

[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.

[rishart]

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.