Borrar filas vacias o con un texto fijo

29/04/2005 - 11:34 por David Hernandez | Informe spam

Hola mi pregunta es la siguiente: en una columna tengo filas que tienen un
texto similar es decir (xxxxxxx + texto fijo), queria saber si podria borrar
de alguna forma esas filas que contienen esa expresión la parte de las "x"
pero el texto fijo se repita en las filas y en relacion con lo mismo si tengo
en una misma columna filas en blanco hay alguna forma de borrarlas para que
de esa forma no halla filas en balnco en la columna. Muchas gracias.

Un saludo

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

problemas al borrar filas en tabla con campo identity

Leer las respuestas

#6 David Hernandez

06/05/2005 - 11:25 | Informe spam

Hola KL, este mensaje es tan solo para darte las gracias porque me ha servido
de mucha ayuda tus indicaciones. Mil gracias

David

"KL" escribió:

Hola David,

Entonces es tan simple como el siguiente codigo (con 20000 filas tardara un
pelin)

Saludos,
KL

'--Inicio Codigo
Sub BorrarFilasVacias()
With ActiveSheet
pFila = .Range("A1:D20000").Row
uFila = pFila + .Range("A1:D20000").Rows.Count - 1
Application.ScreenUpdating = False
For Fila = uFila To pFila Step -1
If Application.CountA(.Rows(Fila)) = 0 Or _
.Cells(Fila, "A").Value Like "*- Almacen - capital*" _
Then
.Rows(Fila).Delete
End If
Next Fila
End With
End Sub
'--Fin Codigo

Responder a este mensaje

#7 KL

06/05/2005 - 11:35 | Informe spam

Gracias a ti por el "feedback".

Saludos,
KL

"David Hernandez" wrote in
message news:

Hola KL, este mensaje es tan solo para darte las gracias porque me ha
servido
de mucha ayuda tus indicaciones. Mil gracias

David

"KL" escribió:

Hola David,

Entonces es tan simple como el siguiente codigo (con 20000 filas tardara
un
pelin)

Saludos,
KL

'--Inicio Codigo
Sub BorrarFilasVacias()
With ActiveSheet
pFila = .Range("A1:D20000").Row
uFila = pFila + .Range("A1:D20000").Rows.Count - 1
Application.ScreenUpdating = False
For Fila = uFila To pFila Step -1
If Application.CountA(.Rows(Fila)) = 0 Or _
.Cells(Fila, "A").Value Like "*- Almacen - capital*" _
Then
.Rows(Fila).Delete
End If
Next Fila
End With
End Sub
'--Fin Codigo

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida