Qualé amigos,

Quem puder dar uma força, tópico foi movido a meu pedido para a seção VBA.

No arquivo tem as informações mas um resumo:
- Criei uma macro para classificar A-Z porém quando ativo, a lista não se organiza e ainda somem alguns nomes! Não imagino a razão disso, criei uma lista de nomes qualquer e testei, funcionou, mas na minha lista auxiliar que uso para a "validação tipo lista", acontece isso.

Valeu!

Olá bsll

Dúvidas:
Qual o objetivo da formula na coluna Y?
Veja este exemplo: célula Y2 formula =SEERRO(ÍNDICE($C$2:$C$101;CORRESP(LIN(B2);$D$2:$D$101;0));"")
O CORRESPONDENTE vai trazer o numero 5, pois LIN(B2) é igual a 2 e o primeiro 2 no range $D$2:$D$101 e a linha 6, logo o ÍNDICE pega no range $C$2:$C$101 a linha 6, que tem CARLOS.
Quando vc indexa, o Excel primeiro indexa por nome aí as formula agem modificando o resultado.

Aguardo retorno

Márcio

Então,

O objetivo da coluna Y é eliminar clientes inativos e encerrados.
Dessa maneira, a lista de clientes da coluna Y é composta apenas de clientes ativos e em prospecção, que é fonte para a lista de validação, que por sua vez está em outra aba, formulário de pedidos, onde eu emito pedidos para os clientes.

Fui claro?

Olá bsll

Criei uma nova Macro e mudei os valores para coluna X.
Veja se é por aí!!!

Márico

Márcio

Você agilizou bem o processo, muito obrigado, porém, ainda tem alguns problemas, fiz uma simulação e notei que pra TODOS os clientes ativos ou prospectando, a macro funciona bem, porém, quando coloco INATIVO ou ENCERRADO para algum cliente, quando rodo a macro novamente aparecem alguns problemas, os nomes encerrados não somem, os ATIVOS e PROSPECTANDO não entram em ordem alfabética, é preciso clicar diversas vezes na macro para entrarem só que o fica cheio de duplicidades.

Os passos do teste foram os seguintes:

- Deixar ATIVO ou PROSPECTANDO todos os clientes, rodar a macro;
- Escolher alguns para INATIVO ou ENCERRADO, rodar a macro;
- Como não funcionou, rodei a macro diversas vezes até entrar em ordem, é ai que aparecem as duplicidades e os nomes que não fazem parte dos ATIVOS e ENCERRADOS não somem.

Por favor, faça o teste e entenderá o que estou dizendo.

Valeu

Márciozera

Resolvido o problema lek!!!

Adicionei um clear content na macro e ficou show!!

Valeu irmão pela ajuda!

Abraços!

Amigos,

Na hora de passar a macro para a minha planilha não funcionou!
Estive divagando sobre os motivos e não cheguei a nenhuma conclusão, dentre o quais: células formatadas como tabela ou qualquer tipo de formatação, mais de 3 abas eu precisaria de um código que indicasse as abas, enfim.. várias possibilidades, porém nenhuma pareceu ter sentido.

Então eu montei uma planilha do zero, simulei as colunas iguais minha tabela e tal, não formatei, criei as 3 abas que é o que vou utilizar na original, criei a macro e BINGO! Deu tudo certo!

Então, copiei os dados da minha planilha original para uma nova planilha, colei apenas valores, fiz o MESMO procedimento e PQP!!! Não deu certo, a macro roda, porém não aparecem os resultados!!

Alguém tem alguma idéia?

Eu ainda não coloquei o arquivo aqui pois está com os nomes dos meus clientes etc, mas vou arrumá-lo e envio, alguém consegue pensar em alguma possibilidade???

Valeu.

Abraços!!

Amigos,

Segue modelo anexo.

Em outra planilha funcionou, quando tentei na minha não deu certo.

Não consegui identificar o erro.

A macro roda porém nada acontece.

Valeu

Deve-se atentar que no VBA a comparação e sensível a maiúscula/minúscula. Então verificando se "ATIVO" e igual "Ativo" o retorno é não, são diferentes.
experimente com a alteração abaixo:

Private Sub RoundedRectangle1_Click()
Dim ContaLinhasEnt, ContaLInhasSai As Long

Sheets("Sistema").Range("J:J").ClearContents

    
ContaLinhasEnt = 3
ContaLInhasSai = 3
    
While Sheets("Lista de Clientes 2").Range("A" & ContaLinhasEnt).Value <> Empty
        
    If UCase(Sheets("Lista de Clientes 2").Range("C" & ContaLinhasEnt).Value) = "ATIVO" Or _
       UCase(Sheets("Lista de Clientes 2").Range("C" & ContaLinhasEnt).Value) = "PROSPECTANDO" Then
       Sheets("SISTEMA").Range("J" & ContaLInhasSai).Value = Sheets("Lista de Clientes 2").Range("E" & ContaLinhasEnt).Value
        ContaLInhasSai = ContaLInhasSai + 1
    End If
    ContaLinhasEnt = ContaLinhasEnt + 1
Wend
    
    Sheets("Sistema").Range("J:J").Sort Key1:=Sheets("Sistema").Range("J:J"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    'Range("Y2:Y100").Select

End Sub

Reinaldo

Putz, exatamente isso!

Muito obrigado Reinaldo.

Você poderia me explicar as mudanças que você fez:

- Dim ContaLinhasEnt, ContaLInhasSai As Long

- UCase

Valeu!!

A única alteração foi a instrução UCASE, que "transforma" os caracteres lidos na célula em maiúsculo, para compatibilizar com o comparado.
a linha DIM (referente a declaração de variáveis) já está no seu código, somente a movi de local, pois acho assim mais correto.