Eliminar filas en excel con macro

h o l a:

¿Quieres eliminar la fila del listbox o de la hoja?

Tengo que revisar cómo estás cargando los datos en el listbox, dependiendo de cómo estás cargando es el método que se debe usar para borrar.

'

En un correo nuevo envíame tu archivo y me explicas en qué userform estás trabajando y qué es lo que necestias.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “(xxxxxx)” y el título de esta pregunta.

Ya te envié el archivo al correo.

Gracias.

H o l a:

Te anexo las macros para cargar los datos en el listbox, de esa forma sabremos cuál fila estás seleccionando de la hoja; y el código para eliminar.

Private Sub Cmbxpostventas_Change()
'Por.Dante Amor
    Dim codigos As New Collection
    Set codigos = Nothing
    CODLOCATIVAS.RowSource = ""
    If cmbxpostventas = "" Then Exit Sub
    '
    Set ht = Sheets("Temp")
    ht.Cells.Clear
    Set h = Sheets("BD_LOCATIVAS")
    h.Range("B1:D1").Copy ht.[A1]
    '
    'Busca todos los códigos POSTVENTA que pertenecen al cmbxpostventas
    Set r = h.Columns("F")
    Set b = r.Find(cmbxpostventas, lookat:=xlWhole)
    If Not b Is Nothing Then
        celda = b.Address
        Do
            existe = False
            For k = 1 To codigos.Count
                Select Case StrComp(codigos(k), h.Cells(b.Row, "A"), vbTextCompare)
                    Case 0: existe = True
                End Select
            Next
            'titulos.Add dato 'lo agrega al final
            If existe = False Then
                codigos.Add h.Cells(b.Row, "A")
            End If
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> celda
    End If
    '
    'buscar todos los códigos LOCATIVA que pertenecen al código POSTVENTA
    j = 2
    Set r = h.Columns("A")
    For Each codpost In codigos
        Set b = r.Find(codpost, lookat:=xlWhole)
        If Not b Is Nothing Then
            celda = b.Address
            Do
                'detalle
                h.Range("B" & b.Row & ":D" & b.Row).Copy ht.Range("A" & j)
                ht.Range("D" & j) = b.Row 'pongo el número de fila
                j = j + 1
                Set b = r.FindNext(b)
            Loop While Not b Is Nothing And b.Address <> celda
        End If
    Next
    '
    'carga el listbox
    CODLOCATIVAS.RowSource = ht.Name & "!A2:D" & ht.Range("A" & Rows.Count).End(xlUp).Row
    Set codigos = Nothing
End Sub
'
Private Sub ELIMINAR_Click()
'Por.Dante Amor
    'Borra la fila en la hoja
    fila = CODLOCATIVAS.List(CODLOCATIVAS.ListIndex, 3)
    Set h = Sheets("BD_LOCATIVAS")
    h.Rows(fila).Delete
    '
    'Actualiza el listbox
    Set ht = Sheets("Temp")
    otrafila = CODLOCATIVAS.ListIndex + 2
    ht.Rows(otrafila).Delete
    CODLOCATIVAS.RowSource = ht.Name & "!A2:D" & ht.Range("A" & Rows.Count).End(xlUp).Row
End Sub

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )