Note: The other languages of the website are Google-translated. Back to English

Como criar uma lista suspensa com várias seleções ou valores no Excel?

Por padrão, você só pode selecionar um item em uma lista suspensa de validação de dados no Excel. Como você pode fazer várias seleções na lista suspensa como mostrado abaixo do gif? Os métodos neste artigo podem ajudá-lo a resolver o problema.


Crie uma lista suspensa com várias seleções com código VBA

Esta seção fornece dois códigos VBA para ajudá-lo a fazer várias seleções em listas suspensas em uma planilha. Os dois códigos VBA podem alcançar:

Código VBA 1: permitir várias seleções em uma lista suspensa sem duplicatas
Código VBA 2: permitir várias seleções em uma lista suspensa sem duplicatas (exclua itens existentes selecionando-o novamente)

Você pode aplicar um dos seguintes códigos VBA para fazer várias seleções em uma lista suspensa em uma planilha no Excel. Por favor, faça o seguinte.

1. Abra a planilha que contém as listas suspensas de validação de dados das quais você deseja fazer várias seleções. Clique com o botão direito do mouse na guia da planilha e selecione Ver código no menu de contexto.

2. No Microsoft Visual Basic para Aplicações janela, copie o código VBA abaixo para a janela de código. Veja a imagem:

Código VBA 1: permitir várias seleções em uma lista suspensa sem duplicatas

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

Agora você pode selecionar vários itens da lista suspensa na planilha atual.

Supondo que você tenha selecionado um item acidentalmente e precise removê-lo sem limpar toda a célula e começar de novo. O seguinte código VBA 2 pode lhe fazer um favor.

Código VBA 2: permitir várias seleções em uma lista suspensa sem duplicatas (exclua itens existentes selecionando-o novamente)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Notas:

1). Valores duplicados não são permitidos na lista suspensa.
2). O código VBA 2 acima foi fornecido pelo nosso entusiasmado usuário Ken Gardner em 2022/07/11.
3). Salve a pasta de trabalho como um Pasta de trabalho habilitada para macro do Excel para manter o código funcionando no futuro.
4). Depois de adicionar o código VBA 2, você pode remover um item existente selecionando-o novamente na lista suspensa. Veja o gif abaixo:


Crie facilmente uma lista suspensa com várias seleções com uma ferramenta incrível

Aqui recomendamos o Lista suspensa de seleção múltipla característica de Kutools for Excel para voce. Com esse recurso, você pode selecionar facilmente vários itens da lista suspensa em um intervalo especificado, planilha atual, pasta de trabalho atual ou todas as pastas de trabalho abertas conforme necessário.

Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.

1. Clique Kutools > Lista suspensa > Lista suspensa de seleção múltipla > Configurações. Veja a imagem:

2. No Configurações da lista suspensa de seleção múltipla caixa de diálogo, configure como segue.

  • 2.1) Especifique o escopo de aplicação no Aplicar a seção. Neste caso, eu seleciono Planilha atual de Escopo Especificado lista suspensa;
  • 2.2) No Direção do texto seção, selecione uma direção de texto com base em suas necessidades;
  • 2.3) No separador caixa, insira um delimitador que você usará para separar os vários valores;
  • 2.4) Verifique o Não adicione duplicatas caixa no Opções seção se você não quiser fazer duplicatas nas células da lista suspensa;
  • 2.5) Clique no OK botão. Veja a imagem:

3. Clique em Kutools > Lista suspensa > Lista suspensa de seleção múltipla para habilitar o recurso.

Agora você pode selecionar vários itens da lista suspensa na planilha atual ou em qualquer escopo especificado na etapa 2.

  Se você quiser ter uma avaliação gratuita (30-dia) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Artigos relacionados:

Preenchimento automático ao digitar na lista suspensa do Excel
Se você tiver uma lista suspensa de validação de dados com valores grandes, precisará rolar para baixo na lista apenas para encontrar o apropriado ou digitar a palavra inteira diretamente na caixa de listagem. Se houver um método para permitir o preenchimento automático ao digitar a primeira letra da lista suspensa, tudo ficará mais fácil. Este tutorial fornece o método para resolver o problema.

Crie uma lista suspensa de outra pasta de trabalho no Excel
É muito fácil criar uma lista suspensa de validação de dados entre as planilhas de uma pasta de trabalho. Mas se os dados da lista de que você precisa para a validação de dados estiverem em outra pasta de trabalho, o que você faria? Neste tutorial, você aprenderá como criar uma lista suspensa de outra pasta de trabalho no Excel em detalhes.

Crie uma lista suspensa pesquisável no Excel
Para uma lista suspensa com vários valores, encontrar um adequado não é um trabalho fácil. Anteriormente, introduzimos um método de preenchimento automático da lista suspensa ao inserir a primeira letra na caixa suspensa. Além da função de preenchimento automático, você também pode tornar a lista suspensa pesquisável para aumentar a eficiência de trabalho ao encontrar os valores adequados na lista suspensa. Para tornar a lista suspensa pesquisável, tente o método neste tutorial.

Preencher automaticamente outras células ao selecionar valores na lista suspensa do Excel
Digamos que você tenha criado uma lista suspensa com base nos valores do intervalo de células B8: B14. Ao selecionar qualquer valor na lista suspensa, você deseja que os valores correspondentes no intervalo de células C8: C14 sejam preenchidos automaticamente em uma célula selecionada. Para resolver o problema, os métodos neste tutorial vão lhe fazer um favor.

Mais tutorial para lista suspensa ...


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (67)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Olá, obrigado pela solução e pelo código. Mas a próxima etapa é como garantir que o usuário não selecione valores "duplicados" na lista suspensa. Por exemplo, se houver 4 itens na lista - laranja, maçã, banana, pêssego e se o usuário já tiver selecionado "laranja", o Excel não deve permitir que o usuário selecione "laranja" OU essa opção deve ser removida do restante da lista a lista. Você pode publicar o código para realizar esse recurso. Obrigado. Yezdi
Este comentário foi feito pelo moderador no site
Olá Yezdi, obrigado pelo seu comentário. O código foi atualizado e nenhum valor duplicado é permitido na lista suspensa agora. Obrigado. Luz do sol
Este comentário foi feito pelo moderador no site
É ótimo que isso permita várias seleções, mas, como @Yezdi comentou, estou descobrindo que adicionará uma ou várias duplicatas, mesmo que eu não as escolha. Então, no momento, esta é uma solução de 80%... um ajuste longe da perfeição. Eu não sou um codificador VB ou eu ofereceria a solução.
Este comentário foi feito pelo moderador no site
Você pode alterar o código nas seguintes linhas para evitar duplicatas: If xValue2 "" Then Target.Value = xValue1 & ", " & xValue2 End If To: If xValue2 "" Then If CheckIfAlreadyAdded(xValue1, xValue2) = False Then Target .Value = xValue1 & ", " & xValue2 Else Target.Value = xValue1 End If End If E adicione a seguinte função: Função Privada CheckIfAlreadyAdded(ByVal sText As String, sNewValue As String) As Boolean CheckIfAlreadyAdded = False Dim WrdArray() As String WrdArray() = Split(sText, ","") Para i = LBound(WrdArray) Para UBound(WrdArray) If Trim(WrdArray(i)) = Trim(sNewValue) Then CheckIfAlreadyAdded = True Next i End Function -- Provavelmente existe melhores maneiras de codificá-lo, mas funciona por enquanto.
Este comentário foi feito pelo moderador no site
Acabei de perceber que não saí do loop na nova função se a condição foi definida para que não precisemos verificar outras entradas.
Este comentário foi feito pelo moderador no site
Oi. Obrigado pelo código e pela adição para limitar duplicatas. Mais uma solicitação - que adição/alteração teria que ser feita para permitir a seleção múltipla em apenas uma ou duas colunas específicas? Este código está re-adicionando linhas de texto ao que deveria ser células 'simples' se eu for corrigir um erro de digitação ou fizer uma alteração ou adição ao texto na célula, em vez de apenas se comportar 'normalmente' e aceitar a alteração (sem re-adicionar todo o texto novamente). Por exemplo, a coluna A é uma coluna 'simples'. Eu escrevo uma frase "Quais são os três itens que você mais quer?" A coluna B é uma coluna 'lista' onde eu só quero poder escolher um único valor (neste caso, digamos o nome de uma criança). A coluna C é outra coluna 'lista' onde o usuário deve poder selecionar vários itens (o que este código me permite fazer perfeitamente). À medida que prossigo, percebo que cometi um erro de digitação na coluna A e quero corrigi-lo. Do jeito que está esse código, se eu entrar (duplo clique, F2) e fizer a correção na palavra "itens", terei esse resultado na minha célula: "Quais são os três itens que você mais quer? Quais são os três itens que você mais quer?" obrigado antecipadamente por qualquer ajuda (de um usuário que REALMENTE gosta de VBA, mas ainda está nos estágios iniciais de aprendizado!)
Este comentário foi feito pelo moderador no site
Consegui fazer o código funcionar, mas quando salvei o documento (com macros habilitadas), fechei e retornei, o código não funcionou mais (embora ainda estivesse lá). Não consigo descobrir o que fiz de errado. Alguma ideia?
Este comentário foi feito pelo moderador no site
Oi Cynthia, Se o autor original não responder, eu te dou uma resposta, mas só estarei na frente de um computador no dia 29 de dezembro novamente. Também não sou programador VBA. O que você pode fazer nesse meio tempo é pesquisar no Google como identificar o número da coluna e só deixar o código rodar se os dados forem editados naquela(s) coluna(s) específica(s). Eu fiz isso, mas o código está no meu PC de trabalho e não consigo recuperá-lo no momento, talvez tente colocar um debug.print em target.column ou algo nesse sentido para ver se ele fornece o número da coluna que está sendo editada . Desculpe Jennifer, não tenho certeza sobre o problema que você está tendo :(
Este comentário foi feito pelo moderador no site
@Cynthia, Se ainda for necessário, você poderá fazer algo assim para garantir que o código seja executado apenas em colunas específicas, no meu caso, coluna 34 e 35: If (Target.Column 34 And Target.Column 35) Then Exit Sub 'Coloque este código no início após suas declarações dim
Este comentário foi feito pelo moderador no site
[quote]@Cynthia, Se ainda for necessário, você poderá fazer algo assim para garantir que o código seja executado apenas em colunas específicas, no meu caso, coluna 34 e 35: If (Target.Column 34 And Target.Column 35) Then Exit Sub 'Coloque este código no início após suas instruções dimPor Mervyn[/quote] Oi @Mervyn, Perdi o controle do tópico completamente, mas muito obrigado por suas respostas. Eu tentei aplicar o If (Target.Column 34 And Target.Column 35) Then Exit Sub (minha versão lê If (Target.Column4 And Target.Column5) Then Exit Sub como você forneceu, mas estou recebendo um "Run-time erro '438': O objeto não suporta esta propriedade ou método"" erro nesta nova linha. Aqui estão as primeiras linhas do meu código: Private Sub Worksheet_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If (Target.Column4 And Target.Column5) Then Exit Sub If Target.Count > 1 Then Exit Sub On Error Resume Next Minha planilha tem apenas 6 colunas: Pergunta | Resposta | Categoria | Subcategoria | Tags | Link da foto Eu só preciso de várias listas suspensas de valores em Subcategoria e Tags (colunas 4 e 5) Continuarei procurando informações como você sugeriu em 12/23 e verei o link Charity fornecido.
Este comentário foi feito pelo moderador no site
Se Alvo.Coluna <> 34 Então Sair Sub

'Coloque este código no início após suas declarações dim
Este comentário foi feito pelo moderador no site
Oi estou usando atualmente esta fórmula e todas as colunas com validação de dados tem a opção de seleção múltipla agora, porém quero restringir a seleção múltipla apenas a uma coluna. Alguém pode editar esta fórmula para mim para que a seleção múltipla possa ser aplicada apenas à Coluna4? Obrigado :) Private Sub Worksheet_Change(ByVal Target As Range) 'Atualizado: 2016/4/12 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If Target.Count > 1 Then Exit Sub On Error Resume Next Set xRng = Cells. SpecialCells(xlCellTypeAllValidation) Se xRng não for nada, então saia de Sub Application.EnableEvents = False Se não for Application.Intersect(Target, xRng) é nada, então xValue2 = Target.Value Application.Undo xValue1 = Target.Value Target.Value = xValue2 If xValue1 " " Then If xValue2 "" Then If xValue1 = xValue2 Ou _ InStr(1, xValue1, ", " & xValue2) Ou _ InStr(1, xValue1, xValue2 & ",") Then Target.Value = xValue1 Else Target.Value = xValue1 & ", " & xValue2 End If End If End If End If Application.EnableEvents = True End Sub Qualquer ajuda será apreciada!
Este comentário foi feito pelo moderador no site
Isso funciona bem, mas não consigo remover um item depois de selecionado. Alguma sugestão caso eu clique em algo acidentalmente e precise removê-lo sem (espero) limpar toda a célula e começar de novo? Além disso, para aqueles que procuram definir uma coluna ou colunas, o Contextures tem uma ótima adição ao código fornecido aqui que permite fazer isso. http://www.contextures.com/excel-data-validation-multiple.html#column
Este comentário foi feito pelo moderador no site
[quote]Isso funciona bem, mas não consigo remover um item depois de selecionado. Alguma sugestão caso eu clique em algo acidentalmente e precise removê-lo sem (espero) limpar toda a célula e começar de novo? Além disso, para aqueles que procuram definir uma coluna ou colunas, o Contextures tem uma ótima adição ao código fornecido aqui que permite fazer isso. http://www.contextures.com/excel-data-validation-multiple.html#columnPor Caridade[/quote] O código funciona bem. No entanto, não consigo desmarcar um item. Quando quero remover um item da seleção, ele simplesmente não é removido. Alguém mais experimenta este problema também? [/quote] Olá a todos, Alguma solução encontrada para este problema .. por favor compartilhe ..
Este comentário foi feito pelo moderador no site
Olá, o código funciona bem. No entanto, não consigo desmarcar um item. Quando quero remover um item da seleção, ele simplesmente não é removido. Alguém mais está passando por esse problema também?
Este comentário foi feito pelo moderador no site
Houve uma resposta a esta questão. É o mesmo problema que estou tendo. Não parece haver uma maneira de remover um item que foi selecionado.
Este comentário foi feito pelo moderador no site
exclua o conteúdo da célula e selecione novamente
Este comentário foi feito pelo moderador no site
Olá a todos, eu tenho esse código em uma planilha do Excel e está limpando o conteúdo da lista suspensa quando a célula é selecionada - eu sei qual parte do código está fazendo isso (a parte que diz 'fillRng.ClearContents') e eu tentei usar alguns dos itens acima para corrigi-lo sem sucesso ... Eu sou novo na programação VBA etc. Alguém pode oferecer alguma ajuda sobre como alterá-lo para que, quando a célula for selecionada, não seja limpa e as entradas não sejam duplicado por favor?? Opção Explicit Dim fillRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Qualifiers As MSForms.ListBox Dim LBobj As OLEObject Dim i As Long Definir LBobj = Me.OLEObjects("ListBox1") Definir Qualificadores = LBobj.Object If Target.Row > 3 E Target.Column = 3 Em seguida, defina fillRng = Target With LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End With Else LBobj.Visible = False If Not fillRng é nada Então fillRng.ClearContents Com Qualificadores If .ListCount 0 Then For i = 0 To .ListCount - 1 If fillRng.Value = "" Then If .Selected(i) Then fillRng.Value = .List(i) Else If .Selected(i) Then fillRng.Value = _ fillRng.Value & ", " & .List(i) End If Next End If For i = 0 To .ListCount - 1 .Selected(i) = False Next End With Set fillRng = Nada End If End If End Sub
Este comentário foi feito pelo moderador no site
Olá pessoal, consegui fazer minha lista suspensa perfeitamente, mas minha dúvida é: quando seleciono todos os itens nedded ele vai um após o outro de forma horizontal pela célula, por exemplo: amarelo, verde, preto, vermelho. Mas como fazer para ficar na vertical?, mais como por exemplo: Laranja branco amarelo Vermelho Porque na horizontal a célula fica bem longa ao selecionar muitos itens. Você poderia por favor me dizer se há alguma maneira de fazer isso?. Obrigado, Desirée
Este comentário foi feito pelo moderador no site
Consegui usar este código e criar com sucesso caixas suspensas de seleção múltipla. Funcionou quando eu fechei e reabri em dias diferentes. No entanto, agora nem todas as células que selecionei originalmente estão permitindo seleção múltipla. Apenas aqueles feitos anteriormente, apesar de usar o código para toda a planilha. Você pode ajudar?
Este comentário foi feito pelo moderador no site
Estou tendo o mesmo problema.
Este comentário foi feito pelo moderador no site
as células provavelmente estão bloqueadas, clique com o botão direito em todas elas, vá para formatar células, proteção e desmarque a opção de célula bloqueada
Este comentário foi feito pelo moderador no site
Criei uma lista suspensa onde várias seleções de texto podem ser escolhidas, como "nutrição", "peso" e "trabalho" para o motivo de cada chamada. Tenho uma página de resumo onde quero ver quantos de cada motivo foram indicados em um determinado mês. Que fórmula eu usaria para dizer ao Excel para retirar e contabilizar cada um deles separadamente em um determinado mês? Atualmente, do jeito que eu configurei, ele só é contabilizado corretamente se eu tiver um motivo no celular para cada chamador.
Este comentário foi feito pelo moderador no site
Bom dia,
Desculpe não pode ajudá-lo a resolver este problema. Por favor, deixe-me saber se você encontrar a resposta.
Este comentário foi feito pelo moderador no site
Estou tentando criar 4 colunas com listas suspensas onde posso selecionar vários valores. Como modifico o código VBA "lista suspensa com várias seleções" para que, quando clico em um valor que já foi inserido, ele o remova da célula? Agradeço antecipadamente.
Este comentário foi feito pelo moderador no site
Caro Randy,
O que você quer dizer com "quando clico em um valor que já foi digitado, ele o remove da célula?"
Este comentário foi feito pelo moderador no site
Eu tenho a mesma pergunta. Minha lista suspensa não lembra os valores selecionados. Se alguém clicar em uma célula que já foi preenchida (não por ela, mas por outra pessoa), os valores selecionados serão apagados e a célula ficará em branco novamente.
Este comentário foi feito pelo moderador no site
Estou usando o código abaixo para permitir a seleção múltipla em várias planilhas, mas quando vou para outra planilha na pasta de trabalho, a seleção múltipla desaparece. Quando eu salvo o arquivo e volto, ele funcionará para uma guia com o código, mas novamente quando clico em outra guia com o código, ela não funciona mais. Alguma idéia de como corrigi-lo, se eu clicar em uma planilha com o código VBA, ela sempre permitirá a seleção múltipla?
Este comentário foi feito pelo moderador no site
Oi, ich bin totaler VBA Laie. Ich versuche den Code so zu modifizieren, dass
a) die Mehrfachauswahl nicht in allen, sondern nur ein zwei Spalten aktiv ist
b) ich itens auch wieder rausnehmen kann, zB in dem ich in der Listenauswahl das Item noch einmal anklicke (Beispiel: ich habe über die Mehrfachauswahl ausgewählt: A, D, X, Y... nun fällt mir auf, dass D nicht dazu gehört. Beim aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
Obrigado antecipadamente!
Este comentário foi feito pelo moderador no site
Não consigo prosseguir com a criação da seleção múltipla da lista suspensa. Eu ouvi o tutorial e li o material, mas ainda não consigo criar. Por gentileza alguém pode me ajudar?
Este comentário foi feito pelo moderador no site
Eu sei que isso pode ser totalmente aleatório, mas eu uso uma variação do VBA sem problemas. Exceto em uma página, se você selecionar as três primeiras opções, não permitirá que você selecione a quarta. Ele permitirá que você selecione a 5ª, 6ª e assim por diante, mas não a 4ª opção. Pensamentos?
Este comentário foi feito pelo moderador no site
Oi Robert,
Eu testei o código, mas não encontrei o problema como você mencionou. Você pode me dizer qual versão do Excel você está usando? Obrigado pelo seu comentário.
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL