eliminar datos desde un listbox

[misahoc]

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

[Armando Montes]

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]

[Armando Montes]

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]

[misahoc]

si esto fue lo que me ayudo gracias:sneakiness:

[JoaoM]

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?

[Armando Montes]

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

[JoaoM]

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

[Antoni]

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

[JoaoM]

Ok macro, se agradece tu gentilesa como imperador jejejejej

eso resuelve la incognita, el dilema jajajaj