Jump to content
Sign in to follow this  
Marcos14

Combobox con tres nombres de hojas

Recommended Posts

 

Tengo un libro con 6 hojas y un userform en el cual hay un combobox con el nombre de tres de esas seis hojas. Como seria la macro para que a través del combobox me lleve a cada una de esas tres hojas

Share this post


Link to post
Share on other sites

Hola Marcos14, una manera de hacerlo sería algo así:
 

'AL iniciarse el UserForm
'Llenamos el combobox
Private SubUserForm_Initialize()
	Dim Hoja As Worksheet
	ComboBox.Clear
	For Each Hoja in WorkSheets
		ComboBox.AddItem Hoja.Name
	Next
End Sub


'Al seleccionar alguna hoja nos vamos a la hoja seleccionada
'Evento Al cambiar del Combo
Private Sub ComboBox_Change()
	Sheets(ComboBox).Select
End Sub

Esto te muestra todas las hojas. Para filtrarlo con las hojas que necesitas te lo dejo para que practiques.

Escrito al boleo

Saludos

 

 

Share this post


Link to post
Share on other sites

Te dejo otra opción en la que tienes un formulario en el cual tienes una caja de texto y un listbox.

Al iniciar el formulario te carga las hojas en el listbox por orden alfabético y si introduces una letra en el textbox te muestra las hojas que comiencen por dicha letra.

Dando un click en cualquier hoja filtrada del listbox te lleva automáticamente a la hoja seleccionada.

Listar hojas del libro y dirigirse a ella con un textbox y listbox.xlsm

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