Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Reporte

13/05/2008 - 03:14 por Edixon | Informe spam
Ayuda Hacer una pregunta
Hola grupo necesito de su aporte, tengo lo siguiente:

una lista inmensa con aproximadamente 60.000 filas acupadas

columna A : codigo del articulo(serial de 3 digitos)
columna B: lugar de ubicacion
columna C: letra asociada segun ciertas caracteristicas
columna D: Cantidad

Para llenar la base de Datos se va anotando cada articulo y se vacia
en la hoja de Excel (Hoja 1) puede repetirse cada articulo n veces ya
que puede variar su lugar de ubicacion o su letra asociada pero como
estan ubicados en distintos lugares al colocarlos en la hoja de excel
estos no quedan en forma correlativa.

Lo que necesito es lo siguiente: traer un reporte con macros donde me
orroje de forma correlativa cada codigo con sus distintas ubicaciones
ejemplo

hoja 1

A B C D

125 4 a 18
126 3 d 20
158 2 l 15
146 5 p 19
125 9 s 80
189 2 y 90
658 1 z 60
687 8 d 50
125 10 e 60
158 9 t 30
126 2 r 40

hoja 2 REPORTE

A B C D
125 4 a 18
9 s 80
10 e 60
126 3 d 20
2 r 40


y as sucesivamente, espero me entiendan la idea y de antemano muchas
gracias
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
13/05/2008 - 06:05 | Informe spam
hola, Edixon !

(segun parece) lo unico que necesitas es "ordenar" tu listado y borrar los repetidos -?-
lo cual puedes hacer en la mismisima hoja de tu listado o en una copia (prueba con una copia)

OJO con los siguientes "supuestos":
- NO hay celdas vacias intermedias en la columna A
- esta "libre" para la macro la columna F (cinco columnas a la derecha de la columna A)
- la fila 1 contiene titulos (para el ordenamiento por codigo) donde:
- se asumen solo 4 columnas con datos A,B,C y D y se usa como "puente" la columna F
(pon atencion a las instrucciones con el .Offset(, 5) en el codigo)

Sub Ordena_Limpia()
Dim ColDesp As Byte
ColDesp = 5 ' columna F en relacion con la columna A '
Application.ScreenUpdating = False
[a2].Sort [a2], xlAscending, , , , , , xlYes
With Range([a2], [a2].End(xlDown))
.Offset(, ColDesp).Formula = "=if(countif(a$2:a2,a2)=1,a2,"""")"
.Value = .Offset(, ColDesp).Value
.Offset(, ColDesp).Clear
End With
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __
una lista inmensa con aproximadamente 60.000 filas acupadas
columna A: codigo del articulo(serial de 3 digitos)
columna B: lugar de ubicacion
columna C: letra asociada segun ciertas caracteristicas
columna D: Cantidad
Para llenar la base de Datos se va anotando cada articulo y se vacia en la hoja de Excel (Hoja 1)
puede repetirse cada articulo n veces ya que puede variar su lugar de ubicacion o su letra asociada
pero como estan ubicados en distintos lugares al colocarlos en la hoja de excel estos no quedan en forma correlativa.
... necesito... un reporte con macros... de forma correlativa cada codigo con sus distintas ubicaciones. ejemplo
hoja 1
A B C D
125 4 a 18
126 3 d 20
158 2 l 15
146 5 p 19
125 9 s 80
189 2 y 90
658 1 z 60
687 8 d 50
125 10 e 60
158 9 t 30
126 2 r 40

hoja 2 REPORTE
A B C D
125 4 a 18
9 s 80
10 e 60
126 3 d 20
2 r 40

y as sucesivamente, espero me entiendan la idea y de antemano muchas gracias

Preguntas similares

 

Busqueda sugerida :