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!
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