masbah

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

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??