Este fórum está sendo desativado

[JCabral]

Boa tarde

Precisava da seguinte ajuda, tenho uma serie de dados em duas colunas, "A" e "B" e precisava de colocar na coluna "E" uma lista suspensa, que fosse dinâmica ou seja sempre que acrescentar dados em A e B a lista é atualizada, e que os dados da Lista fosse a concatenação dos dados da coluna A e B;

NOTA IMPORTANTE: Gostaria que isto fosse feito sem o recurso a colunas auxiliares

Anexo exemplo de dados aleatórios nas colunas A e B e mostro na Coluna F como gostaria que me aparecessem os dados na LISTA.

[lcbispo]

Ola, veja a planilha em anexo

[JCabral]

Obrigado pela sua solução, mas queria que a solução não tivesse colunas auxiliares, é possível?

[JCabral]

Alguma ajuda?

[osvaldomp]

Salve, Jorge.

Me parece que não é possível no Excel aplicar múltiplas colunas na formação da lista suspensa (Validação de Dados).

Sem utilizar coluna auxiliar então só resta uma solução via macro. Retorne se essa for uma solução aceitável e se precisar de ajuda.

[JCabral]

Caro Osvaldo

Obrigado, pode ser via macro

[osvaldomp]

Olá, Jorge.
Instale uma cópia do código abaixo no módulo da planilha Folha1.

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim A(), VD(), r As Long, x As Long
  If Intersect(Target, [E2:E100]) Is Nothing Then Exit Sub
   A = Range("A2", Cells(Rows.Count, "B").End(3))
   For r = 1 To UBound(A)
    ReDim Preserve VD(x)
    VD(x) = A(r, 1) & " - " & A(r, 2): x = x + 1
   Next
   Target.Validation.Delete
   Target.Validation.Add Type:=xlValidateList, Formula1:=Join(VD, ",")
End Sub

#
funcionamento - ao selecionar uma célula no intervalo E2:E100 (altere no código se desejar), o código irá reaplicar a Validação de Dados na célula selecionada, com base na lista atualizada de A2:B até a última linha de B.

[JCabral]

TOP!!!

Muito obrigado, Osvaldo

[Kledison]

Olá, Jorge.
Instale uma cópia do código abaixo no módulo da planilha Folha1.

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim A(), VD(), r As Long, x As Long
  If Intersect(Target, [E2:E100]) Is Nothing Then Exit Sub
   A = Range("A2", Cells(Rows.Count, "B").End(3))
   For r = 1 To UBound(A)
    ReDim Preserve VD(x)
    VD(x) = A(r, 1) & " - " & A(r, 2): x = x + 1
   Next
   Target.Validation.Delete
   Target.Validation.Add Type:=xlValidateList, Formula1:=Join(VD, ",")
End Sub

#
funcionamento - ao selecionar uma célula no intervalo E2:E100 (altere no código se desejar), o código irá reaplicar a Validação de Dados na célula selecionada, com base na lista atualizada de A2:B até a última linha de B.

Boa tarde!

Excelente solução Mestre Osvaldo.

Att

[JCabral]

Peço desculpa por ainda não ter colocado o tópico como "Resolvido" mas não encontro a sitio para o fechar

[osvaldomp]

Olá, Jorge.

Me parece que não está disponível um caminho para finalizar o tópico.

O que alguns fazem é editar o título do tópico e acrescentar no final - resolvido.