Help

[Paiva_0708]

amigos,

estou com uma duvida quanto a uma consulta a um banco de dados em excel:

tenho as seguintes colunas:

campo 1

A | B

luciana | 946

marcio | 945

marcio | 947

debora | 999

francisco | 963

debora | 945

gostaria de ter um novo campo na planilha, onde eu teria o grupo de numeros relacionado a cada pessoa:

campo 2

A | B | C

luciana | 946 |

macio |945 | 947

debora |999 | 945

francisco |963 |

já tentei um procv ,porem,ele me retorna sempre o 1 numero encontrado.acho que deveria ser uma macro.

valeu.

[Graymalkin]

Acredito que aqui não seja o melhor lugar para você tirar dúvidas sobre o VBA do Excel (talvez a sala Microsoft Office seja mais apropriada). De qualquer maneira, como eu estava inspirado, decidi montar uma pequena rotina que faz o que você quer:

Sub t()
    Dim achou As Boolean
    Dim inserir As Collection
    Dim lista As New Collection
    Dim linha As Long
    
    linha = 1
    Do
        nome = Range("A" & linha).Value
        valor = Range("B" & linha).Value
        linha = linha + 1
        Set inserir = Nothing
        For Each obj In lista
            If obj(1) = nome Then
                Set inserir = obj
                Exit For
            End If
        Next obj
        If inserir Is Nothing Then
            Set inserir = New Collection
            lista.Add inserir
            inserir.Add nome
        End If
        inserir.Add valor
    Loop Until nome = ""
    
    Dim planilha As Worksheet
    Set planilha = Worksheets.Add()
    
    linha = 1
    For Each obj In lista
        col = "A"
        
        For Each dado In obj
            planilha.Range(col & linha).Value = dado
            col = Chr(Asc(col) + 1)
        Next dado
        linha = linha + 1
        Debug.Print s
    Next obj
End Sub

Coloque-a em um módulo na pasta de trabalho e execute-a com a planilha que tem os dados (esta planilha deverá ser a selecionada no momento da execução). Será gerada uma nova planilha, na mesma pasta de trabalho, com os dados do jeito que você quer.

Abraços,

Graymalkin