Forums Últimos mensajes - Powered by IBM
 

Problema con Macro

25/09/2005 - 12:14 por Savrinor | Informe spam
Tengo el siguiente Macro:



Sub ocultaporfechas()

Dim mihoja As String

Dim mifecha As Date

mifecha = Format(Now(), "dd/mm/yy")

Sheets("AVISO").Range("A24").Select

While ActiveCell <> ""

If mifecha >= ActiveCell.Offset(0, 1).Value Then

Sheets(ActiveCell.Value).Visible = xlVeryHidden

End If

ActiveCell.Offset(1, 0).Select

Wend

End Sub



si la fecha actual supera a la de la lista oculta la hoja, el problema es
que si la hoja esta renombrada por ejemplo 2003 no funciona, me interesa
tener las hojas renombras en el año. Hay alguna solución. Gracias.



Saludos Pau.
 

Leer las respuestas

#1 KL
25/09/2005 - 20:01 | Informe spam
Hola Pau,

si la fecha actual supera a la de la lista oculta la hoja, el problema es
que si la hoja esta renombrada por ejemplo 2003 no funciona, me interesa
tener las hojas renombras en el año.



No se si te he entendido bien y es esto lo que buscas:

Sub ocultaporfechas()
Dim mifecha As Date, mihoja As Worksheet
mifecha = Date
Sheets("AVISO").Range("A24").Select
On Error Resume Next
While ActiveCell <> ""
If mifecha >= ActiveCell.Offset(0, 1).Value Then
On Error Resume Next
Set mihoja = Sheets(ActiveCell.Value)
If mihoja Is Nothing Then _
Set mihoja = Sheets( _
Format(ActiveCell.Offset(0, 1).Value, "YYYY"))
If Not mihoja Is Nothing Then _
mihoja.Visible = xlVeryHidden
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub

Saludos,
KL

Preguntas similares