retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Patropi em Sex Dez 25, 2015 3:37 pm

Boa tarde

Através de fórmulas eu sei fazer, mas gostaria de saber como fazer utilizando VBA.
Numa ComboBox ou validação de dados, retornar na Plan1 os nomes sem repetição e em ordem alfabética.
Os dados se encontram na coluna A da Plan2, com cabeçalho na Linha A1.
Dê preferencia usar range dinâmico pois na coluna A serão digitados mais nomes.

sendspace.com ootnyr

Um abraço e boas festas!


Última edição por Patropi em Qua Dez 30, 2015 5:19 pm, editado 1 vez(es)
avatar
Patropi
Membro
Membro

Mensagens : 7
Data de inscrição : 09/12/2015
Idade : 57
Localização : Campo Mourão, PR

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Admin em Dom Dez 27, 2015 1:18 pm

Boa tarde,

Veja se este código atende:

Código:
Sub RemoverDuplValidacao()
    Dim n As Integer
    
    With Sheets("Plan2")
        n = .[A1].CurrentRegion.Rows.Count
        .Range("A2:A" & n).Copy .[J1]
        .Range("J1:J" & n - 1).RemoveDuplicates Columns:=1, Header:=xlNo
        n = .[J1].CurrentRegion.Rows.Count
        With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=Range("J1"), Order:=xlAscending
            .SetRange Range("J1:J" & n)
            .Apply
        End With
    End With
    With Sheets("Plan1").[B7].Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="=Plan2!$J$1:$J$" & n
    End With
End Sub
Abraço

Admin
Admin

Mensagens : 19
Data de inscrição : 26/11/2015
Idade : 51
Localização : São Paulo

Ver perfil do usuário http://exceljvalq.livreforum.com

Voltar ao Topo Ir em baixo

Re: retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Patropi em Seg Dez 28, 2015 5:58 pm

Boa tarde JVALQ

Funcionou, mas na coluna J não está atualizando os novos nomes que foram digitados na coluna A.
Favor verificar na planilha o que eu fiz de errado.

Parece que o fórum não aceita links para site de Upload, mas vou burlar colocando asterisco entre o endereço e digitando ponto por extenso.

Para baixar o arquivo, copie o endereço, apague os asteriscos e os pontos e digite ponto normal onde tem ponto por extenso.

*w*w*wpontosendspacepontocom/file/on6ij8

Um abraço.
avatar
Patropi
Membro
Membro

Mensagens : 7
Data de inscrição : 09/12/2015
Idade : 57
Localização : Campo Mourão, PR

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Admin em Ter Dez 29, 2015 3:41 pm

Boa tarde, Patropi,

Testei e funcionou normalmente com a sua planilha enviada na segunda mensagem.
Excluí e inseri nomes na coluna A e a coluna J, que é a base da validação foi atualizada.
Eu utilizei a versão 2016 do Excel, mas acho que deve funcionar a partir da 2010 ou até da 2007, pois o recurso mais recente que utilizei foi o "Remover Duplicatas".
O link da primeira mensagem funcionou normalmente... Achei estranho não funcionar na segunda.

Abraço

Admin
Admin

Mensagens : 19
Data de inscrição : 26/11/2015
Idade : 51
Localização : São Paulo

Ver perfil do usuário http://exceljvalq.livreforum.com

Voltar ao Topo Ir em baixo

Re: retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Patropi em Ter Dez 29, 2015 5:33 pm

Boa tarde

O meu Excel é o 2013.
Se eu teclo CTRL+F8 e comando a macro, ocorre a atualização da coluna J, mas se eu acrescentar mais dados e for apenas selecionar a validação, ela não mostra os novos nomes inseridos, e na coluna J da outra planilha também não constam.

Pode ver no anexo da minha mensagem anterior, constam nomes digitados na coluna A que não constam na coluna J mesmo depois de eu ter selecionado a validação.

Se ainda não entendeu, pergunte que eu vou tentando explicar.

Obrigado pela paciência.

Um abraço.
avatar
Patropi
Membro
Membro

Mensagens : 7
Data de inscrição : 09/12/2015
Idade : 57
Localização : Campo Mourão, PR

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Admin em Qua Dez 30, 2015 3:19 pm

Boa tarde, Patropi,

Agora, acho que entendi... Você quer que a atualização seja automática, certo?
Aí tem que inserir o seguinte código no evento Change da "Plan2":

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    RemoverDuplValidacao
    Application.EnableEvents = True
End Sub

Abraço

Admin
Admin

Mensagens : 19
Data de inscrição : 26/11/2015
Idade : 51
Localização : São Paulo

Ver perfil do usuário http://exceljvalq.livreforum.com

Voltar ao Topo Ir em baixo

Re: retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Patropi em Qua Dez 30, 2015 5:16 pm

Boa tarde José

Funcionou perfeitamente.
Muito obrigado!

Um abraço e Boas festas!
avatar
Patropi
Membro
Membro

Mensagens : 7
Data de inscrição : 09/12/2015
Idade : 57
Localização : Campo Mourão, PR

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: retornar Nomes sem repetir e em ordem alfabética[Resolvido]

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum