Saludos amigos foreros, os escribo para ver si entre todos me podeis hechar un cable, he leido posts parecidos, pero mi duda es diferente, segun un valor en una celda, quiero que aparezca una imagen u otra, las imagenes van a estar en la misma hoja, y quiero que esten ocultas, solo que aparezca la que el nº de celda está, aqui os paso lo que he hecho...
Cita: Dim Direccion As String
Dim Cambiar As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Valor = Range("K3").Value
If Valor > 100 Then
ActiveSheet.Shapes("Imagen 7").Visible = False
ActiveSheet.Shapes("Imagen 9").Visible = False
ActiveSheet.Shapes("Imagen 11").Visible = False
ActiveSheet.Shapes("Imagen 13").Visible = False
ActiveSheet.Shapes("Imagen 15").Visible = False
ActiveSheet.Shapes("Imagen 17").Visible = False
ActiveSheet.Shapes("Imagen 19").Visible = False
ElseIf Valor = 1 Then
ActiveSheet.Shapes("Imagen 7").Visible = True
ElseIf Valor = 2 Then
ActiveSheet.Shapes("Imagen 9").Visible = True
ElseIf Valor = 3 Then
ActiveSheet.Shapes("Imagen 11").Visible = True
ElseIf Valor = 4 Then
ActiveSheet.Shapes("Imagen 13").Visible = True
ElseIf Valor = 5 Then
ActiveSheet.Shapes("Imagen 15").Visible = True
ElseIf Valor = 6 Then
ActiveSheet.Shapes("Imagen 17").Visible = True
Else
ActiveSheet.Shapes("Imagen 19").Visible = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Direccion = ActiveCell.Address
Cambiar = True
End Sub
muchas gracias!!