Que tal:

tengo este documento con un formulario que me carga datos de la hoja de calculo, lo que necesito es que el dato que seleccione en el listbox, al dar clic en eliminar se elimine de mi hoja de calculo.

saludos!!!!

Listbox.rar

Algo asi:

Private Sub Remove_Click()

Dim i As Long

   With Me.ListBox1

        For i = .ListCount - 1 To 0 Step -1

            If .Selected(i) Then

                .RemoveItem .ListIndex

            End If

        Next i

    End With

End Sub[/CODE]

Releyendo tu mensaje, el codigo debe ser este:

Private Sub CommandButton1_Click()

    Dim sFind As String, rFound As Range

    Select Case Me.lst_Nombres.Value

    Case Is <> vbNullString

        sFind = Me.lst_Nombres.Value

        With Hoja1

            Set rFound = .Cells.Find(what:=sFind, After:=.Cells(1, 1))

            If Not rFound Is Nothing Then

                rFound.Delete shift:=xlUp

            End If

        End With

    Case Else: Exit Sub

    End Select

End Sub[/CODE]

si esto fue lo que me ayudo gracias:sneakiness:

Perdon por meterme

Armando Montes, tu primero elimina solo en el ListBox, ¿es así? y el segundo de la hoja.

Te pregunto si al eliminar la linea de la hoja, ¿actualisa el ListBox?

El ListBox se actualiza solo si se guarda el libro despues de eliminar.

El ListBox se actualiza solo si se guarda el libro despues de eliminar.

No he probado la macro pero aprovecho preguntar, es decir, el listBox se actualisa cerrandolo y volviendo a abrirlo?

Edito:

No pude hacerlo funcionar. Claro que tengo que cambiarle el nombre del ListBox que tiene para el mio pero nada, ni me elimina en el ListBox ni en la hoja, aun colocandole Hoja2.select que es donde tengo los datos

Hola:

Vale mas tarde que nunca:

Private Sub CommandButton1_Click()

   Rows(lst_Nombres.ListIndex + 2).Delete

End Sub

[/CODE]

La lista queda actualizada de forma inmediata

Ok macro, se agradece tu gentilesa como imperador jejejejej

eso resuelve la incognita, el dilema jajajaj