Ver Mensaje Individual
  #4 (permalink)  
Antiguo 02/10/2011, 14:07
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 7 meses
Puntos: 88
Busqueda Respuesta: Copiar Celda con Formulas Excel

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.