Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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
CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

Bom dia Amigos,
Preciso de uma ajuda com relação a visualizar impressão no listview, e se tem como imprimir diretamente dela...

aguardo amigos..


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.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

boa tarde amigos atravez do codigo abaixo queria que quando eu exportasse algo de minha listview se ela estiver em branco que que retorne branco, mas não esta acontecendo isso....
alguem pode ajudar-me?


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

boa tarde amigos atravez do codigo abaixo queria que quando eu exportasse algo de minha listview se ela estiver em branco que que retorne branco, mas não esta acontecendo isso....
alguem pode ajudar-me?

Plan6.Cells(I + 33, 1) = CDbl(ListView1.ListItems(I))
Plan6.Cells(I + 33, 2) = CDbl(ListView1.ListItems(I).ListSubItems(2))
Plan6.Cells(I + 33, 3) = ListView1.ListItems(I).ListSubItems(1).Text
Plan6.Cells(I + 33, 9) = CCur(ListView1.ListItems(I).ListSubItems(3))
Plan6.Cells(I + 33, 15) = CCur(ListView1.ListItems(I).ListSubItems(4))


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha

Mensagem por CROVADOR »

boa tarde amigos atravez do codigo abaixo queria que quando eu exportasse algo de minha listview se ela estiver em branco que substitua os dados existentes e retorne branco, mas não esta acontecendo isso....
alguem pode ajudar-me? SEGUE ANEXO... O FORM É ORDEM_sERVIÇO.


Plan6.Cells(I + 33, 1) = CDbl(ListView1.ListItems(I))
Plan6.Cells(I + 33, 2) = CDbl(ListView1.ListItems(I).ListSubItems(2))
Plan6.Cells(I + 33, 3) = ListView1.ListItems(I).ListSubItems(1).Text
Plan6.Cells(I + 33, 9) = CCur(ListView1.ListItems(I).ListSubItems(3))
Plan6.Cells(I + 33, 15) = CCur(ListView1.ListItems(I).ListSubItems(4))
Anexos
VBATCO.rar
(406.57 KiB) Baixado 417 vezes


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.


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

boa tarde amigos,
como faço para inserir mais uma listview2 junto com o codigo abaixo...

For I = 1 To ListView1.ListItems.Count

ajudem por favor....


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Alterar ordem serviço

Mensagem por CROVADOR »

bom dia amigos venho solicitar ajuda novamente de vcs,
eu coloquei um botão no form ordem de serviço para alterar as ordens de serviço mas não consegui realizar este codigo, alguem pode ajudar por favor...



desde já agreço a todos...
segue anexo

Aguardo ajuda amigos ...help...
Anexos
VBA ATUAL.rar
(426.3 KiB) Baixado 417 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

Botão Alterar Não Funciona.

Mensagem por CROVADOR »

Boa tarde amigos venho solicitar ajuda novamente de vcs,
eu coloquei um botão no form ordem de serviço para alterar as ordens de serviço mas não consegui realizar este codigo, alguem pode ajudar por favor...



desde já agreço a todos...
segue anexo

Aguardo ajuda amigos ...help...
Anexos
VBA ATUAL.rar
(382.53 KiB) Baixado 431 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

duas Listview para Planilha

Mensagem por CROVADOR »

Bom dia Amigos,
Peço humildemente ajuda de vocês para com a planilha,
tenho duas listview mas só consigo gravar uma em meu banco de dados, e preciso que grave os dados das duas listview, alguém pode ajudar-me?

segue planilha em anexo.

Deus abençoe por ajudar a todos....

aguardo ajuda amigos....help
Anexos
ORÇAMENTO.rar
(69.02 KiB) Baixado 410 vezes


CROVADOR
Manda bem
Manda bem
Mensagens: 106
Registrado em: Ter Mar 13, 2018 11:15 am

MAIS UMA LISTVIEW

Mensagem por CROVADOR »

COMO ACRESCENTAR MAIS UMA LISTVIEW NESTE CODIGO...



For i = 1 To Me.LISTVIEW1.ListItems.Count

With Ws.Range("a500000").End(xlUp)
.Offset(1, 0) = CDbl(lblNro.Caption)
.Offset(1, 1) = Date
.Offset(1, 2) = txtCliente
.Offset(1, 3) = txtTelefone
.Offset(1, 4) = txtObservaçoes

.Offset(1, 5) = CInt(lstv.ListItems(i).Text)
.Offset(1, 6) = lstv.ListItems(i).ListSubItems(1)
.Offset(1, 7) = CDbl(lstv.ListItems(i).ListSubItems(2))
.Offset(1, 8) = CDbl(lstv.ListItems(i).ListSubItems(3))



End With
Next i


AJUDEM AMIGOS...

DEUS ABENÇOE


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

Re: Listview para Planilha (Resolvido)

Mensagem por srobles »

CROVADOR,

Se sua intenção for realizar o cadastro dos itens contidos em 2 ListView, experimente o que segue abaixo :

Código: Selecionar todos

'Adiciona os itens do primeiro ListView
Set lstv = Me.lstvOrçamento
For i = 1 To Me.lstvOrçamento.ListItems.Count
With Ws.Range("a500000").End(xlUp)
    .Offset(1, 0) = CDbl(lblNro.Caption)
    .Offset(1, 1) = Date
    .Offset(1, 2) = txtCliente
    .Offset(1, 3) = txtTelefone
    .Offset(1, 4) = txtObservaçoes
    
    .Offset(1, 5) = CInt(lstv.ListItems(i).Text)
    .Offset(1, 6) = lstv.ListItems(i).ListSubItems(1)
    .Offset(1, 7) = CDbl(lstv.ListItems(i).ListSubItems(2))
    .Offset(1, 8) = CDbl(lstv.ListItems(i).ListSubItems(3))
                      
End With
Next i

'Adiciona os itens do segundo ListView
Set lstv = Me.lstvOrçamento2
For j = 1 To Me.lstvOrçamento2.ListItems.Count        
With Ws.Range("a500000").End(xlUp)
    .Offset(1, 0) = CDbl(lblNro.Caption)
    .Offset(1, 1) = Date
    .Offset(1, 2) = txtCliente
    .Offset(1, 3) = txtTelefone
    .Offset(1, 4) = txtObservaçoes
    
    .Offset(1, 5) = CInt(lstv.ListItems(j).Text)
    .Offset(1, 6) = lstv.ListItems(j).ListSubItems(1)
    .Offset(1, 7) = CDbl(lstv.ListItems(j).ListSubItems(2))
    .Offset(1, 8) = CDbl(lstv.ListItems(j).ListSubItems(3))
                      
End With
Next j
Apenas se atente para a ordem de gravação. Altere as linhas e colunas que receberão os dados do segundo ListView.

Espero ter ajudado.

Abs


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