PREENCHER LISTVIEW COM DADOS DA PLANILHA

LENOMOTA 22/02/2012 22:49:11
#395328
Boa noite.
Estou tentando montar uma tela com os principais dados dos clientes cujo dados estão na minha planilha excel 2007.

Quais os meus erros?

Alguem pode me ajudar a contruir o loop para alimentar a listview?

Segue codigo:

Private Sub CommandButton1_Click()

Sheets([Ô]Plan1[Ô]).Activate
Range([Ô]a1[Ô]).Select

ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value <> vbNullString Then

ListView1.ListItems.Add(1).Text = ActiveCell.Value
ListView1.ListItems.Item(1).ListSubItems.Add = ActiveCell.Offset(1, 1).End(xlUp)
ListView1.ListItems.Item(1).ListSubItems.Add = ActiveCell.Offset(1, 2).End(xlUp)
ListView1.ListItems.Item(1).ListSubItems.Add = ActiveCell.Offset(1, 3).End(xlUp)
Else
Preencher = False
MsgBox ([Ô]Não existem dados para exibição[Ô]), vbInformation, [Ô]Leno Mota[Ô]
End If


End Sub
ASHKATCHUP 23/02/2012 20:39:03
#395434 Resposta escolhida
Poste a planilha aqui pra eu dar uma olhada e te ajudar
LENOMOTA 23/02/2012 23:21:18
#395446
Ok... Muito obrigado.
ASHKATCHUP 24/02/2012 20:36:31
#395583
Fiz um exemplo ai pra ti, cara.

Da pra melhorar, mas isso resolve teu problema 


Private Sub CommandButton1_Click()
    Dim dados As Range
    Dim cont As Integer
    [ô]
    Sheets([Ô]Plan1[Ô]).Activate
    [ô]
    Set dados = Sheets([Ô]Plan1[Ô]).Range([Ô]a:a[Ô])
    [ô]
    cont = 1
    [ô]
    For Each linhas In dados.Rows
        [ô]
        If linhas.Columns(1).Value = vbNullString Then Exit For
        [ô]
        ListView1.ListItems.Add cont, [Ô]L[Ô] & cont, linhas.Columns(1).Value
        ListView1.ListItems.Item(cont).ListSubItems.Add 1, [Ô]L[Ô] & cont & [Ô]#[Ô] & 1, linhas.Columns(2).Value
        ListView1.ListItems.Item(cont).ListSubItems.Add 2, [Ô]L[Ô] & cont & [Ô]#[Ô] & 2, linhas.Columns(3).Value
        [ô]
        cont = cont + 1
        [ô]
    Next
    [ô]
End Sub
LENOMOTA 25/02/2012 00:08:54
#395601
Muito obrigado mesmo. Só esqueci de pedir para pegar os dados que estão abaixo do titulo (Linha 2), pois na linha um eu tenho o [Ô]cabeçalho[Ô] da tabela.
Como faço isso?
Estou realmente impressionado!
ASHKATCHUP 25/02/2012 09:01:53
#395619
é na linha abaixo que tu seleciona o que será analisado pelo código. 


Set dados = Sheets([Ô]Plan1[Ô]).Range([Ô]a:a[Ô])



A:A = pega TODAS cedulas da coluna A, da primeira a ultima

O que tu pode fazer é colocar


A2:A100


E ai mudar o [Ô]100[Ô] pra o numero de linhas que tu vai ter ou algum valor bem grande, tipo 34000, para pegar todas.
LENOMOTA 25/02/2012 21:34:02
#395652
Vlew cara! Voce é d+...

Prometo que é o ultimo incomodo...
Tópico encerrado , respostas não são mais permitidas
Voltar