Preguntar por hojas activas vba excel 2003
Hola amigos de todoexpertos, tengo una aplicación en excel 2003 con varias hojas y un formulario en vba para registrar información, solo que tres hojas (Hoja1, Hoja4 y Hoja8) siempre están activas pero las hojas 2,3,5,6 y 7 se activan dependiendo del archivo que las contiene……. Mi pregunta es con instrucciones de vba cuando abro o ejecuto mi formulario de registro como pregunto por las hojas activas o que se muestran abiertas en el archivo de excel Para activar los textbox que corresponden???? De antemano gracias su amigo Jorge
Respuesta de Dante Amor
1
Pude ser con las siguientes instrucciones.
'***Macro***
Sub cuentahojas()
'Por.daM
For i = 1 To Sheets.Count
Select Case Sheets(i).Name
Case "Hoja1"
'La hoja 1 está abierta
'Activa textbox
MsgBox (Sheets(i).Name)
Case "Hoja2"
'La Hoja2 está abierta
'Activa textbox
MsgBox (Sheets(i).Name)
Case "Hoja6"
'La Hoja6 está abierta
'Activa textbox
MsgBox (Sheets(i).Name)
End Select
'Si una hoja en la lista del CASE
'no está abierta no realizará
'las instrucciones
Next
End Sub
'***Macro***Saludos.Dam
