Eliminar filas con...

02/12/2009 - 22:38 por Belinda | Informe spam
Hola amigos...

¿Me podríais decir como hago, a través de una macro, eliminar todas
las filas de una base de datos, columna C2, titulo ESTADO, en la cual
puede haber este texto: Creada, Prevista, Facturada

Es decir, eliminar todas la filas que, a partir de la fila 3 contengan
Facturada en la columna C. El rango de datos es cambiante, ya que el
fichero se genera todos los dias con diferente datos, por lo cual no
se donde termina...eso tambien deberia evaluarlo la macro...

Muchas gracias por vuestro tiempo

Preguntas similare

Leer las respuestas

#1 Benito Merino
02/12/2009 - 23:12 | Informe spam
On 2 dic, 22:38, Belinda wrote:
Hola amigos...

¿Me podríais decir como hago, a través de una macro, eliminar todas
las filas de una base de datos, columna C2, titulo ESTADO, en la cual
puede haber este texto: Creada, Prevista, Facturada

Es decir, eliminar todas la filas que, a partir de la fila 3 contengan
Facturada en la columna C. El rango de datos es cambiante, ya que el
fichero se genera todos los dias con diferente datos, por lo cual no
se donde termina...eso tambien deberia evaluarlo la macro...

Muchas gracias por vuestro tiempo



Hola.

Prueba la siguiente macro:

Sub eliminar_facturada()

With Range("C2").CurrentRegion
.Select
numfilas = .Rows.Count
End With
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="Facturada"
Range("A3:" & "A" & numfilas).EntireRow.Delete Shift:=xlUp
Selection.AutoFilter
Range("C2").Select
End Sub


Saludos,

Benito
Barcelona
Respuesta Responder a este mensaje
#2 Belinda
03/12/2009 - 13:04 | Informe spam
On 2 dic, 23:12, Benito Merino wrote:
On 2 dic, 22:38, Belinda wrote:

> Hola amigos...

> ¿Me podríais decir como hago, a través de una macro, eliminar todas
> las filas de una base de datos, columna C2, titulo ESTADO, en la cual
> puede haber este texto: Creada, Prevista, Facturada

> Es decir, eliminar todas la filas que, a partir de la fila 3 contengan
> Facturada en la columna C. El rango de datos es cambiante, ya que el
> fichero se genera todos los dias con diferente datos, por lo cual no
> se donde termina...eso tambien deberia evaluarlo la macro...

> Muchas gracias por vuestro tiempo

Hola.

Prueba la siguiente macro:

Sub eliminar_facturada()

    With Range("C2").CurrentRegion
    .Select
    numfilas = .Rows.Count
    End With
    Selection.AutoFilter
    Selection.AutoFilter Field:=3, Criteria1:="Facturada"
    Range("A3:" & "A" & numfilas).EntireRow.Delete Shift:=xlUp
    Selection.AutoFilter
    Range("C2").Select
End Sub

Saludos,

Benito
Barcelona



muchas gracias Benito por tú ayuda. Funciona perfectamente, solo
he tenido que cambiar el A3 por A2 para que no me deje 1 fila con ese
dato...
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida