Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ayuda con este codigo

10/10/2006 - 00:02 por Isrrael | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 8 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
10/10/2006 - 00:22 | Informe spam
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%
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

Preguntas similares

 

Busqueda sugerida :