Como mostrar o primeiro item na lista suspensa em vez de deixar em branco?

A lista suspensa em uma planilha pode nos ajudar a facilitar a entrada de dados, pois só precisamos selecionar os itens sem digitá-los um por um. No entanto, às vezes, ao clicar na lista suspensa, ela pula para os itens em branco primeiro, em vez do primeiro item de dados, como mostra a captura de tela a seguir. Isso pode ser causado pela exclusão dos dados de origem no final da lista. Pode ser irritante ter que rolar até o topo de uma longa lista para cada célula de validação de dados em branco. Neste artigo, vou explicar como sempre mostrar o primeiro item na lista suspensa.

Mostrar o primeiro item na lista suspensa em vez de em branco com a função Validação de Dados

Mostrar automaticamente o primeiro item na lista suspensa em vez de em branco com código VBA

Mostrar o primeiro item na lista suspensa em vez de em branco com a função Validação de Dados

Na verdade, para realizar essa tarefa, basta aplicar uma fórmula específica ao criar uma lista suspensa, siga os passos abaixo:

1. Selecione as células onde deseja inserir a lista suspensa e clique em Dados > Validação de Dados > Validação de Dados, veja a captura de tela:

2. Na caixa de diálogo Validação de Dados que apareceu, na guia Configurações, escolha Lista na seção Permitir e, em seguida, insira esta fórmula: =OFFSET(Sheet3!$A$1,0,0,COUNTA(Sheet3!$A:$A)-1,1) na caixa de texto Fonte, veja a captura de tela:

Observação: Nesta fórmula, Sheet3 é a planilha que contém a lista de dados de origem, e A1 é o primeiro valor da célula na lista.

3. Em seguida, clique no botão OK; agora, quando você clicar nas células da lista suspensa, o primeiro item de dados sempre será exibido no topo, independentemente de haver valores de células excluídos no final dos dados de origem, veja a captura de tela:

Mostrar automaticamente o primeiro item na lista suspensa em vez de em branco com código VBA

Aqui, também posso apresentar um código VBA que pode ajudá-lo a mostrar o primeiro item na lista suspensa automaticamente ao clicar nas células de validação de dados.

1. Após inserir a lista suspensa, selecione a aba da planilha que contém a lista suspensa, clique com o botão direito e escolha Visualizar Código no menu de contexto para acessar a janela Microsoft Visual Basic for Applications, e depois copie e cole o seguinte código no Módulo:

Código VBA: Mostrar automaticamente o primeiro item de dados na lista suspensa:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20160725
    Dim xFormula As String
    On Error GoTo Out:
    xFormula = Target.Cells(1).Validation.Formula1
    If Left(xFormula, 1) = "=" Then
        Target.Cells(1) = Range(Mid(xFormula, 1)).Cells(1).Value
    End If
Out:
End Sub

2. Em seguida, salve e feche a janela de código, e agora, ao clicar na célula da lista suspensa, o primeiro item de dados será exibido imediatamente.