Macro para visualizar un grupo de hojas en excel
Tengo un libro de excel con dos hojas por semana llamadas AAAAA-XX y BBBB-XX. Como no tengo que trabajar más que con unas cuantas, el resto están ocultas, lo cual se hace fácilmente seleccionando las hojas y ocultándolas. Para visualizarlas todas he localizado una macro que visualiza todas las hojas.
Sin embargo a mi me gustaría poder tener una macro que sólo visualice las hojas AAAA- o sólo las hojas BBBB-
¿Alguna idea? Abradecería que me mandaseis la macro en excel 2000. Es un poco urgente.
1 Respuesta
Fijate en el siguiente código que hará visibles las hojas que comiencen con A o B según petición del usuario (si tienes otras hojas que empiezan con A, pero no con AAA y no quieres que se visualicen, creo que podrás corregir la macro de manera sencilla, pero pregunta cualquier duda)
Sub yy()
Dim lRpta, s As Worksheet
lRpta = InputBox("Ingrese A para mostrar las hojas AAA* o B para mostrar las hojas BBB*", "Ingreso de datos")
If lRpta <> "A" Or lRpta <> "B" Then
MsgBox "Datos incorrectos u operación cancelada", vbOKOnly, "Información"
Exit Sub
End If
For Each s In ThisWorkbook.Worksheets
If Left(s.Name, 1) = lRpta Then
s.Visible = True
End If
Next s
End Sub
Perdón pero cometí un error en la comparación del IF
La instrucción correcta es
If lRpta <> "A" And lRpta <> "B" Then