How to delete item from listbox?

[questionguy]

I got a userform where I'd like to delete selected items. Anybody has a
idea how to

+-------------------------------------------------------------------
|Filename: DeleteItem.zip
|Download: http://www.excelbanter.com/attachment.php?attachmentid=632
+-------------------------------------------------------------------

 

[Cimjet]

I got a userform where I'd like to delete selected items. Anybody has an

idea how to?





+-------------------------------------------------------------------+

|Filename: DeleteItem.zip |

|Download: http://www.excelbanter.com/attachment.php?attachmentid=632|

+-------------------------------------------------------------------+

Hi
Try this:
Private Sub cmddelete_Click()
Dim msgResponse As String, c As Range
Application.ScreenUpdating = False
msgResponse = MsgBox("This will delete the selected record. Continue?", _
vbCritical + vbYesNo, "Delete Entry")
Select Case msgResponse
Case vbYes
Set c = ActiveCell
c.Delete
Case vbNo
Exit Sub
End Select
Application.ScreenUpdating = True
End Sub

 

[questionguy]

Thanks for your reply. I inserted your code, everything seemed to wor
except it actually didn't delete anything. Was I doing something wrong?


----------------------
Hi
Try this:
Private Sub cmddelete_Click()
Dim msgResponse As String, c As Range
Application.ScreenUpdating = False
msgResponse = MsgBox("This will delete the selected record
Continue?", _
vbCritical + vbYesNo, "Delete Entry")
Select Case msgResponse
Case vbYes
Set c = ActiveCell
c.Delete
Case vbNo
Exit Sub
End Select
Application.ScreenUpdating = True
End Su

+-------------------------------------------------------------------
+-------------------------------------------------------------------

 

[Cimjet]

Thanks for your reply. I inserted your code, everything seemed to work

except it actually didn't delete anything. Was I doing something wrong?





----------------------

Hi

Try this:

Private Sub cmddelete_Click()

Dim msgResponse As String, c As Range

Application.ScreenUpdating = False

msgResponse = MsgBox("This will delete the selected record.

Continue?", _

vbCritical + vbYesNo, "Delete Entry")

Select Case msgResponse

Case vbYes

Set c = ActiveCell

c.Delete

Case vbNo

Exit Sub

End Select

Application.ScreenUpdating = True

End Sub





+-------------------------------------------------------------------+

+-------------------------------------------------------------------+

Hi
No You didn't do anything wrong, I did.I didn't try it on your WS
Try this one.
Private Sub cmddelete_Click()
Dim msgResponse As String, c As Variant
Application.ScreenUpdating = False

msgResponse = MsgBox("This will delete the selected record. Continue?", _
vbCritical + vbYesNo, "Delete Entry")

Select Case msgResponse
Case vbYes
c = listaccount.Value
On Error Resume Next
Columns("B:E").Find(What:=c, _
LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
Set c = ActiveCell
If ActiveCell = Range("Purchaser_Info") Then
c.Resize(1, 2).Clear
Else
c.Clear
End If
Case vbNo
Exit Sub
End Select
Application.ScreenUpdating = True

End Sub