eliminar fila según datos concretos

Solo consultas sobre Bases de Datos y Tablas Dinámicas Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

eliminar fila según datos concretos

Notapor falmark » 09 Oct 2017 08:42

hola buenos dias, tengo un problema con esta macro.

lo que preciso hacer es que la macro que no elimine lo que yo disponga y tampoco que elimine las celdas vacías.

pero también me surge otro problema cuando ejecuto la macro y no encuentra que la información que yo puse para eliminar me da error.

Sub QuitaFilas1()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
'
ActiveSheet.Unprotect
Dim uf&, i&, a, R As Range

Application.ScreenUpdating = False
uf = Range("E" & Rows.Count).End(xlUp).Row
a = Range("E1:E" & uf)
For i = 20 To UBound(a)
If a(i, 1) <> "1" Then
If R Is Nothing Then
Set R = Range("E" & i)
Else
Set R = Union(R, Range("E" & i))
End If
End If
Next i
R.EntireRow.Delete
Set R = Nothing: Erase a
Range("E20").Select
'
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub

Conclusión si ejecuto la macro y no hay nada para eliminar que no me de error. Podrá ser que se pueda hacer esto?
falmark
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 10
Registrado: 19 Ene 2016 10:11

Re: eliminar fila según datos concretos

Notapor yefrid18 » 21 Nov 2017 12:53

Buenos días

Utiliza esta macro sencilla y veras que te sirve... solo tener en cuenta que el dato que permite borrar las filas lo digitas en la celda F1
Te adjunto ejemplo Excel para que lo tengas mas presente..

----------------------------------------------------------------------------------------------

Sub Eliminar_Filas()

Cells(Rows.Count, 1).End(xlUp).Select
UltimaFila = ActiveCell.Row

i = 2

For i = 2 To UltimaFila

If Cells(i, 2) = Range("F1") Then
Cells(i, 2).Select
Selection.EntireRow.Delete
i = i - 1

End If

Next i

End Sub

----------------------------------------------------------------------------------
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
yefrid18
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 58
Registrado: 16 Ago 2016 15:32


Volver a Bases de Datos y Tablas Dinámicas

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados