delete selected row from user form

i have a problem while deleting the row in excel sheet from User Form.
when i search a data using search text box, it displayed in List Box1,but a problem arise if there are multiple search results(userform eg:smith).
then it is deleted only the first found, and not the result selected in listbox

So Please can any one do the correct code for me.

Waiting for reply,

qwzx

It deletes the selected row for me

basically you need to find the row associated with the record when you click on the record in the listbox. So some sort of entry reference number for each record would help

Hi qwzx
The cell reference was set up in

http://www.excelforum.com/excel-prog...ace-buton.html
so in the delet code

r = ListBox1.Column(6)

what did you try?

Hi qwzx
You will have to change the dimention of r to a long and then

Private Sub cmddel_Click()
Dim r As Long
Dim msgResponse As String    'confirm delete
  
    Application.ScreenUpdating = False
    'get user confirmation
    
    msgResponse = MsgBox("THIS WILL DELETE THE SELECTED ROW, CONTINUE", _
                         vbCritical + vbYesNo, "DELETE ENTRY")
    Select Case msgResponse    'action dependent on response
    Case vbYes
        'c has been selected by Find button
       r = ListBox1.Column(6)' add r value here
        Rows(r).EntireRow.Delete    'add this bit remove entry by deleting row
        'restore form settings
        With Me
            .cmdrep.Enabled = False     'prevent accidental use
            .cmddel.Enabled = False    'prevent accidental use
            .cmdsub.Enabled = True        'restore use
            'clear form
            .txtfn.Value = vbNullString
            .txtln.Value = vbNullString
            .txtloc.Value = vbNullString
            .txtph.Value = vbNullString
            .txteml.Value = vbNullString
            .cbostat.Value = vbNullString
        End With
    Case vbNo
        Exit Sub    'cancelled
    End Select
    Application.ScreenUpdating = True
End Sub

column six of the list box is used to store the data lines row number