Jump to content
Sign in to follow this  
cangrejo

¿Como acceder a una hoja de mi libro al pulsar un botón?

Recommended Posts

Hola.

He creado un libro de excel con 11 hojas, la primera de ellas es una portada en la que he creado 10 botones para acceder al resto de hojas.

El caso es que he creado un macro en cada botón para que al pulsar me redireccione a la hoja del libro correspondiente, pero siempre me deja en la celda A1 y lo que yo quiero es que me deje en la primera celda libre, es decir, que si he escrito en A1, A2, A3...A10, cuando habra el libro me ponga en A11 para escribir directamente y no tener que desplazarme hasta allí.

El macro sería algo así como: Cuando pulse el botón número 1, llevame a la hoja 1 del libro y ponme en la primera casilla en blanco de la columna 1 ¿Alguien puede ayudarme a hacer este sencillo macro?

Share this post


Link to post
Share on other sites

Sub SeleccionaHoja()

Application.ScreenUpdating = False

Dim Celda As Range

Sheets("Hoja2").Select

For Each Celda In Range("A:A")

If Celda = "" Then

Celda.Select

Exit For

End If

Next

End Sub

Saludos,

Share this post


Link to post
Share on other sites

Si la hoja se llama DILIGENCIAS ¿Cómo sería el macro a escribir?

Entiendo que así:

Sub Elipse_Haga_clic_en()

Application.ScreenUpdating = False

Dim Celda As Range

Sheets("DILIGENCIAS").Select

For Each Celda In Range("A:A")

If Celda = "" Then

Celda.Select

Exit For

End If

Next

End Sub

Y en el segundo caso:

Sub Diligencias()

Sheets("DILIGENCIAS").Select

Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select

End Sub

Creo que así está correcto, ya me direis.

Estoy muy verde en el tema macros, utilizo oficce 2010, a ver si me podeis indicar una especie de paso a paso de como proceder.

Share this post


Link to post
Share on other sites

Hombre, se supone que debes ponerlo en tu procedimiento

[COLOR=#333333]Sub Elipse_Haga_clic_en()
[/COLOR][COLOR=#333333]
Sheets("DILIGENCIAS").Select[/COLOR]
[COLOR=#333333]Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select

End Sub[/COLOR][/CODE]

Share this post


Link to post
Share on other sites

entiendo que puedo cambiar

Sub Elipse_Haga_clic_en() por Sub nombre de la hoja() y no pasa nada.

Ahora me pasa una cosa, asigno el macro al primer botón, poseo para hacerlo al resto, hago click derecho/asignar macro/nuevo y no me deja. Tengo que modificar el que existe, llamarle de otra manera y luego asignarle al botón, ya que al ver los macros que puedo asignar, me sale el primero y luego el nuevo que he creado que es el que quiero poner al segundo botón... no se si me explico.

El caso es que no dominio el tema, pero veo que al ver los macros de la hoja «menú» cada uno que asigno a un botón sale separado en el editor puré una línea ¿es posible crear uno tras otro en el editor? porque no se sacar esa línea que los separa :-(

Share this post


Link to post
Share on other sites

Tienes que usa rla misma macro para cada buton solo cambiar el nombre de hoj a la que va dirigida

Puedes tambien hacerlo con una imagen o forma y asignarle ipervinculo a la hoja

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png