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

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Sex Mar 23, 2018 8:39 am

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
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Ter Mar 27, 2018 1:32 pm

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
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Ter Mar 27, 2018 2:02 pm

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
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha

Mensagem por CROVADOR » Ter Mar 27, 2018 2:05 pm

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 136 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
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Qua Mar 28, 2018 5:27 pm

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
Colaborador
Colaborador
Mensagens: 41
Registrado em: Ter Mar 13, 2018 11:15 am

Alterar ordem serviço

Mensagem por CROVADOR » Ter Abr 03, 2018 8:11 am

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 124 vezes



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

Botão Alterar Não Funciona.

Mensagem por CROVADOR » Qui Abr 05, 2018 1:44 pm

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 130 vezes



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

duas Listview para Planilha

Mensagem por CROVADOR » Seg Abr 23, 2018 11:10 am

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 135 vezes



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

MAIS UMA LISTVIEW

Mensagem por CROVADOR » Ter Abr 24, 2018 12:52 pm

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: 791
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: Listview para Planilha (Resolvido)

Mensagem por srobles » Ter Abr 24, 2018 1:49 pm

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


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].

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