Tengo un problema en mi codigo VBA es el siguiente ya que me oculta todas las imagenes en mi hoja y solo quiero que me oculte una que es el nombre de la imagen que lo pongo en la celda J23:
Private Sub Worksheet_Change(ByVal Target As Range)
Rango = "J23"
If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then
For i = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(i).Name <> Range("J23").Text Then
ActiveSheet.Shapes(i).Visible = False
Else
ActiveSheet.Shapes(i).Visible = True
End If
Next
End If
End Sub
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo un problema en mi codigo VBA es el siguiente ya que me oculta todas las imagenes en mi hoja y solo quiero que me oculte una que es el nombre de la imagen que lo pongo en la celda J23:
Private Sub Worksheet_Change(ByVal Target As Range)
Rango = "J23"
If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then
For i = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(i).Name <> Range("J23").Text Then
ActiveSheet.Shapes(i).Visible = False
Else
ActiveSheet.Shapes(i).Visible = True
End If
Next
End If
End Sub