Macro VBA ordenação

#1

ola excelistas,

eu tenho uma macro que classifica os numeros da esquerda para direita, uma linha de cada vez.

agora estava precisando de uma macro que classificasse da mesma maneira, porem varias linhas ao mesmo tempo, então achei um codigo na internet e tentei dar uma adaptada com a macro que eu já tinha (juntando as duas), para minha surpresa tem momentos q essa nova macro classifica certinho e em outros momentos faz uma bagunça com os numeros.

vou postar aqui a nova macro q criei juntando as duas que eu tenho para ver se algum de vcs detectam algum erro q posso ter, ja que olhei e não consegui perceber.

Sub ordenar_apostas_crescente()
Dim UltimaLinha As Long

’
’ ordenar_apostas_crescente Macro
’

’

On Error GoTo erro
Dim Message, Title, Default, MyValue
Message = "Informe a linha da aposta que vai ser organizada"
Title = "QUARTA PREMIADA"
Default = Range("c1").Text
minhafaixa = InputBox(Message, Title, Default)
If minhafaixa = "" Then Exit Sub
Response = MsgBox("Pode organizar?", vbYesNo + vbCritical + vbDefaultButton2, "Organizar números apostados")
If Response = vbYes Then
    Range(minhafaixa).Select
    
Dim I As Long
    
For I = 2 To Planilha3.Range("A65000").End(xlUp).Row

Planilha3.Range(minhafaixa).Sort Key1:=Range(minhafaixa), Orientation:=xlLeftToRight

Next I

Application.ScreenUpdating = True

Else
    MyString = "Não"
End If
Exit Sub

erro:
MsgBox Err.Number & " - " & Err.Description

End Sub

abaixo um exemplo das minhas colunas com os numeros que precisam ser colocados em ordem:

02 18 21 32 41 51 61 69 88 91
01 04 19 26 36 43 49 52 88 91
04 07 12 14 17 26 29 50 71 75
18 26 31 38 50 57 71 78 93 00
08 14 19 22 27 31 36 41 57 72
13 25 31 39 43 59 70 75 79 89
08 11 19 38 42 66 77 88 92 95
05 17 24 33 42 51 65 74 87 91
01 04 13 18 21 23 26 49 52 96
01 05 13 19 23 33 44 52 66 67
04 08 13 17 18 24 33 44 77 00
06 20 41 44 48 72 85 89 94 98

#2

Boas tudo bem.
Veja se esse código lhe ajuda:

Código 
Sub ordenar()
Dim UltimaLinha As Long, I As Long

'Desativa update da tela
Application.ScreenUpdating = False

'Encontra ultima linha
UltimaLinha = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

'Desde a linha 1 até a ultima linha faz...
For I = 1 To UltimaLinha

'Seleciona a linha I e vai ordenar os valores
Rows(I).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range("A" & I & ":J" & I) _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A" & I & ":J" & I)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
    
Next I

'seleciona Célula A1 quando acaba de ordenar tudo
Range("A1").Select

'Ativa update da tela
Application.ScreenUpdating = True

End Sub
#3

só que eu queria escolher o intervalo a ser ordenado, por isso na minha macro tinha o comando “minhafaixa”