Últimos mensajes - Powered by IBM

Palabras claves

ORDENAR E INSERTAR FILAS EN BLANCO EN UN RANGO

01/12/2009 - 01:40 por FERNANDOMH | Informe spam

Hola a todos, les agradecería que me ayudaran con lo siguiente:

Tengo una hoja con datos de artículos en las columnas de la b a la z, en la
columna "B" tengo la clave de los articulos formada por 5 números, y en las
demás su descripción y otros datos más.

Los artículos se repiten en varias filas y varían algunos datos solo de las
útimas columnas.

Las filas no estan ordenas, es decir puede primero estar el artículo con
clave 45674 y luego el 23456.

Lo que quiero hacer es primero que me ordene los artículos en forma
consecutiva por número de artículo y luego que me pueda insertar 4 filas en
blanco cada que cambie la clave del artículo.

Esto desearía que se lograra mediante una macro. (no tengo mucho
conocimiento en macros)

Por su ayuda, de antemano muchas gracias.

Siga el debate

8 respuestas

Tengo una respuesta

Preguntas similare

Ordenar filas de un rango usando una columna

Leer las respuestas

#1 Héctor Miguel

01/12/2009 - 06:28 | Informe spam

hola, Fernando !

Tengo una hoja con datos de articulos en las columnas de la b a la z
en la columna "B" tengo la clave de los articulos formada por 5 numeros
y en las demas su descripcion y otros datos mas.
Los articulos se repiten en varias filas y varian algunos datos solo de las utimas columnas.
Las filas no estan ordenas, es decir puede primero estar el articulo con clave 45674 y luego el 23456.

lo anterior significa que la columna "A" esta libre ?
(o existen datos que NO importa si cambian al ordenar el listado ?)
tambien seria bueno conocer si el listado contiene "titulos" (y en cual fila) y a partir de que fila son los registros
y si las columnas despues de la "Z" estan tambien libres (???)

Lo que quiero hacer es primero que me ordene los articulos en forma consecutiva por numero de articulo
y luego que me pueda insertar 4 filas en blanco cada que cambie la clave del articulo.
Esto desearia que se lograra mediante una macro. (no tengo mucho conocimiento en macros)

dependiendo del arreglo de tus datos (respondiendo las dudas del punto anterior) seria el procedimiento a sugerir (?)

saludos,
hector.

Responder a este mensaje

#2 FERNANDOMH

02/12/2009 - 02:01 | Informe spam

"Héctor Miguel" escribió:

hola, Fernando !

> Tengo una hoja con datos de articulos en las columnas de la b a la z
> en la columna "B" tengo la clave de los articulos formada por 5 numeros
> y en las demas su descripcion y otros datos mas.
> Los articulos se repiten en varias filas y varian algunos datos solo de las utimas columnas.
> Las filas no estan ordenas, es decir puede primero estar el articulo con clave 45674 y luego el 23456.

lo anterior significa que la columna "A" esta libre ?
(o existen datos que NO importa si cambian al ordenar el listado ?)
tambien seria bueno conocer si el listado contiene "titulos" (y en cual fila) y a partir de que fila son los registros
y si las columnas despues de la "Z" estan tambien libres (???)

> Lo que quiero hacer es primero que me ordene los articulos en forma consecutiva por numero de articulo
> y luego que me pueda insertar 4 filas en blanco cada que cambie la clave del articulo.
> Esto desearia que se lograra mediante una macro. (no tengo mucho conocimiento en macros)

dependiendo del arreglo de tus datos (respondiendo las dudas del punto anterior) seria el procedimiento a sugerir (?)

saludos,
hector.

.
Hola Hector Miguel.

Gracias por responder...

Las columna A esta libre.
El listado si tiene títuos en las filas 1,2,y 3 y los datos son a partir de
la fila 5.

Perdón, los datos son hasta la columna AH y después estan libres.

saludos...

Responder a este mensaje

#3 Héctor Miguel

02/12/2009 - 02:13 | Informe spam

hola, Fernando !

Las columna A esta libre.
El listado si tiene tituos en las filas 1,2,y 3 y los datos son a partir de la fila 5.
... los datos son hasta la columna AH y despues estan libres.

de esta aclaracion (me) surgen dos nuevas dudas :-((

- por que 3 filas para los titulos ?
esto me hace suponer que tienes algunas celdas "combinadas" (espero que NO)

- que contiene la fila 4 ? (esta vacia ?)

cualquier situacion como las anteriores podria "estorbar" para determinar la "region actual" de un listado

saludos,
hector.

Responder a este mensaje

#4 FERNANDOMH

02/12/2009 - 16:57 | Informe spam

"Héctor Miguel" escribió:

hola, Fernando !

> Las columna A esta libre.
> El listado si tiene tituos en las filas 1,2,y 3 y los datos son a partir de la fila 5.
> ... los datos son hasta la columna AH y despues estan libres.

de esta aclaracion (me) surgen dos nuevas dudas :-((

- por que 3 filas para los titulos ?
esto me hace suponer que tienes algunas celdas "combinadas" (espero que NO)

- que contiene la fila 4 ? (esta vacia ?)

cualquier situacion como las anteriores podria "estorbar" para determinar la "region actual" de un listado

saludos,
hector.

.
Hola Hector.

Efectivamente, existen celdas combinadas en las filas 1,2 y 3,
La fila 4 esta vacía.

Ojalá que esto no haga más difícil la solución.

También se me ocurre que para determinar la "región actual" pudiera antes
manualmente definir el rango a trabajar ?

Muchas gracias por tu atención, saludos...

Responder a este mensaje

#5 Héctor Miguel

03/12/2009 - 03:55 | Informe spam

hola, Fernando !

Efectivamente, existen celdas combinadas en las filas 1,2 y 3, La fila 4 esta vacia.
Ojala que esto no haga mas dificil la solucion.
... se me ocurre... determinar la "region actual"... antes manualmente ... ?

prueba con una macro +/- como la siguiente:

Sub Cuatro_entre()
Dim Celda As Range
Application.ScreenUpdating = False
With [b5].CurrentRegion
.Sort Key1:=[b5], Order1:=xlAscending, Header:=xlNo
.Offset(-1).Resize(1, 1) = "Clave"
.Offset(-1).Resize(.Rows.Count + 1, 1).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=[aj1], Unique:=True
.Offset(-1).Resize(1, 1).ClearContents
End With
For Each Celda In Range([aj3], [aj65536].End(xlUp).Offset(-1))
[b:b].Cells.Find(Celda, [b5]).Resize(4).EntireRow.Insert
Next
Columns("aj").ClearContents
Debug.Print ActiveSheet.UsedRange.Address
End Sub

saludos,
hector.

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida