Guru do Excel e Power BI

Boa tarde a todos!
Preciso de um VBA que oculte colunas de acordo com o critério número da semana.
Exemplo: Semana hoje = 43.

Preciso que oculte as colunas que forem menor que 38 e maior que 48 (5 < e 5 >).

No anexo vai ser bem fácil de entender.
Desde já agradeço,
Rocha.

Experimente:

Código: Selecionar todos

Sub OcultaColunas()
 Dim c As Long
  Columns.Hidden = False
  c = Rows(5).Find([A1]).Column
  If c > 9 Then Range(Cells(1, 4), Cells(1, c - 6)).EntireColumn.Hidden = True
  Range(Cells(1, c + 6), Cells(1, 56)).EntireColumn.Hidden = True
End Sub

Muito bom Sr. Osvaldo!
Obrigado, excelente trabalho. Resolvido perfeitamente.
Fiz o teste também colocando a semana 02 e a macro entendeu que ocultaria somente para frente.

Grato!

Guru do Excel e Power BI

Ocultar com critério <> 5 semanas

Ocultar com critério <> 5 semanas

Re: Ocultar com critério <> 5 semanas

Ocultar com critério <> 5 semanas