Guru do Excel e Power BI

Olá, pessoal,
Preciso de uma ajuda imprescindível: Criei uma lista de validação de dados e gostaria de saber se existe algum código VBA para selecionar o primeiro item nessa lista. Quero dizer, um código que "clique" na setinha para expandir a lista e selecione especificamente o primeiro item, isso toda vez que eu lançar ou alterar um item da lista de origem da validação. Exemplo: tenho uma lista de setores da empresa (contábil, financeiro, administrativo...) começando em A2 até A11, e dessa lista criei uma validação de dados na célula B5. O código precisa selecionar em B5 o primeiro item da lista (contábil, por exemplo), toda vez que eu alterar ou acrescentar itens na lista em A2 a A11. Seria possível fazer isso?

Desde já agradeço a preciosa ajuda

Olá, Alex.

Com base na sua descrição podemos concluir que B5 sempre será igual a A2. É isso?

Olá, Osvaldo,
Sim, verdade. Nem tinha me atentado a isso. O fato é que preciso que o código automatize a seleção do primeiro item da lista, sem que eu precise clicar na setinha e selecionar ou mesmo digitar.
Agradeço desde já a ajuda.

Então coloque em B5 ~~~> =A2.

Não é necessária a Validação e nem macro.

Então, mas é porque a célula B5 vai ter necessariamente uma lista, pois será variável mesmo. Eu só queria que o primeiro valor fosse selecionado automaticamente, pois na maior parte dos casos a primeira opção da lista será a selecionada, mas não vai acontecer sempre, ou seja, eu quero ter a opção de selecionar, se necessário, algum outro item da lista

Entendi.

Você poderia disponibilizar aqui no fórum uma amostra do seu arquivo Excel com a Validação instalada ?

Com certeza. Segue arquivo.

Ops, desculpe, agora que fui perceber. Na verdade, a célula é D5 e não B5, como tinha falado inicialmente

Olá, Alex.

Veja se a solução abaixo lhe atende.
Cole uma cópia do código abaixo no módulo da planilha Cadastro. Para acessar o módulo clique com o direito sobre a guia daquela planilha e escolha Exibir Código.
##
funcionamento
Ao selecionar a célula D5 (que deverá conter Validação de Dados) o código executará duas ações:
1. irá inserir em D5 o primeiro item da Lista Suspensa utilizada na Validação de Dados daquela célula, e
2. irá exibir a própria Lista Suspensa.

Para manter na célula o item inserido pelo código, aperte Esc ou selecione outra célula qualquer.

Para alterar o item inserido pelo código, selecione o item desejado na Lista Suspensa.

obs. o primeiro item da Lista Suspensa não está vinculado a A2, como comentamos antes, então o intervalo de células que contém os itens da Validação pode ser qualquer.
________________________________________________________________________________________________________

Como bônus, segue um código alternativo para o seu código Incluir() obs. se você não quiser apagar D5 ao rodar o código acima, então substitua esta linha ~~~> [C5:F5] = ""
por esta ~~~> [C5,E5:F5] = ""

Muitíssimo obrigado, Osvaldo.

Sem querer abusar da sua boa vontade, teria como incrementar esse código para incluir q você postou para que também faça uma classificação na planilha lista, ordenando por data de admissão?

No código IncluirV2() acrescente a linha em vermelho, conforme abaixo.

Sheets("Lista").Range("A2:D" & Sheets("Lista").Cells(Rows.Count, 1).End(3).Row).Sort Key1:=Sheets("Lista").[C1]
End Sub

Maravilha! Mais uma vez tenho muito a lhe agradecer, Osvaldo
Espero um dia ter esse vasto conhecimento em VBA, pois ajuda muito a otimizar e elevar o nível das nossas planilhas.
Sucesso pra você, prezado!

Olá, Alex.

Que bom que você encontrou soluções.

Saúde e sucesso pra você também.