Boa tarde VBA-Sistems
Eu ainda sou iniciante em VBA, mas uma maneira fácil de vc fazer isso é gravar uma macro Aplicando Filtro Avançado com o Critério: Nome: João
Depois é só classificar pelo coluna B e pronto.
Como fazer:
A Plan1 tem que ter cabeçalho igual ao que vai usar no critério, como por exemplo na célula A1 Nome e na B1 Valor.
Na Plan2 na célula D1 escreva Nome e na D2 João (É o critério)
Clique no botão gravador, que fica logo abaixo da Aba da Plan1: Se quiser de nome, senão só dar OK e realizar as seguintes tarefas:
Na Plan2 --> Com o cursor na célula A1 ---> clique na Guia Dados ---> Filtro Avançado ---> Marque a opção Copiar para outro Local --> clique no quadradinho lado direito do Intervalo da Lista para abri uma janelinha auxiliar --> vá p a Plan1 e selecione todos os dados, inclusive os cabeçalhos ---> clique no para fechar a janelinha e retornar p a janela principal do filtro avançado --> clique em Intervalos de critérios e selecione as Células D1:D2 ---> clique em copiar para: digite A1 --> Dê Ok 9 O filtro esta pronto.
Agora --> Selecione a coluna A e B até onde tiver dados --> clique Guia Dados ---> clique em Classificar ---> Marque a opção: Meus Dados comtém cabeçalhos ---> na primeira janela da esquerda escolha a opção classificar por valor--> Dê OK - clique na célula A1 para desamrcar o intervalo.
Desligue o gravador de Macro.
Guia desenvolvedor ---> Inserir --> Escolha Botão no controle de formulário--> Desenhe o botão na planillha ---> Atribua a Macro e pronto.
Para vc ver o código--> clique em ALT+F11 --> No lado esquerdo clique em Módulos --> depois em Módulo 1.
Espero ter ajudado.
Dê retorno.
Um abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 12/10/2011 10:59 am