Ayuda con este codigo

Hola Isrrael,

Lo mas rapido que puedes hacer es usar el Filtro Avanzado (incluso con
50000 registros llevara menos de un segundo). Aqui va un ejemplo:

Sub test()
Dim datos As Worksheet
Set datos = ActiveSheet
Application.ScreenUpdating = False
Worksheets.Add after:=ActiveSheet
With ActiveSheet
.[A1] = datos.[D1]
.[A2] = "<>*POD*"
datos.UsedRange.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.[A1:A2], _
CopyToRange:=Range("A3")
.[1:2].Delete
End With
End Sub

Saludos,
KL


"Isrrael" wrote in message
news:
Mostrar la cita

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

KL, mil gracias!
la verdad es que me estoy a poyando con "grabar macro"
Por eso es que los codigos estan asi.
Como siempre, funciona perfecto!, por cierto, de que pais eres?, spanish?,
mexican?,
Saludos y gracias nuevamente
Isrrael
"KL" wrote in message
news:u8XozF$
Mostrar la cita

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

Hola Isrrael, para que termines de maravillarte (asi me ocurrió a mi),
mira este enlace (espero que a KL no le moleste. Menudo cerebro):
https://mvp.support.microsoft.com/p...6C73C09A36

Saludos desde Tenerife
"Isrrael" escribió en el mensaje
news:uhwgVt$
Mostrar la cita

KL, mil gracias!
la verdad es que me estoy a poyando con "grabar macro"
Por eso es que los codigos estan asi.
Como siempre, funciona perfecto!, por cierto, de que pais eres?,
spanish?, mexican?,
Saludos y gracias nuevamente
Isrrael
"KL" wrote in message
news:u8XozF$
Mostrar la cita

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