Página 3 de 5
Re: Listview para Planilha (Resolvido)
Enviado: Sex Mar 23, 2018 8:39 am
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..
Re: Listview para Planilha (Resolvido)
Enviado: Ter Mar 27, 2018 1:32 pm
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?
Re: Listview para Planilha (Resolvido)
Enviado: Ter Mar 27, 2018 2:02 pm
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))
Re: Listview para Planilha
Enviado: Ter Mar 27, 2018 2:05 pm
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))
Re: Listview para Planilha (Resolvido)
Enviado: Qua Mar 28, 2018 5:27 pm
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....
Alterar ordem serviço
Enviado: Ter Abr 03, 2018 8:11 am
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...
Botão Alterar Não Funciona.
Enviado: Qui Abr 05, 2018 1:44 pm
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...
duas Listview para Planilha
Enviado: Seg Abr 23, 2018 11:10 am
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
MAIS UMA LISTVIEW
Enviado: Ter Abr 24, 2018 12:52 pm
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
Re: Listview para Planilha (Resolvido)
Enviado: Ter Abr 24, 2018 1:49 pm
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