Excel escolher dois itens na lista suspensa

[Geovane Oliveira Censo]

Ola bom dia, estou fazendo um trabalho e precisava que dois ou mais itens da lista suspensa fosse adicionado a uma unica celula, é possível ?

[OreiaG]

Esse outro tópico seu foi resolvido ?

[Geovane Oliveira Censo]

@OreiaG sim, mas não sei como colocar resolvido, havia falado isso em outro post

[Geovane Oliveira Censo]

alguém consegue ajudar ?

[OreiaG]

Certamente seria mais fácil de conseguir alguma tentativa de ajuda se você anexar o arquivo Excel com alguns dados na planilha, com o resultado esperado e as explicações.

[Geovane Oliveira Censo]

@OreiaG Segue a planilha como teste, queros escolher na celula a e b juntos por exemplo.

TESTE.xlsx

[OreiaG]

Só é possível colocar mais de uma opção na célula que contém Validação com auxílio de macro. Pode ser?

Informe se as opções ficarão em uma única linha na célula, separadas por vírgula, por espaço, ... ou se cada opção ficará em uma linha.

[Geovane Oliveira Censo]

@OreiaG pode ser sim, separado por virgula seria o ideal

[OreiaG]

Veja se atende.

O código abaixo deve ir no módulo da Planilha1 (clique com o direito na guia da planilha e selecione Exibir Código.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim nv As String, ov As String
  If Target.Count > 1 Then Exit Sub
  If Target.Column > 1 Or Target.Value = "" Then Exit Sub
  Application.EnableEvents = False
  nv = Target.Value
  Application.Undo
  ov = Target.Value
  If ov <> "" Then Target.Value = ov & ", " & nv Else: Target.Value = nv
  Application.EnableEvents = True
End Sub

 

[Geovane Oliveira Censo]

14 minutos atrás, OreiaG disse:

Veja se atende.

O código abaixo deve ir no módulo da Planilha1 (clique com o direito na guia da planilha e selecione Exibir Código.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim nv As String, ov As String
  If Target.Count > 1 Then Exit Sub
  If Target.Column > 1 Or Target.Value = "" Then Exit Sub
  Application.EnableEvents = False
  nv = Target.Value
  Application.Undo
  ov = Target.Value
  If ov <> "" Then Target.Value = ov & ", " & nv Else: Target.Value = nv
  Application.EnableEvents = True
End Sub

 

 

[Geovane Oliveira Censo]

@OreiaG conseguiria me passar a logica e aplicação da fórmula ? Vou aplcar em outras planilha também.

[OreiaG]

Anexe aqui a outra planilha que faço as alterações no código.

[Geovane Oliveira Censo]

37 minutos atrás, OreiaG disse:

Anexe aqui a outra planilha que faço as alterações no código.

A LISTA É A DA PLANILHA 1 COLUNA C QUE DEVE SER APLICADA NA COLUNA W

AUDIENCIAS DA SEMANA 05 2023 A 06 2023 - TESTE.xlsx

[OreiaG]

7 horas atrás, Geovane Oliveira Censo disse:

A LISTA É A DA PLANILHA 1 COLUNA C QUE DEVE SER APLICADA NA COLUNA W.

 

Não encontrei Validação de Dados na coluna W.

[Geovane Oliveira Censo]

@OreiaG segue coma  validaçã

AUDIENCIAS DA SEMANA 05 2023 A 06 2023 - TESTE.xlsx

[OreiaG]

No lugar desta linha

If Target.Column > 1 Or Target.Value = "" Then Exit Sub

 

coloque esta

 If Target.Column <> 23 Or Target.Row = 1 Or Target.Value = "" Then Exit Sub

 

[Geovane Oliveira Censo]

@OreiaG funcionou, muito obrigado pela ajuda!