Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo un problema en mi macro, ya que se ejecuta solamente al reescribir sobre la celda J23
Quisiera que se ejecute de manera automática al realizar un nuevo cálculo en la hoja, como podria solucionarlo?
Dejo mi código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rango As String
Rango = "J23"
If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then
For i = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes(i).Visible = True
Next i
For i = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(i).Name = Range("J23").Text Then
ActiveSheet.Shapes(i).Visible = False
Exit For
End If
Next i
End If