Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Organizar alfabetic...
 
Notifications
Clear all

Organizar alfabeticamente (linha inteira)

 
2024 - VBA & Macros
Post Recente por Myron 9 anos atrás
3 Posts
2 Usuários
0 Reactions
570 Visualizações
RSS
 Myron
(@myron)
Posts: 2
New Member
Topic starter
 

Boa noite,

pesquisei outros tópicos que também eram sobre organizar alfabeticamente a planilha, testei uma macro aqui do fórum, mas não era exatamente o que eu precisava.

Na verdade creio ser bem simples, mas mesmo quebrando a cabeça, não consigo avançar.

Estou criando uma planilha de clientes, com poucos dados, 'CLIENTE/CIDADE/FONE/E-MAIL/CONTATO', sendo cada item uma coluna, e seus respectivos dados.

Coloquei um filtro pra ordenar por cidade. Mas o que eu queria era que ao cadastrar um novo cliente, ao dar enter, todos os dados desse cliente acompanhassem ele na ordenação da planilha. Todas as macros que eu testei até agora colocam automaticamente em ordem alfabética o cliente, mas as demais informações, nas outras colunas de dados, se "perdem", e ficam para trás.

Se alguém tiver, ou a macro, ou a paciência de me explicar o que estou fazendo errado, agradeço.

 
Postado : 09/12/2015 6:52 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

vc cadastra tantos clientes assim, pq por mais que isso seja manual vc pode fazer isso uma vez ao dia .

De qualquer maneira tente isso

Nao sei como vc faz o cadastro dos clientes, entao coloque esse codigo em um botao e ao terminar o cadastro execute a macro

Sub Classificar()

Range("A1").Select
Selection.CurrentRegion.Select
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("A:A"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Plan1").Sort
.SetRange Range("A:E")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 09/12/2015 7:22 pm
 Myron
(@myron)
Posts: 2
New Member
Topic starter
 

Boa noite.

Marcelo, muitíssimo obrigado. Eu já estava sem ideias, e tu me salvastes a noite.

Esse é um cadastro mais simplório dos clientes, só para acesso rápido, sem todos os dados, apenas com o essencial, mas fazer manualmente, realmente só em última opção.

Muito obrigado e até a próxima.

 
Postado : 09/12/2015 8:20 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico