Ir a hoja según celda activa
En mi libro trabajo con varias hojas donde cada una tiene nombre y tengo una hoja menu donde en la columna S esta una lista de todos de nombres de las hojas de calculo, con este código :
Sub Ir_a_kardex_tkt()
ActiveWorkbook.Sheets(Range("s2").Value).Activate
Range("A1").Select
End SubVoy a la hoja correspondiente, pero según el valor de la celda S2, como puedo hacer para que a cualquier celda de la columna S que seleccione vaya a la hoja correspondiente??
2 Respuestas
Respuesta de Dante Amor
1
H o l a:
si quieres la macro en el botón:
Sub Ir_a_kardex_tkt()
'Por.Dante Amor
If Not Intersect(ActiveCell, Range("S:S")) Is Nothing Then
hoja = UCase(ActiveCell.Value)
If hoja = "" Then Exit Sub
For Each h In Sheets
If UCase(h.Name) = hoja Then
existe = True
Exit For
End If
Next
If existe Then
Sheets(hoja).Select
Range("A1").Select
Else
MsgBox "El nombre de hoja no existe"
End If
Else
MsgBox "Selecciona una celda con nombre de hoja en la columna S"
End If
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
Respuesta de William Kennedy
1
Prueba utilizando este código, tienes que colocarlo en la hoja donde están los datos:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Hoja As String
On Error Resume Next
If Intersect(ActiveCell, Range("S1:S100")) Is Nothing Then
Exit Sub
Else
Hoja = ActiveCell.Value
ActiveWorkbook.Sheets(Hoja).Activate
ActiveWorkbook.Sheets(Hoja).Range("A1").Select
End If
End Sub