Bom dia!!

Seria isso?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim AleVBA As Range

Set AleVBA = Range("N1")

If Not Intersect(Target, AleVBA) Is Nothing Then
    Range("B:K").EntireColumn.Hidden = False
    Select Case UCase(Target.Value)
    Case AleVBA = 1
        Range("B:C").EntireColumn.Hidden = True
    Case AleVBA = 2
        Range("D:E").EntireColumn.Hidden = True
    Case AleVBA = 3
        Range("F:G").EntireColumn.Hidden = True
    End Select
End If

Set AleVBA = Nothing

End Sub

Att

Bom dia!!

Seria isso?

Bom Dia!

Inseri o codigo encaminhado, porem não esta funcionando.
Quando troco os numeros a rotina nao roda.
Sabe o que pode ser?
Abraços

 

Bom dia!!

Então use a linha

Range("B:K").EntireColumn.Hidden = False
Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, Me.Range("N1")) Is Nothing Then Exit Sub
 Application.EnableEvents = False
 Range("B:K").EntireColumn.Hidden = False ' <<<--- Veja se ajuda
 NUMERO = Sheets("PLAN1").Cells(1, 14).Value

If NUMERO = 1 Then
    Columns("B:C").Select
    Selection.EntireColumn.Hidden = True
End If

If NUMERO = 2 Then
    Columns("D:E").Select
    Selection.EntireColumn.Hidden = True
End If

If NUMERO = 3 Then
    Columns("F:G").Select
    Selection.EntireColumn.Hidden = True
End If

 MsgBox "Algo mudou!"
 Application.EnableEvents = True
End Sub

Att

alexandrevba

Muito obrigado pela ajuda.
Funcionou.