Como colocar em Ordem no Excel?

[Sarcofagobra]

Como coloco esses jogos de loteria em ordem usando esse macro?

De forma que sempre que eu adicionar um concurso fora de ordem eu possa ordena-lo?

Esse macro achei na net(link abaixo). O que preciso modificar nele? E como faco para usa-lo no excel? Meu excel e o 2010.

Sub OrdenaLinha()

Dim L#, ColF#

ColF = 11 ' NÚMERO DA COLUNA FINAL

For L = 3 To Rows.Count ' INICIA O FOR NA LINHA 3 ATÉ A ULTIMA LINHA DA PLANILHA

If Range("B" & L) = "" Then Exit For ' SE ENCOMTRAR UMA LINHA EM BRANCO TERMINA O CÓDIGO

Range(Cells(L, 2), Cells(L, ColF)).Sort Key1:=Cells(L, 2), Order1:=xlAscending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal

'ORDENA A LINHA INTERIRA DE ORDEM ASCENDENTE

Next ' PRÓXIMA LINHA

End Sub

Muito obrigado.

http://www.mediafire.com/?xqf9f84pguz86j8

[Visitante]

Funcionamento:

O código abaixo ordena linha(s) contendo 2 ou mais números. Ordena textos também. Para ordenar uma única linha selecionar a primeira célula com conteúdo à esquerda da linha que se deseja ordenar e rodar o código. Para ordenar várias linhas selecionar a primeira célula com conteúdo à esquerda de cada linha desejada e rodar o código.

Ex 1. ordenar uma única linha >> se os números estiverem na linha '8' a partir da coluna 'D' >> selecionar 'D8' e rodar o código.

Ex 2. ordenar várias linhas >> se os números estiverem da linha '10' até a linha '40', a partir da coluna 'B', selecionar 'B10:B40' e rodar o código

Instale o código abaixo em um módulo comum, assim:

1. copie o código daqui

2. a partir da planilha tecle Alt+F11 para abrir o editor de VBA

3. no menu do editor Inserir >> Módulo e cole o código na janela em branco que vai se abrir

4. feito! Alt+Q para retornar para a planilha

Para rodar o código:

5. Alt+F8 >> selecione 'OrdenaJogos' >> Executar, ou insira um botão na planilha e vincule-o à macro 'OrdenaJogos'

Sub OrdenaJogos()
Dim cel As Range
For Each cel In Selection
ActiveSheet.Sort.SortFields.Clear
Application.ScreenUpdating = False
ActiveSheet.Sort.SortFields.Add Key:=Range(cel, cel.End(xlToRight)), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range(cel, cel.End(xlToRight))
        .Orientation = xlLeftToRight
        .Apply
    End With
Next cel
Application.ScreenUpdating = True
End Sub

[Sarcofagobra]

Oi

aqui nao deu, fiz tudo certinho como você falou, mas na hora que clico em executar o excel aparece como "Nao respondendo".

[Visitante]

Amigão, para agilizar a ajuda disponibilize a sua planilha com exemplos e o código instalado.