Este fórum está sendo desativado

[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

[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 todos

Private 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

[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

[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

[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

[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

[alexandrevba]

Boa tarde!!

Seria isso?

Código: Selecionar todos

Private 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