[Uso de vetor]

Ola,

Tenho um exercicio da faculdade em que tenho uma planilha com nomes de investidores, as respectivas cidades deles, e o valor que eles possuem para investir.

Tenho que criar uma nova planilha em que tenho que agrupar por cidade que tenham 10 ou mais investidores.

O enunciado é esse: Crie por meio de uma macro uma nova planilha de nome Investidores Por Cidade e coloque os nomes

das cidades e o valor total investido e a quantidade de investidores de cada cidade, apenas para cidades

com 10 ou mais investidores.

isso foi o que eu fiz, mas não consigo criar um jeito de calcular o que o enunciado pede, me confundo muito com vetores.

alguém pode me ajudar?

Sub InvestidoresPorCidade()

Dim cidades() As String
Dim num_invest As String
Dim total_valor As Double
Dim investCidad As Integer
Dim tam As Integer


Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Investidores Por Cidade"

lin = 2

While Cells(lin, 3) <> ""
tam = tam + 1
Wend



While Worksheets("Investidores").Cells(lin, 3) <> Empty 'conta quantas vezes cada cidade aparece

investCidad = Cells(lin, i + 1)


lin = lin + 1
Wend

End Sub

[Ordena Selection]

Ola,

tenho um exercicio da faculdade em que tenho que ordenar uma lista de nomes em uma coluna. Porem, indicaram que a ordenção teria que ser feita pelo metodo Selection, e que fosse feita duas subs e uma function para isso.

esse é o enunciado : Ordene os investidores em ordem crescente pelo último sobrenome (ex: Zélia Cardoso vem antes de

Alberto Terra)

O maximo que consegui chegar foi isso

Function calculaTamanho() As Integer ' calcula a quantidade total de nomes

Dim tam As Integer
tam = 1

While Cells(tam + 1, 1) <> ""
tam = tam + 1
Wend

calculaTamanho = tam - 1 ' porque tem o indice na primeira celula que ele conta
End Function

_________________

Sub troca(lin1 As Integer, lin2 As Integer) ' troca de posição os valores comparados

Dim aux As String
Dim col As Integer

col = 1

While Cells(lin1, col) <> ""
aux = Cells(lin1, col)
cells(lin1,col)=cells(
Cells(lin2, col) = aux
col = col + 1
Wend
End Sub

____________

Sub ordenaSelection()

Dim nome As String
Dim letra_sobrenome As String
Dim sobrenome As String
Dim cont As Integer
Dim x As String

sobrenome = Right(nome, Len(nome) - InStr(nome, " ")) ' pega somente o sobrenome

letra_sobrenome = Left(sobrenome, 1) ' pega a primeira letra do sobrenome

End Sub

alguém tem noção de como eu faço isso funcionar??