Como fazer uma seta suspensa visível em todos os momentos no Excel

Passo 1

Inicie o Microsoft Office Excel, clique na guia "Desenvolvedores" e selecione o ícone "Inserir" no painel de controle. Clique no controle "Caixa de combinação" e clique em qualquer célula na planilha para adicionar um novo controle de seta suspenso.

Passo 2

Clique em "Visual Basic" para iniciar o Editor do Visual Basic e clique duas vezes em "Sheet1" para abrir o módulo VBA. Adicione o seguinte código para tornar o controle suspenso visível em todos os momentos da planilha:

Private Sub Worksheet_SelectionChange (PorVal Target como Range) Com ActiveWindow.VisibleRange ActiveSheet.Shapes ("Drop Down 1"). Top = .Top + 5 ActiveSheet.Shapes ("Drop Down 1"). Esquerda = .Esquerda +. Width - ActiveSheet .Shapes ("Drop Down 1"). Largura - 45 End With End Sub

Passo 3

Volte para o Microsoft Excel e role até a linha 100. Clique em qualquer célula para tornar visível o controle suspenso.