Posicionar apos organizar ordem alfabética

[Quenaz Santana]

Boa noite a todos

Tenho uma planilha de cadastro simples onde na mesma só registro na

Coluna B = Nome

Coluna C = Telefone

Coluna D = Operadora

 

Na mesma uso o seguinte código VBA

 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    [B4:D115].Sort Key1:=[B4], Order1:=xlAscending
End Sub

 

Meu problema é o seguinte, após digitar um novo nome gostaria que logo após o código acima colocar o novo nome dentro da ordem alfabética quero que o mesmo código VBA me posicione na Coluna C do respectivo novo nome para eu inserir o número do telefone. Atualmente após o código VBA colocar o novo nome dentro da ordem alfabética eu tenho que percorrer toda a lista pra localizar onde se encontra o novo nome pra assim colocar o número do telefone e operadora.

 

Alguém pode me ajudar?

[Quenaz Santana]

Alguém pode me ajudar???

[Enival]

Em 26/03/2016 às 19:05, Quenaz Santana disse:

Alguém pode me ajudar???

Tenta isso

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim Nome As String
    Nome = Target.Value    'Guarda o nome
    On Error Resume Next
    If Target.Column <> 2 Or Target.Row < 4 Then GoTo Sair
    [B4:D115].Sort Key1:=[B4], Order1:=xlAscending
    'Localiza na Plan1 a célula que tem o mome
    Set Endereço = Plan1.Range("B:B").Find(Nome)
    Seleção = Endereço.Address    'Define a selula da seleção
    Plan1.Range(Seleção).Select    'Seleciona a célula com o nome
Sair:
End Sub

 

[Quenaz Santana]

Oi boa tarde amigo

desde já agrade sua ajuda

substitui minha antiga função VBA pela q você mandou e fiz os ajustes necessários, porém não sei porque não esta funcionando como esperado!

Continua na mesma, eu após digitar um novo cliente o mesmo é colocado na ordem alfabética como vinha sendo feito antes pela antiga função mas não faz o que estou precisando.

 

No aguardo de novas orientações suas.

 

Segue anexo da planilha

Clientes.xlsm