Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Listview para Planilha (Resolvido)
Listview para Planilha (Resolvido)
tenho uma Listview que eu quero fazer uma das duas coisas:
- Ou imprimir direto a Listview ,
- ou mandar ela para uma planilha para depois imprimir.
quem tem um exemplo?
Vlw
- Ou imprimir direto a Listview ,
- ou mandar ela para uma planilha para depois imprimir.
quem tem um exemplo?
Vlw
Editado pela última vez por Neri em Qui Mar 01, 2012 7:35 am, em um total de 1 vez.
Re: Listview para Planilha
Neri,
Tem isso no modelo de cadastro, mas não é na listview. De qualquer forma, a fonte de dados para exportar para a planilha é o RecordSet, portanto, acho que não interfere. Dê uma olhada.
Abraços
Tem isso no modelo de cadastro, mas não é na listview. De qualquer forma, a fonte de dados para exportar para a planilha é o RecordSet, portanto, acho que não interfere. Dê uma olhada.
Abraços
Re: Listview para Planilha
bom dia
posso estar enganado, porém para o listbox eu usava um comando e queria usar um semelhante, porém está dando um erro (em vermelho), mas precisamente na expressão ".List"
O que devo alterar?
'Pegando os dados do listbox (listview1)
With ListView1
'Colocando esses dados temporariamente em uma sheet (coloca em A1 16 colunas)
Sheets("Relacao").Visible = True
Plan3.Range("A2").Resize(.ListCount, 15).Value = .List
posso estar enganado, porém para o listbox eu usava um comando e queria usar um semelhante, porém está dando um erro (em vermelho), mas precisamente na expressão ".List"
O que devo alterar?
'Pegando os dados do listbox (listview1)
With ListView1
'Colocando esses dados temporariamente em uma sheet (coloca em A1 16 colunas)
Sheets("Relacao").Visible = True
Plan3.Range("A2").Resize(.ListCount, 15).Value = .List
- joseA
- Jedi
- Mensagens: 1048
- Registrado em: Qui Out 22, 2009 7:22 am
- Localização: Cel. Fabriciano - MG
Re: Listview para Planilha
Transfere todos dados para Plan a partir de A2.
Código: Selecionar todos
Dim i As Integer, j As Integer
'Loop as lignes
For i = 1 To ListView1.ListItems.Count
Cells(i + 1, 1) = ListView1.ListItems(i).Text
'Loop as colunas
For j = 1 To ListView1.ColumnHeaders.Count - 1
Cells(i + 1, j + 1) = ListView1.ListItems(i).ListSubItems(j).Text
Next j
Next i
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Listview para Planilha
Veja se ajuda :
Criar Filtros e Imprimir ( Mais uma vez ) [Resolvido]
http://www.planilhando.com.br/forum/vie ... 4&start=10
Filtrar ListView Criterios Datas e Texto
http://www.planilhando.com.br/forum/vie ... 586#p16974
E no Forum Tutorial e Dicas aqui mesmo, temos alguns exemplos :
viewforum.php?f=17
[]s
Criar Filtros e Imprimir ( Mais uma vez ) [Resolvido]
http://www.planilhando.com.br/forum/vie ... 4&start=10
Filtrar ListView Criterios Datas e Texto
http://www.planilhando.com.br/forum/vie ... 586#p16974
E no Forum Tutorial e Dicas aqui mesmo, temos alguns exemplos :
viewforum.php?f=17
[]s
Re: Listview para Planilha
bom dia amigos...
tenho uma Listview mas nao consigo gravar os dados da Listview para Planilha e ir para a proxima linha
por favor ajudem-me...
obrigado!
tenho uma Listview mas nao consigo gravar os dados da Listview para Planilha e ir para a proxima linha
por favor ajudem-me...
obrigado!
Re: Listview para Planilha (Resolvido)
segue anexo para quem poder ajudar-me...
mais uma vez obrigado!
mais uma vez obrigado!
- Anexos
-
- TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.rar
- (22.99 KiB) Baixado 631 vezes
segue código tambem para vcs ver
Private Sub cmd_salvar_Click()
Dim linha As Integer
Dim i As Integer
Dim Item As ListItem
Dim ws As Worksheet
On Error Resume Next
'cadastra registro na planilha Banco_Dados
'-------------------------------------
Set ws = ThisWorkbook.Worksheets("Banco_Dados")
linha = 2
With ws
Do Until Sheets("Banco_Dados").Cells(linha, 1) = ""
linha = linha + 1
Loop
For i = 1 To ListView1.ListItems.Count
Cells(i + 1, 1) = ListView1.ListItems(i).Text
Cells(i + 1, 2) = ListView1.ListItems(i).SubItems(1)
Cells(i + 1, 3) = ListView1.ListItems(i).SubItems(2)
Cells(i + 1, 4) = ListView1.ListItems(i).SubItems(3)
Cells(i + 1, 5) = ListView1.ListItems(i).SubItems(4)
Next
'Sheets("Banco_Dados").Cells(linha, 1) = UserForm1.TextBox1.Text
'Sheets("Banco_Dados").Cells(linha, 2) = UserForm1.TextBox2.Text
'Sheets("Banco_Dados").Cells(linha, 3) = UserForm1.TextBox3.Text
'Sheets("Banco_Dados").Cells(linha, 4) = UserForm1.TextBox4
'Sheets("Banco_Dados").Cells(linha, 5) = UserForm1.TextBox5
MsgBox "LANÇADO COM SUCESSO", vbInformation, "AÇÃO BEM SUCEDIDA!"
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4 = ""
UserForm1.TextBox5 = ""
End With
End Sub
Dim linha As Integer
Dim i As Integer
Dim Item As ListItem
Dim ws As Worksheet
On Error Resume Next
'cadastra registro na planilha Banco_Dados
'-------------------------------------
Set ws = ThisWorkbook.Worksheets("Banco_Dados")
linha = 2
With ws
Do Until Sheets("Banco_Dados").Cells(linha, 1) = ""
linha = linha + 1
Loop
For i = 1 To ListView1.ListItems.Count
Cells(i + 1, 1) = ListView1.ListItems(i).Text
Cells(i + 1, 2) = ListView1.ListItems(i).SubItems(1)
Cells(i + 1, 3) = ListView1.ListItems(i).SubItems(2)
Cells(i + 1, 4) = ListView1.ListItems(i).SubItems(3)
Cells(i + 1, 5) = ListView1.ListItems(i).SubItems(4)
Next
'Sheets("Banco_Dados").Cells(linha, 1) = UserForm1.TextBox1.Text
'Sheets("Banco_Dados").Cells(linha, 2) = UserForm1.TextBox2.Text
'Sheets("Banco_Dados").Cells(linha, 3) = UserForm1.TextBox3.Text
'Sheets("Banco_Dados").Cells(linha, 4) = UserForm1.TextBox4
'Sheets("Banco_Dados").Cells(linha, 5) = UserForm1.TextBox5
MsgBox "LANÇADO COM SUCESSO", vbInformation, "AÇÃO BEM SUCEDIDA!"
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4 = ""
UserForm1.TextBox5 = ""
End With
End Sub
Re: Listview para Planilha (Resolvido)
CROVADOR,
Veja se as alterações atendem sua demanda.
Abs
Veja se as alterações atendem sua demanda.
Abs
- Anexos
-
- TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.zip
- (21.67 KiB) Baixado 743 vezes
Re: Listview para Planilha (Resolvido)
muito obrigado pela ajuda ajudou muito...
Deus abençoe esse site e a todos que ajudam...
obrigado...
Deus abençoe esse site e a todos que ajudam...
obrigado...