Como eu tinha prometido deixo aqui a minha macro com a versão case, oferecida pelo colega Mauro. Esse código foi adequado para uma outra planilha.
Meus agradecimentos ao Caro colega pelo apoio e que esse código, ainda que simples possa ajudar outros iniciantes como eu.
Grato.
Sub OcultaCase()
' Filtrar dados dierentes de 0 na coluna FE.
ActiveSheet.Range("$FE$4:$FE$43").AutoFilter Field:=1, Criteria1:="<>0", _
Operator:=xlAnd
' Oculta as colunas que não possuem o Mês referenciado na célula FG3.
sValor = Range("FG3")
Select Case sValor
Case "11/10"
Columns("D:AH").Hidden = False
Columns("AI:FD").Hidden = True
Case "12/10"
Columns("AI:BL").Hidden = False
Columns("D:AH").Hidden = True
Columns("BM:FD").Hidden = True
Case "01/11"
Columns("BM:CQ").Hidden = False
Columns("D:BL").Hidden = True
Columns("CR:FD").Hidden = True
Case "02/11"
Columns("CR:DV").Hidden = False
Columns("D:CQ").Hidden = True
Columns("DW:FD").Hidden = True
Case "03/11"
Columns("DW:EX").Hidden = False
Columns("D:DV").Hidden = True
Columns("EY:FD").Hidden = True
Case "04/11"
Columns("EY:FD").Hidden = False
Columns("D:EX").Hidden = True
Case Else
MsgBox "Nenhuma das Alternativas"
End Select
End Sub
Valeu!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 25/11/2010 7:37 pm