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 »

Boa tarde amigos.
Mais uma vez peço ajuda com minha planilha...
quando eu lanço os dados no listview e gravo, ele aparece duplicado os clientes, ou seja,
queria poder lançar varios produtos para um só cliente, para quando eu pesquisar o numero da os apareça os dados gravados daquele determinado cliente.

help!!!!!!!

segue planilha em anexo
Anexos
TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.rar
(36.04 KiB) Baixado 435 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 exportar dados

Mensagem por CROVADOR »

neri veja se te ajuda



Private Sub cmd_exportar_Click()
On Error Resume Next
Application.ScreenUpdating = False
Application.Visible = False
Dim I, j As Integer
Dim Item As ListItem
Dim linha As Integer
linha = 2
'Verificar se existe
If Dir(ThisWorkbook.Path & "\PESQUISA_PACIENTE_DADOS\") = vbNullString Then
'Se não existir, criar
MkDir (ThisWorkbook.Path & "\PESQUISA_PACIENTE_DADOS")
End If

Sheets("PESQUISA_PACIENTE_DADOS").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Clear

Range("A1:P1").Value = Array("CLIENTE", "CPF", "RG", "DATA NASC.", "IDADE", "ENDEREÇO", "Nº RUA", "E-MAIL/SITE", "BAIRRO", "CIDADE", "ESTADO", "CEP", "TEL. FIXO", "TEL. CELULAR", "OBSERVAÇÃO", "DATA CADASTRO")

Range("A1:P1").Select
Selection.Font.Bold = True
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With

'Loop as lignes
For I = 1 To ListView1.ListItems.Count

'Loop as colunas
For j = 1 To 1

Plan11.Cells(I + 1, 1) = ListView1.ListItems(I).ListSubItems(1).Text
Plan11.Cells(I + 1, 2) = ListView1.ListItems(I).ListSubItems(2).Text
Plan11.Cells(I + 1, 3) = ListView1.ListItems(I).ListSubItems(3).Text
Plan11.Cells(I + 1, 4) = ListView1.ListItems(I).ListSubItems(4) '.TEXT
Plan11.Cells(I + 1, 5) = ListView1.ListItems(I).ListSubItems(5).Text
Plan11.Cells(I + 1, 6) = ListView1.ListItems(I).ListSubItems(6).Text
Plan11.Cells(I + 1, 7) = ListView1.ListItems(I).ListSubItems(7).Text
Plan11.Cells(I + 1, 8) = ListView1.ListItems(I).ListSubItems(8).Text
Plan11.Cells(I + 1, 9) = ListView1.ListItems(I).ListSubItems(9).Text
Plan11.Cells(I + 1, 10) = ListView1.ListItems(I).ListSubItems(10).Text
Plan11.Cells(I + 1, 11) = ListView1.ListItems(I).ListSubItems(11).Text
Plan11.Cells(I + 1, 12) = ListView1.ListItems(I).ListSubItems(12).Text
Plan11.Cells(I + 1, 13) = ListView1.ListItems(I).ListSubItems(13).Text
Plan11.Cells(I + 1, 14) = ListView1.ListItems(I).ListSubItems(14).Text
Plan11.Cells(I + 1, 15) = ListView1.ListItems(I).ListSubItems(15).Text
Plan11.Cells(I + 1, 16) = ListView1.ListItems(I).ListSubItems(16)

linha = linha + 1

Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 1) = PESQUISA_PACIENTE_COMPLETO.lbl_registros
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 2) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 3) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 4) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 5) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 6) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 7) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 8) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 9) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 10) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 11) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 12) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 13) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 14) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 15) = "---<>---"
Sheets("PESQUISA_PACIENTE_DADOS").Cells(linha, 16) = "---<>---"

Next j
Next I

Range("A1").Select
Selection.CurrentRegion.Select
With Selection.Font
.Name = "Thaoma"
.Size = 8
End With

Call Bordas

Columns("A:P").EntireColumn.AutoFit

Sheets("PESQUISA_PACIENTE_DADOS").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\PESQUISA_PACIENTE_DADOS\PESQUISA_PACIENTE_DADOS " & Format(Now(), "Hh_Nn_Ss_"), _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.Visible = False
Sheets("INICIO").Activate

Application.ScreenUpdating = True

MsgBox "RELATÓRIO GERADO COM SUCESSO !", 0 + vbInformation, "RELATÓRIOS"

End Sub


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

Re: Listview para Planilha (Resolvido)

Mensagem por srobles »

CROVADOR,

Veja se alterações atendem sua necessidade.

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


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

Re: Listview para Planilha

Mensagem por CROVADOR »

bom dia!
amigo muito obrigado ficou ótimo, só mais uma duvida que vi na planilha é que eu esqueci de relatar sobre o código automático que não está na sequencia correta, exemplo 1,2,3,4...

se poder me ajudar serei muito grato e mais uma vez obrigado pela força.


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.


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

Re: Listview para Planilha (Resolvido)

Mensagem por srobles »

CROVADOR,

Veja se está a contento amigo.

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


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

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

Mais uma vez muito obrigado por ajudar-me, esse site é muito bom.
obrigado a todos se eu precisar sei que posso contar com vcs...

Deus abençoe.....


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

Abertura de O.S

Mensagem por CROVADOR »

Bom tarde Amigos, estou precisando de uma ajuda com minha planilha vba, inseri uma textbox para pesquisar as os lançadas no banco de dados, mas não consigo fazer a pesquisa trazer os dados pesquisados para listview e os textbox existentes.

segue planilha exemplo.
Anexos
O.S.rar
(86.13 KiB) Baixado 439 vezes


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

Re: Listview para Planilha (Resolvido)

Mensagem por srobles »

CROVADOR,

Veja se é isso o que busca amigo.

Abs
Anexos
CRSOFT.zip
(69.15 KiB) Baixado 450 vezes


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

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR »

MUITO OBRIGADO SAULO, PARABENS AMIGO...
SOU MUITO GRATO AMIGO POR SUA AJUDA...
DEUS ABENÇOE A TODOS....

RESOLVIDO


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

Re: Listview

Mensagem por CROVADOR »

Boa tarde Amigos...Preciso de uma ajuda para ver se tem como eu imprimir direto da ListView sem precisar exportar...

se tiver algum código para ajudar fico grato amigos..
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