Ayuda con macro

Entonces tendrias q anadir otra condicion con el operador OR y el codigo
seria el sigienete:

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Or Application.CountIf(Rows(r), "SORT*") > 0
Then Rows(r).Delete
Next r
End Sub


Saludos,
KL

"N.C.C" wrote in message
news:

Gracias a ambos las dos respuestas son buenas.

Solo una consulta KL.
en el caso que quisiera borrar otro termino mas es decir:
que no solo sea las filas en blanco y las que tienen ** , tambien otra
fila que contenga otro dato SORT

elimiar fila en blanco
eliminar fila **
eliminar fila SORT




"KL" <lapink2000(at)hotmail.com (former )> wrote in
message news:ubXcD9$

Este macro hecho por John Walkenbach
(http://www.j-walk.com/ss/excel/tips/tip56.htm) y modificado por mi
deberia ayudarte. Lo puedes asignar a un boton o pulsar Alt+F8 y
lanzarlo desde el dialogo Macro.

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Then Rows(r).Delete
Next r
End Sub

Saludos,
KL

"N.C.C" wrote in message
news:eB$rJC$

Tengo una gran cantidad de datos en excel los cuales son de un archivo
txt que importo semanalmente.

cuando los importo en excel queda asi.

257458R D
HK119710 30-1 D S 10/20/04 13/08
JV144910 30-1 D S 11/10/04 53/04
** Total for Size: 2 67

JV140310 30-1 D M 11/10/04 14
JV140910 30-1 D M 10/21/04 61
** Total for Size: 2 75

JT120810 30-1 D L 10/27/04 15
HT146510 30-1 D L 11/06/04 40
JV159810 30-1 D L 11/06/04 40
RB166810 30-1 D L 11/08/04 45
JV177510 30-1 D L 11/09/04 13
** Total for Size: 5 153



y despues tengo que borrar las filas que estan en blanco y las que
tienen los ** para dejar creada una sola lista de datos.

Alguien me puede ayudar con esto, se los agradecere mucho.

Tks

Hola de nuevo.

me dice que hay error de sintaxis aqui

If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Or Application.CountIf(Rows(r), "SORT*") > 0







"KL" <lapink2000(at)hotmail.com (former )> wrote in
message news:

Entonces tendrias q anadir otra condicion con el operador OR y el codigo
seria el sigienete:

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Or Application.CountIf(Rows(r), "SORT*") > 0
Then Rows(r).Delete
Next r
End Sub


Saludos,
KL

"N.C.C" wrote in message
news:

Gracias a ambos las dos respuestas son buenas.

Solo una consulta KL.
en el caso que quisiera borrar otro termino mas es decir:
que no solo sea las filas en blanco y las que tienen ** , tambien otra
fila que contenga otro dato SORT

elimiar fila en blanco
eliminar fila **
eliminar fila SORT




"KL" <lapink2000(at)hotmail.com (former )> wrote in
message news:ubXcD9$

Este macro hecho por John Walkenbach
(http://www.j-walk.com/ss/excel/tips/tip56.htm) y modificado por mi
deberia ayudarte. Lo puedes asignar a un boton o pulsar Alt+F8 y
lanzarlo desde el dialogo Macro.

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Then Rows(r).Delete
Next r
End Sub

Saludos,
KL

"N.C.C" wrote in message
news:eB$rJC$

Tengo una gran cantidad de datos en excel los cuales son de un archivo
txt que importo semanalmente.

cuando los importo en excel queda asi.

257458R D
HK119710 30-1 D S 10/20/04 13/08
JV144910 30-1 D S 11/10/04 53/04
** Total for Size: 2 67

JV140310 30-1 D M 11/10/04 14
JV140910 30-1 D M 10/21/04 61
** Total for Size: 2 75

JT120810 30-1 D L 10/27/04 15
HT146510 30-1 D L 11/06/04 40
JV159810 30-1 D L 11/06/04 40
RB166810 30-1 D L 11/08/04 45
JV177510 30-1 D L 11/09/04 13
** Total for Size: 5 153



y despues tengo que borrar las filas que estan en blanco y las que
tienen los ** para dejar creada una sola lista de datos.

Alguien me puede ayudar con esto, se los agradecere mucho.

Tks

Correcto, faltaba " _" al final. Lo habre borrado accidentalmente. Aqui
esta el codigo completo

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Or Application.CountIf(Rows(r), "SORT*") > 0 _
Then Rows(r).Delete
Next r
End Sub

KL


"N.C.C" wrote in message
news:

Hola de nuevo.

me dice que hay error de sintaxis aqui

If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Or Application.CountIf(Rows(r), "SORT*") > 0







"KL" <lapink2000(at)hotmail.com (former )> wrote in
message news:

Entonces tendrias q anadir otra condicion con el operador OR y el codigo
seria el sigienete:

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Or Application.CountIf(Rows(r), "SORT*") > 0
Then Rows(r).Delete
Next r
End Sub


Saludos,
KL

"N.C.C" wrote in message
news:

Gracias a ambos las dos respuestas son buenas.

Solo una consulta KL.
en el caso que quisiera borrar otro termino mas es decir:
que no solo sea las filas en blanco y las que tienen ** , tambien otra
fila que contenga otro dato SORT

elimiar fila en blanco
eliminar fila **
eliminar fila SORT




"KL" <lapink2000(at)hotmail.com (former )> wrote in
message news:ubXcD9$

Este macro hecho por John Walkenbach
(http://www.j-walk.com/ss/excel/tips/tip56.htm) y modificado por mi
deberia ayudarte. Lo puedes asignar a un boton o pulsar Alt+F8 y
lanzarlo desde el dialogo Macro.

Sub DeleteEmptyRows()
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 _
Or Application.CountIf(Rows(r), "~*~**") > 0 _
Then Rows(r).Delete
Next r
End Sub

Saludos,
KL

"N.C.C" wrote in message
news:eB$rJC$

Tengo una gran cantidad de datos en excel los cuales son de un
archivo txt que importo semanalmente.

cuando los importo en excel queda asi.

257458R D
HK119710 30-1 D S 10/20/04 13/08
JV144910 30-1 D S 11/10/04 53/04
** Total for Size: 2 67

JV140310 30-1 D M 11/10/04 14
JV140910 30-1 D M 10/21/04 61
** Total for Size: 2 75

JT120810 30-1 D L 10/27/04 15
HT146510 30-1 D L 11/06/04 40
JV159810 30-1 D L 11/06/04 40
RB166810 30-1 D L 11/08/04 45
JV177510 30-1 D L 11/09/04 13
** Total for Size: 5 153



y despues tengo que borrar las filas que estan en blanco y las que
tienen los ** para dejar creada una sola lista de datos.

Alguien me puede ayudar con esto, se los agradecere mucho.

Tks