Ayuda con este codigo

Hola a todos!,
Bueno, después de estar pensando como hacer para borrar todas las filas en la hoja activa que contengan una palabra en específico
me ayudé con este código:

Sub Prueba_dos_borrar_PODs()
Cells.Find(What:="POD", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True). _
Activate
Rows("2:2").Select
Range("D2").Activate
Selection.Delete Shift:=xlUp
Range("B2").Select
End Sub

Pero como siempre eso es una constante..., y necesito que si en la columna D tiene la palabra POD borre toda la fila, ya sea, sólo
1 o 30, y no necesariamente deberían estar en 2:2.
Saludos y gracias anticipadas
Isrrael

Algo asi ???

Sub Creating_New_Sheet()
Application.ScreenUpdating = False
Sheets(ActiveSheet.Name).Copy After:=ActiveSheet
With ActiveSheet.Range("D:D")
On Error Resume Next
Do
.Find _
(What:="pod", _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext).EntireRow.Delete
Loop Until Err.Number <> 0
End With
End Sub


Saludos,
KL


"Isrrael" wrote in message
news:uosSH6%
Mostrar la cita

Hola a todos!,
Bueno, después de estar pensando como hacer para borrar todas las filas
en la hoja activa que contengan una palabra en específico me ayudé con
este código:

Sub Prueba_dos_borrar_PODs()
Cells.Find(What:="POD", After:=ActiveCell, LookIn:=xlValues, LookAt:=
_
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=True). _
Activate
Rows("2:2").Select
Range("D2").Activate
Selection.Delete Shift:=xlUp
Range("B2").Select
End Sub

Pero como siempre eso es una constante..., y necesito que si en la
columna D tiene la palabra POD borre toda la fila, ya sea, sólo 1 o 30, y
no necesariamente deberían estar en 2:2.
Saludos y gracias anticipadas
Isrrael

Como siempre, funciona perfecto!, por cierto, de que pais eres?, spanish?,
mexican?,

Mostrar la cita

Como siempre, funciona perfecto!, por cierto, de que pais eres?,
spanish?, mexican?,

Soy ruso viviendo en Espana.

Saludos,
KL

Pues mucho gusto, soy mexicano 100%.
Pasando a otra cosa, como podria hacerle para que, despues de ordenar previamente el listado y dejando "juntas" todas las filas
que dicen POD se ejecute mas rapido la macro?.

Saludos!
Isrrael

"KL" wrote in message news:%
Mostrar la cita

Mostrar la cita

Como siempre, funciona perfecto!, por cierto, de que pais eres?, spanish?, mexican?,

Soy ruso viviendo en Espana.

Saludos,
KL