Macro para separar

12/12/2007 - 23:35 por Manny_90 | Informe spam

Que tal.

Apreciaria mucho su ayuda si me ayudan a generar una macro que me separe por
columna datos de una celda en especifica.
Por ejemplo, tengo mi tabla:

Level Item Number Ref Des Item Description Quantity
0 G0100023-461 PCA DRGC-2C 0
1 G600002-105-461 C7,C714,C732,C734, CCAP,1uF,0402,X5 12
C756,C768,C781,C875,
C927,C1093,C1114,
C1117
1 G611009-107-461 C401,C402,C406, TCAP,100uF,7343 5
C408,C1404

Nivel, Numero de parte, ref des, Descripcion, Cantidad.

Lo que necesito es separar la lista de materiales por "ref des", es decir,
me gustaria tener un resultado asi:

Level Item Number Ref Des Description Quantity
0 G0100023-461 PCA DRGC-2C 0

1 G600002-105-461 C7 CCAP,1uF,0402,X5 12
C714 CCAP,1uF,0402,X5 12
C732 CCAP,1uF,0402,X5 12
C734 CCAP,1uF,0402,X5 12
C756 CCAP,1uF,0402,X5 12
C768 CCAP,1uF,0402,X5 12
C781 CCAP,1uF,0402,X5 12
C875 CCAP,1uF,0402,X5 12
C927 CCAP,1uF,0402,X5 12
C1093 CCAP,1uF,0402,X5 12
C1114 CCAP,1uF,0402,X5 12
C1117 CCAP,1uF,0402,X5 12

1 G611009-107-461 C401 TCAP,100uF,7343 5
C402 TCAP,100uF,7343 5
C406 TCAP,100uF,7343 5
C408 TCAP,100uF,7343 5
C1404 TCAP,100uF,7343 5

En si la tabla tiene mas de 50 numeros de parte con sus respectivvos "Ref
des",
lo que no puedo es separarlos, y acomodarlos como el ejemplo.

Muchas gracias por su ayuda!!

Manny_90

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Manny_90

19/12/2007 - 16:02 | Informe spam

OK.
Gracias.

Lo que pasa es que la macro funciona si tienes arreglado tu tabla de la sig
manera.

Renglon 1- Encabezados
Renglon 2-Level 0 Item number G0100023-461
Renglon 3-En blanco
Renglon 4-Level 1 Item number G600002-105-461, ref des C7,C714,C732,C734,
etc. Desc CCAP,1uF,0402,X5 qty 12
Renglon 5-En blanco

El resultado que genera es de la misma forma (con renglones en blanco), la
tabla que tengo esta asi:
Renglon 1- Encabezados
Renglon 2-Level 0 Item number G0100023-461
Renglon 3-Level 1 Item number G600002-105-461, ref des C7,C714,C732,C734,
etc. Desc CCAP,1uF,0402,X5 qty 12
Renglon 4-Level 1, etc...

Mil gracias

"Héctor Miguel" wrote:

hola, (...) ?

> Lo que cambie a ingles fue la palabra "celda", me di cuenta de que era parte del areglo que hiciste. Ese ya no es problema.
> -El problema es que cuando se topa con una celda que tiene mas de 200 ref des. para la macro por un error.
> -la tabla que tengo yo, no tiene lineas en blanco, todos lineas estan seguidas.
> -El resultado cres que lo pueda generar sin lineas en blanco? (...)

1) la palabra "Celda" corresponde a una variable declarada que no interfiere con el idioma ;)

2) si en tu listado existe algun "Item Description" con mas de 255 "Ref Des" cambia a las variables el tipo asignado...
de "As Byte" a: -> "As Integer" (As Byte tiene un alcance de 0 a 255, As Integer cubre +/- hasta 32,767) p.e.
modifica las lineas donde se declaran las variables (y sus tipos)

de:
Dim Celda As Range, FilaX As Integer, nFilas As Byte, nDesc As Byte, _
Sig As Byte, RefDes As String

a:
Dim Celda As Range, FilaX As Integer, nFilas As Integer, nDesc As Integer, _
Sig As Integer, RefDes As String

3) lo de generar el resultado "sin lineas en blanco"... (si pudieras ser mas especifico -???-)

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida