Ayuda con macro

26/11/2004 - 20:45 por N.C.C | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Juan Sánchez
26/11/2004 - 21:05 | Informe spam
Cuando me ha tocado hacer cosas parecidas, y para evitar estar creando
macros, hago lo siguiente.

1. Para no perder el orden original de la lista inserto una columna nueva
con una secuencia numérica (1, 2, 3, 4, ...) algo que puedes hacer
rápidamente escribiendo 1 y 2 en dos celdas, seleccionas las dos celdas y
doble clic en el botón de llenado automático.

2. Luego ordenas la lista por la columna de los datos, entonces vas a poder
eliminar fácilmente las filas al estar agrupadas.
3. Ordena la lista por la columna que insertaste y listo.

Slds,
Juan




"N.C.C" escribió en el mensaje
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



Respuesta Responder a este mensaje
#2 Juan Sánchez
26/11/2004 - 21:18 | Informe spam
Perdón, lo del doble clic en el llenado automático no te funcionará por las
celdas vacías que tienes (paso 1). En ese caso escribe 1 en la celda,
seleccionas la columna y Edición ->Rellenar -> Series ->Aceptar.

Al terminar todo eliminas la columna que insertaste.


"Juan Sánchez" escribió en el mensaje
news:eGEpHN$
Cuando me ha tocado hacer cosas parecidas, y para evitar estar creando
macros, hago lo siguiente.

1. Para no perder el orden original de la lista inserto una columna nueva
con una secuencia numérica (1, 2, 3, 4, ...) algo que puedes hacer
rápidamente escribiendo 1 y 2 en dos celdas, seleccionas las dos celdas y
doble clic en el botón de llenado automático.

2. Luego ordenas la lista por la columna de los datos, entonces vas a


poder
eliminar fácilmente las filas al estar agrupadas.
3. Ordena la lista por la columna que insertaste y listo.

Slds,
Juan




"N.C.C" escribió en el mensaje
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
>
>
>


Respuesta Responder a este mensaje
#3 KL
26/11/2004 - 22:29 | Informe spam
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



Respuesta Responder a este mensaje
#4 N.C.C
26/11/2004 - 23:15 | Informe spam
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







Respuesta Responder a este mensaje
#5 KL
26/11/2004 - 23:35 | Informe spam
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











Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida