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

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Qua Mar 14, 2018 1:54 pm

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 118 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: 35
Registrado em: Ter Mar 13, 2018 11:15 am

Re: Listview exportar dados

Mensagem por CROVADOR » Qua Mar 14, 2018 2:05 pm

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

Re: Listview para Planilha (Resolvido)

Mensagem por srobles » Qua Mar 14, 2018 10:41 pm

CROVADOR,

Veja se alterações atendem sua necessidade.

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


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

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

Re: Listview para Planilha

Mensagem por CROVADOR » Qui Mar 15, 2018 8:16 am

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

Re: Listview para Planilha (Resolvido)

Mensagem por srobles » Qui Mar 15, 2018 1:07 pm

CROVADOR,

Veja se está a contento amigo.

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


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

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

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Qui Mar 15, 2018 3:42 pm

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

Abertura de O.S

Mensagem por CROVADOR » Seg Mar 19, 2018 2:07 pm

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



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

Re: Listview para Planilha (Resolvido)

Mensagem por srobles » Seg Mar 19, 2018 4:09 pm

CROVADOR,

Veja se é isso o que busca amigo.

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


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

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

Re: Listview para Planilha (Resolvido)

Mensagem por CROVADOR » Seg Mar 19, 2018 4:15 pm

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

RESOLVIDO



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

Re: Listview

Mensagem por CROVADOR » Qua Mar 21, 2018 3:27 pm

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