Ordenar Caixa de Co...
 
Notifications
Clear all

Ordenar Caixa de Combinação

11 Posts
1 Usuários
0 Reactions
2,966 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!!

Preciso que os nomes dos clientes na caixa de combinação da Plan2 apareçam em ordem alfabetica e que quando eu clicar num determinado nome apareçam os respectivos dados desse cliente que foi selecionado.

Se alguem puder me ajudar ficarei muito agradecido.

 
Postado : 23/06/2011 7:09 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A forma mais fácil é classificar em ordem alfabetica a Plan1 pela coluna Cliente.
Quanto a segunda questão, pelo que vi, os dados nas celulas abaixo já são carregados conforme o nome selecionado no Drop-down, então se for outra coisa que quer, favor passar mais detalhes.

[]s

 
Postado : 23/06/2011 7:40 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Talles, como não é mais possível editar meu post anterior, segue uma dica para as rotinas : "CADASTRAR, APAGAR e ALTERAÇAO", não é necessário colocar todas as linhas referente ao Metodo SmallScroll, é só deixar a linha que quer, assim a rotina fica mais leve, pois executará somente uma instrução em vez de várias, e aproveitei adicionei a Propriedade ScrollArea, a mesma congela a Área determinada, não permitindo que se role a tela pelas barras e nem que se selecione fora da área, veja como ficaria as rotinas :

Sub CADASTRAR()
' CADASTRAR Macro
    ActiveSheet.ScrollArea = "" 'Descongela a àrea demarcada
    ActiveWindow.ScrollRow = 62
    
    ActiveSheet.ScrollArea = "A62:F81" 'Congela a àrea demarcada
    
    Range("D66").Select
End Sub
Sub APAGAR()
' APAGAR Macro
    ActiveSheet.ScrollArea = "" 'Descongela a àrea demarcada
    ActiveWindow.ScrollRow = 86
    ActiveWindow.SmallScroll Down:=32
    
    ActiveSheet.ScrollArea = "A118:F127" 'Congela a àrea demarcada
    
    Range("A118").Select
End Sub
Sub ALTERAÇAO()
' ALTERAÇAO Macro
    ActiveSheet.ScrollArea = "" 'Descongela a àrea demarcada
    ActiveWindow.ScrollRow = 1
    
    ActiveSheet.ScrollArea = "A1:F34" 'Congela a àrea demarcada
    
    Range("A1").Select
End Sub

abraços

 
Postado : 23/06/2011 8:25 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A forma mais fácil é classificar em ordem alfabetica a Plan1 pela coluna Cliente.
Quanto a segunda questão, pelo que vi, os dados nas celulas abaixo já são carregados conforme o nome selecionado no Drop-down, então se for outra coisa que quer, favor passar mais detalhes.

[]s

Mauro, se voce abrir a planilha e clicar no nome do cliente na caixa de combinação vai ver que os dados que aparecem nas linhas abaixo nao referem a aquele cliente que voce selecionou na caixa de combinação e isso sempre acontece quando voce ordena por ordem alfabetica na planilha1...
Faça uns testes que vai enter melhor, por favor.

Obrigado.

 
Postado : 23/06/2011 9:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A forma mais fácil é classificar em ordem alfabetica a Plan1 pela coluna Cliente.
Quanto a segunda questão, pelo que vi, os dados nas celulas abaixo já são carregados conforme o nome selecionado no Drop-down, então se for outra coisa que quer, favor passar mais detalhes.

[]s

Mauro, se voce abrir na Plan2 e clicar no nome do cliente na caixa de combinação vai ver que os dados que aparecem nas linhas abaixo nao referem a aquele cliente que voce selecionou na caixa de combinação e isso sempre acontece quando voce classifica por ordem alfabetica na Plan1...
Faça uns testes que vai entender melhor minha intenção, por favor.

Exemplo: quando seleciona LUCAS mostra os dados de ANTONIO

quando seleciona ANTONIO mostra os dados de CARLOS

Isso que quero corrigir...

Obrigado.

 
Postado : 23/06/2011 9:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Talles, BLZ?

Olha só na plan1, no campo ficha faça o filtro, classifique do menor para o maior.

Ve ai e da o retorno.

T+

 
Postado : 24/06/2011 4:31 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá Talles, BLZ?

Olha só na plan1, no campo ficha faça o filtro, classifique do menor para o maior.

Ve ai e da o retorno.

T+

Anderson, mesmo quando ordenar do menor para o maior vai acontecer casos dos nomes dos clientes na caixa de combinação na Plan2 nao aparecerem em ordem alfabetica.

Quando classica do menor para o maior funciona certinho mas os nomes nao ficam em ordem alfabetica, e quando classifica de A a Z os nomes ficam em ordem alfabetica, mas quando voce seleciona um cliente aparece informações de outro.

E para mostrar os nomes em ordem alfabetica tem como ?

Grato.

Veja esse exemplo em anexo:

 
Postado : 24/06/2011 5:35 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenta assim.
Testa ai e da o retorno

 
Postado : 24/06/2011 6:37 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenta assim.
Testa ai e da o retorno

Anderson, perfeio!!! Muito obrigado cara !!!
Funcionou!!!

Tem como na Plan1 depois que cadastra cliente, ela ja ordernar
automaticamente por ordem alfabetica ?

Obrigado!!!!

 
Postado : 24/06/2011 6:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olha só, não frago muito de vba, to aprendendo.

Oque fiz foi formula na plan 2.

Mudei o vinculo da caixa para H3 e coloquei aformula a seguir na E3 =ÍNDICE(Plan1!A2:B18;Plan2!H3;1)
Inclusive a formila em I3 pode apagar.
Nesse caso temos que esperar um colega do forum nos ajudar.

BLZ?

T+

 
Postado : 24/06/2011 7:01 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tenta assim.
Testa ai e da o retorno

Anderson, perfeio!!! Muito obrigado cara !!!
Funcionou!!!

Tem como na Plan1 depois que cadastra cliente, ela ja ordernar
automaticamente por ordem alfabetica ?

Obrigado!!!!

Postei no topico abaixo :
Ordenar caixa de combinação em Alfabetica
viewtopic.php?f=16&t=2017&p=8367#p8367

[]s

 
Postado : 24/06/2011 9:00 am