Borrar filas completa con un dato en especifico

Tengo una tabla con 3 columnas, ID, NOMBRE, PRODUCTO, en la columna 2(NOMBRE), se repiten varios datos, necesito eliminar todas las filas que contengan el mismo dato del cuadro de texto de mi formulario.

1 respuesta

Respuesta
3

H o l a:

Te anexo la macro

Private Sub CommandButton1_Click()
'Por.Dante Amor
    If TextBox1 = "" Then Exit Sub
    Application.ScreenUpdating = False
    For i = Range("B" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Cells(i, "B") = TextBox1 Then
            Rows(i).Delete
        End If
    Next
    Application.ScreenUpdating = True
    MsgBox "fin"
End Sub

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas