Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Listview para Planilha (Resolvido)
Re: Listview para Planilha (Resolvido)
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
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
Re: Listview exportar dados
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
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
Re: Listview para Planilha (Resolvido)
CROVADOR,
Veja se alterações atendem sua necessidade.
Abs
Veja se alterações atendem sua necessidade.
Abs
- Anexos
-
- TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.zip
- (35.18 KiB) Baixado 445 vezes
Re: Listview para Planilha
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.
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.
Re: Listview para Planilha (Resolvido)
CROVADOR,
Veja se está a contento amigo.
Abs
Veja se está a contento amigo.
Abs
- Anexos
-
- TRANSFERIR ITENS DE TEXTBOX PARA LISTVIEW EXCEL VBA.zip
- (41.72 KiB) Baixado 428 vezes
Re: Listview para Planilha (Resolvido)
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.....
obrigado a todos se eu precisar sei que posso contar com vcs...
Deus abençoe.....
Abertura de O.S
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.
segue planilha exemplo.
- Anexos
-
- O.S.rar
- (86.13 KiB) Baixado 439 vezes
Re: Listview para Planilha (Resolvido)
CROVADOR,
Veja se é isso o que busca amigo.
Abs
Veja se é isso o que busca amigo.
Abs
- Anexos
-
- CRSOFT.zip
- (69.15 KiB) Baixado 450 vezes
Re: Listview para Planilha (Resolvido)
MUITO OBRIGADO SAULO, PARABENS AMIGO...
SOU MUITO GRATO AMIGO POR SUA AJUDA...
DEUS ABENÇOE A TODOS....
RESOLVIDO
SOU MUITO GRATO AMIGO POR SUA AJUDA...
DEUS ABENÇOE A TODOS....
RESOLVIDO
Re: Listview
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..
se tiver algum código para ajudar fico grato amigos..
obrigado..