Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Classificar planilh...
 
Notifications
Clear all

Classificar planilha

 
2024 - VBA & Macros
Post Recente por joocta 8 anos atrás
5 Posts
2 Usuários
0 Reactions
920 Visualizações
RSS
 joocta
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Caros Amigos,
estive olhando aqui no fórum achei alguns mas não consegui adaptar para o que eu queria.
Ainda estou engatinhando...
queria classificar minha planilha.
usei a rotina abaixo, mas determinei uma linha final, mas queria que ela fosse acrescentando conforme fosse colocado um dado novo.
Como eu faria para a cada dado que fosse inserido ela acrescentasse uma linha ao invés de colocar a linha "S500"?

Sub classificar()
'
' classificar Macro
'

'
Range("A2").Select
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("A2"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BD").Sort
.SetRange Range("A2:S500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Att,
José Octavio.

 
Postado : 03/07/2016 10:52 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Troque por esta

Sub classificar()
    
    Dim ultLin As Long
    
    ultLin = Worksheets("BD").Cells(Rows.Count, "A").End(xlUp).Row
   
    Set Rng = Worksheets("BD").Range("A2:S" & ultLin)
    
    'Range("A2").Select
    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("A2"), SortOn _
    :=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    
    With ActiveWorkbook.Worksheets("BD").Sort
        .SetRange Rng
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/07/2016 5:32 am
 joocta
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Está dando que a variavel Rng nao foi definida... essa variavel seria o que....

 
Postado : 04/07/2016 4:50 pm
 joocta
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

declarei como Variant...

 
Postado : 04/07/2016 5:00 pm
 joocta
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Se eu quisesse fazer com que so aparecesse o Form? como faria para fazer as planilhas relacionadas somente ao cadastro ficassem ocultas sem atrapalhar outras planilhas... Tem como?

 
Postado : 04/07/2016 5:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico