Macro visual basic para excel que me lleve a otra hoja al hacer click o doble click en una celda.
Necesito que al hacer click o doble click sobre una celda designada por variables, me lleve a otra hoja del libro actual.
La Macro que tengo creada, dibuja una tabla con tantas filas como hojas tiene el libro, y escribe en cada columna el nombre de la hoja, una cantidad, y el resultado de una operación. Quiero hacer que a continuación de cada fila, escriba "ir a la hoja", y al darle click o doble click, me lleve directamente a la hoja que corresponde a esa fila de la tabla recién creada.
Lo de "ir a la hoja" ya está hecho. Sólo necesito saber cómo hacer para al darle click, me lleve a esa hoja. (Por posición de hoja en el libro, no por el nombre de la hoja)
Cabe decir que llevo todo el día con esto y no doy con la tecla.
1 respuesta
Gracias por la ayuda. Subo la imagen.
H o l a:
Pon la siguiente macro en los eventos de tu hoja:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
u = Range("G" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("G2:G" & u)) Is Nothing Then
If UCase(Target.Value) = "IR A LA HOJA" Then
hoja = Cells(Target.Row, "B")
For Each h In Sheets
If UCase(h.Name) = UCase(hoja) Then
existe = True
Exit For
End If
Next
If existe Then
Sheets(hoja).Select
Else
MsgBox "No existe la hoja: " & hoja, vbexlcamation, "ERROR"
End If
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- Del lado derecho copia la macro
¡Gracias! Muy amable por la respuesta!! La probaré mañana en el trabajo.
Se me ha ocurrido una idea al volver a casa de cómo resolverlo de otra forma. Mañana la probaré también y la postearé.
Un saludo y muchas gracias de nuevo!
Funciona genial! Gracias de nuevo. .-)
Lo que pensé ayer que también funciona es hacerlo mediante hiperenlaces a cada una de las hojas; Siempre que crea una fila, al final añade el hiperenlace a esa hoja de la que obtiene los datos. Copio el código, por si a alguno le sirve.
WS_Count = ActiveWorkbook.Worksheets.Count
Range("J13") = WS_Count - 1
I = 2
fila = 14
columna = 2
Do While I <= WS_Count
Sheets(I).Select
nombreHoja = ActiveSheet.Name
Sheets("LISTADO PRECIOS").Cells(fila, 2).VerticalAlignment = xlCenter
Sheets("LISTADO PRECIOS").Cells(fila, 2).InsertIndent 1
Sheets("LISTADO PRECIOS").Cells(fila, 2) = nombreHoja
Sheets("LISTADO PRECIOS").Cells(fila, 3) = 0
Sheets("LISTADO PRECIOS").Cells(fila, 3).VerticalAlignment = xlCenter
Sheets("LISTADO PRECIOS").Cells(fila, 3).HorizontalAlignment = xlCenter
Sheets("LISTADO PRECIOS").Cells(fila, 4).VerticalAlignment = xlCenter
Sheets("LISTADO PRECIOS").Cells(fila, 4).HorizontalAlignment = xlCenter
Sheets("LISTADO PRECIOS").Cells(fila, 4).Value = "UD"
Sheets("LISTADO PRECIOS").Cells(fila, 5).HorizontalAlignment = xlRight
Sheets("LISTADO PRECIOS").Cells(fila, 5).InsertIndent 1
Sheets("LISTADO PRECIOS").Cells(fila, 5).VerticalAlignment = xlCenter
Sheets("LISTADO PRECIOS").Cells(fila, 5).NumberFormat = "#,##0.00 $"
Sheets("LISTADO PRECIOS").Cells(fila, 5) = "='" & nombreHoja & "'!O2"
Sheets("LISTADO PRECIOS").Cells(fila, 6).HorizontalAlignment = xlRight
Sheets("LISTADO PRECIOS").Cells(fila, 6).InsertIndent 1
Sheets("LISTADO PRECIOS").Cells(fila, 6).VerticalAlignment = xlCenter
Sheets("LISTADO PRECIOS").Cells(fila, 6).NumberFormat = "#,##0.00 $"
'Introduce la formula producto en la celda total
Sheets("LISTADO PRECIOS").Cells(fila, 6).FormulaR1C1 = "=PRODUCT(R" & fila & "C3, R" & fila & "C5)"
Sheets("LISTADO PRECIOS").Cells(fila, 7).VerticalAlignment = xlCenter
'crea un hiperenlace que apunta al nombre de la hoja que le damos
Sheets("LISTADO PRECIOS").Select
ActiveSheet.Hyperlinks.Add Anchor:=Cells(fila, 7), _
Address:="", _
SubAddress:="'" & nombreHoja & "'!A1", _
TextToDisplay:="Ir a la hoja"
fila = fila + 1
I = I + 1
hoja = hoja + 1
Loop
Si te funcionó lo que te envíe y no requieres de más información, podrías cambiar la valoración a la respuesta.
