Poste o arquivo

Fala amigo, anexei um arquivo.

Como é um arquivo pesado e com informações confidenciais da empresa, fiz uma simulação com algo parecido com o que tem no arquivo. A ideia é escolher um ano na celula A4 e o macro (worksheet_change) automaticamente só deixa visivel as colunas que tem o ano escolhido na célula A4, ocultando todo o resto. Ou seja, macro primeiramente desoculta todas as colunas e depois oculta as que não são do ano escolhido. É possível?

Obrigado!!

Amigo o formato de seu arquivo deve ser IGUAL pois os codigo vai atender ao que vc apresentar como modelo.

Mas é exatamente assim o modelo. A partir da coluna C, nessa mesma linha. A diferença é que tem muito mais coluna. Mas isso pode ser ajustado no código, certo?

Eu entendo de vba. Não sou um expert mas consigo ler um código e modificar de acordo com as necessidades.

E eu estou em casa agora, não tenho acesso a planilha original que fica na empresa

cara eu não baixei o seu arquivo então não sei onde vai ficar o valor de comparação e nem a linha que vai ser usada para como quia

então tem que mudar os valores

Sub ocultadiferente_motraigual()
valor = Cells(2, 1).Value2
L = 2 ' linha onde tem as os valores de comparação
    For c = Cells(L, "c").Column To Cells(L, Columns.Count).End(xlToLeft).Column

        If Cells(L, c).Value2 <> valor Then Columns(c).EntireColumn.Hidden = True Else Columns(c).EntireColumn.Hidden = False

 
    Next
End Sub