Excel - MACRO PARA ELIMINAR CELDAS SEGÚN CRITERIO ESPECIFICO

Sub elimnar_celdas_filas_vacias()

Dim tipo As Integer

Dim criterio As String

Dim check As Boolean

Dim celda As Range

Set Rng = Application.InputBox(prompt:="seleccione la celda inicial donde empieza su lista de datos", Type:=8)

tipo = Application.InputBox(prompt:="Escriba 1: Eliminar celdas si CONTIENE" & Chr(13) & "Escriba 2: Eliminar celdas si es IGUAL A" & Chr(13) & "Si desea eliminar las celdas vacías opcion 2", Type:=1, Title:="ELIMINAR SEGÚN CRITERIOS")

criterio = Application.InputBox(prompt:="Escriba el criterio que se usará para eliminar las celdas" & Chr(13) & "Para eliminar las celdas vaciías deje en blanco este recuadro", Type:=2)

For Each celda In Range(Rng.Address, Cells(Rows.Count, Rng.Column).End(xlUp).Address)

Select Case tipo

Case 2

If celda = criterio Then

celda.EntireRow.Delete

GoTo line1

End If

Case 1

If celda.Row <> Rng.Row And InStr(UCase(celda.Value), UCase(criterio)) Then

'celda.Offset(0, 1).Value = "ELIMINAR"

celda.EntireRow.Delete

GoTo line1

Else

'celda.Offset(0, 1).Value = "NO ELIMINAR"

End If

End Select

Next

End Sub

Sub abrir()

Application.OnKey "{f3}", "elimnar_celdas_filas_vacias"

End Sub

Sub eliminar()

    Dim f As New Collection

    Sheets("Hoja1").Select

    For i = 1 To Range("A" & Rows.Count).End(xlUp).Row

        If UCase(Cells(i, "M")) = "BAJA" And Cells(i, "A") = 1 Then

            f.Add i

        End If

    Next

    For i = f.Count To 1 Step -1

        Rows(f(i)).Delete            'únicamente la fila

    Next

End Sub