Моля за съдействие !
Стигнах до там че като маркирам определен запис и натисна бутона за изтриване същия се изтрива от листббокса.
А как да го направя така че едновременно да се изтрива от листбокса и от лист (колоната), където се намира ...
Dim name As String
Private Sub CommandButton3_Click()
Dim lastrow As Integer
Dim prompt
Dim name As String
lastrow = Sheets("Маршрути").Range("A65536").End(xlUp).Row
prompt = "Въведете запис , за да бъде добаве"
name = InputBox(prompt, "Add Name")
wrp = Chr(10) + Chr(13) If name <> "" Then
ListBox1.AddItem name
Sheets("Маршрути").cells(lastrow + 1, 1) = name
MsgBox ("Записът " & name) & ("е добавен!"), , name
End If
End Sub
Private Sub CommandButton4_Click()
For intIndex = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(intIndex) Then
ListBox1.RemoveItem intIndex
MsgBox ("Записът " & name) & ("е премахнат!"), , name
End If
Next
End Sub
До тук е ОК !
но.....
Опитах по този начин ,но нестава.....
If ListBox1.Selected(intIndex) = Sheets("Маршрути").Range("A:A") Then
ListBox1.RemoveItem intIndex
Благодаря !
Отговор
За печат
Коментар