Boton volver a celda anterior

2 envíos / 0 nuevos
Último envío
juanexpleo
Imagen de juanexpleo
Offline
última acción: Hace 3 años 11 meses
alta: 16/04/2020 - 11:37
Puntos: 25
Boton volver a celda anterior

Hola buenos dias,

tengo una base de datos en la que tengo un indice que me lleva al contenido clicando en la celda correspondiente, pero quiero agregar un boton que este siempre visible y que al pulsarlo me lleve a la celda anterior (es decir al indice).

Tengo este codigo para que el botón este siempre visible.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim fila, columna As Variant
fila = Target.Row
columna = Target.Column

With ActiveSheet.Shapes("ZurueckBtn")
    '.Left = Cells(fila, columna + 1).Left'
    .Top = ActiveCell.Top
    '.Height = ActiveCell.Height'
    
End With

Set CeldaActiva = ActiveCell

End Sub

y este otro codigo en el botón.

Sub ZurueckBtn_Klicken()
    Sheets("Tabelle1").Activate
    CeldaActiva.Select
End Sub

El problema es que cuando pulso el botón, me dice que no encuentra el objeto "CeldaActiva.Select"

Alguien puede echarme una mano?

Muchas gracias!

RET
Imagen de RET
Offline
última acción: Hace 3 años 8 meses
alta: 01/06/2020 - 13:29
Puntos: 290
Boton volver a celda anterior

Donde estás declarando la variable CeldaActiva?

No la tienes declarada (mala práctica). Eso significa que cuando haces el Set en la Sub Worksheet_SelectionChange  tiene el ámbito de esa Sub y se destruye en cuanto finaliza la misma. Cuando entrás en la Sub ZurueckBtn_Klicken esa variable ya no existe.

Si ambas SUb están en un mismo módulo, antes de cualquier Sub, pon un Dim CeldaActiva as Range para que la variable sea de ámbito de módulo. Si no, defínela como Global

 

IMF_RET

Visitame en https://InformaticaMuyFacil.com