Variable para seleccionar hojas
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 230283
1
A un usuario de nombre jordserr he ayudado en varias ocasiones y su ultima consulta fue referente de manera idéntica a lo tuyo. Me gustaría poder ayudarte enviándote el archivo adjunto con la macro que esta dentro del libro.
¿Te importaría enviarme un mail para poder enviarte la información?
¿Te importaría enviarme un mail para poder enviarte la información?
Muchas gracias por tu prona respuesta.
Ayer encontré la solución, probando de varias formas
Aquí dejo la solución tal ves a alguien le sirva
'Declaracion de Variables
Dim altblatt As String
Dim neublatt As String
'Defino variable
altblatt = ActiveSheet.Parent.Name
'Creo un nuevo libro y lo defino como variable
ActiveWorkbook.SaveAs Filename:=Date & ".xls"
neublatt = ActiveSheet.Parent.Name
'Ahora puedo utilizarlos para cambiar de hojas
Windows(altblatt).Activate
Windows(neublatt).Activate
Ayer encontré la solución, probando de varias formas
Aquí dejo la solución tal ves a alguien le sirva
'Declaracion de Variables
Dim altblatt As String
Dim neublatt As String
'Defino variable
altblatt = ActiveSheet.Parent.Name
'Creo un nuevo libro y lo defino como variable
ActiveWorkbook.SaveAs Filename:=Date & ".xls"
neublatt = ActiveSheet.Parent.Name
'Ahora puedo utilizarlos para cambiar de hojas
Windows(altblatt).Activate
Windows(neublatt).Activate
