Este fórum está sendo desativado

[Livo123]

Olá a todos,

Preenchi meu ListView e apliquei um filtro, para que o usuário possa escolher os valores a serem observados.

No entanto, preciso que o usuário possa adicionar valores a esse item e que esses valores sejam salvos na planilha do banco de dados na mesma linha e em uma coluna que especifique o item selecionado.

Eu tentei de várias maneiras e não sei se meu código também está fazendo sentido. Sinta-se livre para alterá-lo ou fazer um desde o início

Obrigado a todos!

Código: Selecionar todos

Private Sub CommandButton1_Click()

Dim lineDp As Integer
Dim Dp As Worksheet
Dim Ultima_coluna As Long
Dim ColH As ColumnHeader
Dim Index As Long

Set Dp = Sheets("Details Pipeline")

'Number of Rows count
lineDp = Dp.Range("A100000").End(xlUp).Row

'Number of Colums count - Ctrl + Shift + End
Ultima_coluna = Dp.Cells(lineDp, Dp.Columns.Count).End(xlToLeft).Column

For i = 4 To Ultima_coluna

    If Dp.Cells(3, i).Value <> "" Then

        For j = 1 To ListView1.ListItems.Count

            If ListView1.ListItems.Item(j).Checked Then

                txt_id = ListView1.ListItems.Item(j)
                Dp.Cells(j, i) = TextBox6.Text

             End If

        Next j

    End If

Next i

End Sub

Não consegui anexar a imagem do UserForm, está dando algum erro, portanto nesse link eu postei a imagem.

https://stackoverflow.com/questions/608 ... item-is-in