VBA

rocca18
(usa Nenhuma)

Enviado em 05/10/2017 - 13:32h

GALERA TENHO UMA TABELA

COM NOME DO PRODUTO E QUANTIDADE. Como faço para ordena isso em vba?? Olham meu código

A1 1
A2 2
A3 3
A4 4
A5 5
A6 6
A7 7
A8 8
A9 9
A10 50
A11 11
A12 12
A13 13
A14 14
A15 18
A16 25
A17 35
A18 41
A19 25
A20 81

Sub filtrar()

Dim j, k As Integer
Dim maior, menor As Double
Dim NomeMaior, NomeMenor As String


j = 2

menor = Cells(2, 2)

maior = Cells(2, 2)

While j < 21
Produto = Cells(j, 2)


If Produto <= menor Then

menor = Produto
NomeMenor = Cells(j, 1)

End If

If Produto > maior Then

maior = Produto
NomeMaior = Cells(j, 1)

End If

j = j + 1

Wend

while
Produto = Cells(k, 2)


Next k

If Produto <= menor Then

menor = Produto
NomeMenor = Cells(k, 1)

End If

If Produto > maior Then

maior = Produto
NomeMaior = Cells(k, 1)

End If

Wend
j = j + 1
k = k + 1

Planilha2.Cells(k, 2) = NomeMenor
Planilha2.Cells(j, 2) = NomeMaior
Planilha2.Cells(k, 3) = maior
Planilha2.Cells(j, 3) = menor



End Sub