Página 1 de 1
ListView como pegar as informações dele para gravar na plan1
Enviado: 06 Out 2016 às 10:40
por Weber
Bom dia Pessoal, preciso de uma ajuda, eu fiz um form com um listview, e coloquei as informações neste listview conforme minha necessidade, o problema é que no forme tem um textbox que me da uma numeração crescente a cada vez que eu chamo este forme, agora eu preciso saber como faço para pegar os dados que coloquei no listiew, e coloque para cada linha selecionada que esta no listview o numero que esta no textbox
AQUI E O LIST VIEW E OS NOMES QUE SELECIONEI
código nome valor
001 JOAO 12,34
015 MARIA 15,65
------------------------------------
AQUI É O RELATORIO QUE EU PEGO DA PLAN1 PARA O LISTVIEW
Código NOME VALOR NUMERO
007 TEREZA 12,44
001 JOAO 12,35 AQUI VAI O NUMERO
012 CELIA 9,55
015 MARIA 15,65 AQUI VAI O NUMERO
Se alguém puder me ajudar muito obrigad
Re: ListView como pegar as informações dele para gravar na p
Enviado: 06 Out 2016 às 11:00
por alexandrevba
Bom dia!!
Será mais promissor se você puder postar um arquivo modelo, nele contendo os dados necessários que compõe sua dúvida.
Código: Selecionar todosPrivate Sub CommandButton1_Click()
Dim lvwItem As ListItem
'Como preencher listview com textbox
With ListView1
Set lvwItem = .ListItems.Add(, , txtDesc.Value)
lvwItem.ListSubItems.Add Text:=txtValor
End With
txtDesc = "": txtValor = "": txtDesc.SetFocus
End Sub
Att
Re: ListView como pegar as informações dele para gravar na p
Enviado: 06 Out 2016 às 11:41
por Weber
Private Sub BtnIncluir_Click()
If TextBoxNotaI = "" Then Exit Sub
TextBoxKeyImpri.SetFocus
Set item = ListView1.ListItems.Add(, , TextBoxNotaI)
item.SubItems(1) = TextBoxQuantI.Text
item.SubItems(2) = TextBoxTIPOI.Text
item.SubItems(3) = TextBoxPESOI.Text
item.SubItems(4) = TextBoxFornI.Text
item.SubItems(5) = TextBoxKeyImpri.Text
Dim soma As Double
For i = 1 To ListView1.ListItems.Count
soma = soma + ListView1.ListItems.item(i).SubItems(1)
Textsoma = soma
Next i
Dim pesodo As Double
For i = 1 To ListView1.ListItems.Count
pesodo = pesodo + ListView1.ListItems.item(i).SubItems(3)
Textsomapeso = pesodo
'AQUI NESTE MOMENTO QUERO PEGAR O DADO DA CAIXA TEXTBOXCODIGO E COLOCAR NA PLAN1
'NA CELULA("G") DA LINHA CORRESPONDENTE AO QUE EU ACABEI DE INCLUIR NESTE LISTEVIEW.
End With
Next i
'ComboBoxtrans = Empty
'TextBoxfone1 = Empty
'TextBoxfone2 = Empty
'TextBoxfone3 = Empty
TextBoxKeyImpri = Empty
'TextBoxcgc = Empty
TextBoxFornI = Empty
TextBoxNotaI = Empty
TextBoxQuantI = Empty
TextBoxTIPOI = Empty
TextBoxPESOI = Empty
TextBoxKeyImpri.SetFocus
End Sub
Re: ListView como pegar as informações dele para gravar na p
Enviado: 06 Out 2016 às 13:03
por alexandrevba
Boa tarde!!
Para salvar os dados da ListView para guia veja se ajuda.
Código: Selecionar todos Dim LastRow As Long, i As Long
With Sheets("NomeDaGuia")
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To ListView1.ListItems.Count
.Cells(LastRow + i, 1) = ListView1.ListItems(i).Text
.Cells(LastRow + i, 2) = ListView1.ListItems(i).ListSubItems(1).Text
'E assim por diante...
Next i
.Columns.AutoFit
End With
ListView1.ListItems.Clear
Att
Listview como mandar para plan1
Enviado: 06 Out 2016 às 13:08
por Weber
Pessoal eu nao estou consegundo me explicar direito , eu vou colocar aqui o codigo que fiz e olhando vai ver o que eu preciso
desde ja me desculpem por nao saber me explicar bem,
Private Sub BtnIncluir_Click()
If TextBoxNotaI = "" Then Exit Sub
TextBoxKeyImpri.SetFocus
Set item = ListView1.ListItems.Add(, , TextBoxNotaI)
item.SubItems(1) = TextBoxQuantI.Text
item.SubItems(2) = TextBoxTIPOI.Text
item.SubItems(3) = TextBoxPESOI.Text
item.SubItems(4) = TextBoxFornI.Text
item.SubItems(5) = TextBoxKeyImpri.Text
Dim soma As Double
For i = 1 To ListView1.ListItems.Count
soma = soma + ListView1.ListItems.item(i).SubItems(1)
Textsoma = soma
Next i
Dim pesodo As Double
For i = 1 To ListView1.ListItems.Count
pesodo = pesodo + ListView1.ListItems.item(i).SubItems(3)
Textsomapeso = pesodo
***************************************************************************************************
'AQUI NESTE MOMENTO QUERO PEGAR O DADO DA CAIXA TEXTBOXCODIGO E COLOCAR NA PLAN1
'NA CELULA("G") DA LINHA CORRESPONDENTE AO QUE EU ACABEI DE INCLUIR NESTE LISTEVIEW.
****************************************************************************************************
End With
Next i
'ComboBoxtrans = Empty
'TextBoxfone1 = Empty
'TextBoxfone2 = Empty
'TextBoxfone3 = Empty
TextBoxKeyImpri = Empty
'TextBoxcgc = Empty
TextBoxFornI = Empty
TextBoxNotaI = Empty
TextBoxQuantI = Empty
TextBoxTIPOI = Empty
TextBoxPESOI = Empty
TextBoxKeyImpri.SetFocus
End Sub
Re: ListView como pegar as informações dele para gravar na p
Enviado: 06 Out 2016 às 13:12
por Kledison
Boa tarde,
evite criar tópicos relacionados com a mesma dúvida.
Regra nº 9:
Não coloque perguntas duplicadas. Posts de natureza duplicada serão excluídos ou bloqueados.
Att
Moderador
Re: ListView como pegar as informações dele para gravar na p
Enviado: 06 Out 2016 às 14:22
por alexandrevba
Boa tarde!!
Seria isso?
Código: Selecionar todosPrivate Sub CommandButton2_Click()
Dim irow As String
Dim ws As Worksheet
Set ws = Worksheets("NomeDaSuaGuia")
irow = ws.Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Row
With ws
.Range("G" & irow) = TextBox1.Value
End With
TextBox1.Value = ""
End Sub
Att