Я заполнил свой ListView и применил фильтр, чтобы пользователь мог выбирать значения для наблюдения.
Однако мне нужно, чтобы пользователь мог добавлять значения к этому элементу, и чтобы они значения будут сохранены в моей электронной таблице базы данных в той же строке и в столбце, где указан выбранный элемент.
Я пробовал несколько способов, и я не знаю, имеет ли смысл мой код. Не стесняйтесь изменить или сделать его с самого начала
Вы можете мне помочь?
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