listboxta sağ tuşla silmek

[uguristanbul]

ekteki dosyadaki userformun listboxındaki seçilen satırı sağ tuşla nasıl silebilirim.
saygılar

 

[Husgvarna]

ekteki dosyadaki userformun listboxındaki seçilen satırı sağ tuşla nasıl silebilirim.
saygılar

"UserForm Initialize" aşağıdaki gibi değiştirilerek:

 Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 12
ListBox1.ColumnWidths = "50;50;50;50;50;50;50;50;50"
ListBox1.List = Range("a1:L" & [a65536].End(3).Row).Value
End Sub

Seçili olanı silmek için:

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If Button = 2 Then
ListBox1.RemoveItem ListBox1.ListIndex
End If
End Sub

Sağ tıkla hem seçip; hemde silmek için:

 Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
If Button = 2 Then
ListBox1.Selected((Y / 9.98)) = True
ListBox1.RemoveItem ListBox1.ListIndex
End If
End Sub

Şeklinde kodları deneyebilirsiniz.

 

[uguristanbul]

tesekkurler hocam

 

[cebelitarık]

Sayın Husgvarna
Benzer bir konuda benimde bir sorum olacak.
Listbox içinde herhangi bir satıra sağ tıkladığımızda hem sağ tıklanan satır seçili hale gelecek hemde aktif sayfayı print etmek için nasıl bir kod olmalı?
Saygılarımla