Estou com uma planilha e gostaria de inserir um Botão com uma Macro pra ocultar e reexibir um range de colunas. Até agora consegui isso:
Sub AB()
' AB Macro
Range("F18:G43,J18:K43,N18:O43,R18:S43,V18:W43,Z18:AA43,AD18:AE43,AH18:AI43,AL18:AM43,AP18:AQ43,AT18:AU43,AX18:AY43,BB18:BC43,BF18:BG43,BJ18:BK43,BN18:BO43,BR18:BS43,BV18:BW43,BZ18:CA43,CD18:CE43,CH18:CI43,CL18:CM43,CP18:CQ43,CT18:CU43,CX18:CY43,DB18:DC43").Select
Selection.EntireColumn.Hidden = True
End Sub
Pra reexibir as colunas ocultas eu tenho outro Macro assim:
Sub Reexibir()
' Reexibir Macro
Range("D17:DW43").Select
Selection.EntireColumn.Hidden = False
End Sub
Pergunta
Cassi Jones
Bom dia pessoa,
Novato nesse mundo VBA/Macro
Estou com uma planilha e gostaria de inserir um Botão com uma Macro pra ocultar e reexibir um range de colunas. Até agora consegui isso:
Sub AB()
' AB Macro
Range("F18:G43,J18:K43,N18:O43,R18:S43,V18:W43,Z18:AA43,AD18:AE43,AH18:AI43,AL18:AM43,AP18:AQ43,AT18:AU43,AX18:AY43,BB18:BC43,BF18:BG43,BJ18:BK43,BN18:BO43,BR18:BS43,BV18:BW43,BZ18:CA43,CD18:CE43,CH18:CI43,CL18:CM43,CP18:CQ43,CT18:CU43,CX18:CY43,DB18:DC43").Select
Selection.EntireColumn.Hidden = True
End Sub
Pra reexibir as colunas ocultas eu tenho outro Macro assim:
Sub Reexibir()
' Reexibir Macro
Range("D17:DW43").Select
Selection.EntireColumn.Hidden = False
End Sub
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.