ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Listview para Planilha (Resolvido)

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Neri

Listview para Planilha (Resolvido)

Mensagem por Neri » Ter Fev 28, 2012 5:31 pm

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
Editado pela última vez por Neri em Qui Mar 01, 2012 7:35 am, em um total de 1 vez.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2796
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Listview para Planilha

Mensagem por webmaster » Ter Fev 28, 2012 6:02 pm

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


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Neri

Re: Listview para Planilha

Mensagem por Neri » Qua Fev 29, 2012 7:52 am

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



Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1008
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Listview para Planilha

Mensagem por joseA » Qua Fev 29, 2012 9:35 am

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


Se o post lhe agradou clique no sinal de positivo (ao lado de citar).

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1559
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Listview para Planilha

Mensagem por Mauro Coutinho » Qua Fev 29, 2012 10:52 am

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


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

CROVADOR
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha

Mensagem por CROVADOR » Ter Mar 13, 2018 11:22 am

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!



CROVADOR
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Ter Mar 13, 2018 11:26 am

segue anexo para quem poder ajudar-me...
mais uma vez obrigado!
Anexos
TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.rar
(22.99 KiB) Baixado 239 vezes



CROVADOR
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

segue código tambem para vcs ver

Mensagem por CROVADOR » Ter Mar 13, 2018 11:31 am

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



srobles
Jedi
Jedi
Mensagens: 790
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Listview para Planilha (Resolvido)

Mensagem por srobles » Ter Mar 13, 2018 11:44 am

CROVADOR,

Veja se as alterações atendem sua demanda.

Abs
Anexos
TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.zip
(21.67 KiB) Baixado 315 vezes


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

CROVADOR
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Ter Mar 13, 2018 11:55 am

muito obrigado pela ajuda ajudou muito...
Deus abençoe esse site e a todos que ajudam...
obrigado...



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder