Selección de hojas con Macro
Que tal Experto,
Quiero ver si se puede hacer lo siguiente:
Tengo un ListBox donde me carga automático los nombras de todas las hojas del libro, la selecciono y después tengo lo siguiente en un botón para que me lleve a la hoja seleccionada
If ListBox1.Value = Sheets(*?*).Name Then
Sheets(*?*).Select
End If
Donde *? * Es el numero de la hoja y no quiero escribir hoja por hoja 1, 2, 3 ... Etc.
Agradezco de antemano si me pudieras ayudar en la definición de la variable.
Quiero ver si se puede hacer lo siguiente:
Tengo un ListBox donde me carga automático los nombras de todas las hojas del libro, la selecciono y después tengo lo siguiente en un botón para que me lleve a la hoja seleccionada
If ListBox1.Value = Sheets(*?*).Name Then
Sheets(*?*).Select
End If
Donde *? * Es el numero de la hoja y no quiero escribir hoja por hoja 1, 2, 3 ... Etc.
Agradezco de antemano si me pudieras ayudar en la definición de la variable.
1 Respuesta
Respuesta de Isaac Reyes
1
Si estoy entendiendo bien, para solucionar tu problema debería utilizar un ciclo for de la siguiente forma
For i = 1 To Sheets.Count
If ListBox1.Value = Sheets(i).Name Then
Sheets(i).Select
End If
Next
Aunque una forma más eficiente de lograr lo mismo sería
Sheets(ListBox1.Value).Select
Si no es eso lo que querías, no dudes en consultar.
For i = 1 To Sheets.Count
If ListBox1.Value = Sheets(i).Name Then
Sheets(i).Select
End If
Next
Aunque una forma más eficiente de lograr lo mismo sería
Sheets(ListBox1.Value).Select
Si no es eso lo que querías, no dudes en consultar.
Es exactamente lo que buscaba, de hecho yo hice algo parecido que me funciona.
Dim nom As String
nom = ListBox1.Value
If ListBox1.Value = Sheets(nom).Name Then
Sheets(nom).Select
End If
Lo dejo aquí, espero a alguien más le sirva.
Ya probé el que me diste y si funciona a la perfección. Muchas gracias por tu rápida respuesta.
Dim nom As String
nom = ListBox1.Value
If ListBox1.Value = Sheets(nom).Name Then
Sheets(nom).Select
End If
Lo dejo aquí, espero a alguien más le sirva.
Ya probé el que me diste y si funciona a la perfección. Muchas gracias por tu rápida respuesta.
