Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Listview para Planilha (Resolvido)
Re: Listview para Planilha (Resolvido)
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..
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)
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?
alguem pode ajudar-me?
Re: Listview para Planilha (Resolvido)
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))
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
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))
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 446 vezes
Re: Listview para Planilha (Resolvido)
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....
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
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...
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 447 vezes
Botão Alterar Não Funciona.
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...
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 457 vezes
duas Listview para Planilha
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
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 438 vezes
MAIS UMA LISTVIEW
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
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)
CROVADOR,
Se sua intenção for realizar o cadastro dos itens contidos em 2 ListView, experimente o que segue abaixo :
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
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
Espero ter ajudado.
Abs