Este fórum está sendo desativado

[engrocha]

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.

[osvaldomp]

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

[engrocha]

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!