Macro para acomodar datos

En la hoja 1 tengo esta informacion A1-LEVEL, B1-Item Number, C1-Ref Des, D1-Qty, E1-Item Description.
En la columna de Ref des tiene la lista de las locaciones existentes de un numero de parte (R1, R2, R3, etc)
lo que me gustaria hacer es separar esa informacion... que la macro cree otra hoja y acomode la misma informacion
(apartir del numero de parte de nivel 0) pero con los "REF DES" listados en los renglones correspondientes
... si son 10 ref des, que en la otra tabla agregue 10 renglones y acomode los ref des con la misma informacion del numero de parte
el resultado seria mas o menos como una base de datos.
abajo hice una tabla de ejemplo y otra tabla como me gustaria tener el resultado.
Pueden tomar estos datos y pegarlos en una hoja de calculo para que tengan mejor vision de la tabla.

OJO. Los Ref des pueden ser de diferentes letras como C, Q, L, incluso dos o tres letras como LED1, LED2;
Todos los datos estan separados por una coma. Y notese tambien de que no tiene espacios (...)

hola, !

el siguiente ejemplo "asume" que ha existe una "Hoja2", OJO que siempre se eliminan sus datos y se reemplazan por la macro:

Sub Lista_partes()
Dim Fila As Integer, Level As Byte, iNumber As String, RefDes As String, Qty As Integer, iDesc As String
With Worksheets("hoja2")
.Cells.Clear: .Range("a1:e1") = Array("Level", "Item Number", "Ref Des", "Qty", "Item Description")
End With
With Worksheets("hoja1")
For Fila = 2 To .Range("a65536").End(xlUp).Row
Level = .Range("a" & Fila)
iNumber = .Range("b" & Fila)
RefDes = .Range("c" & Fila)
Qty = .Range("d" & Fila)
iDesc = .Range("e" & Fila)
With Worksheets("hoja2")
With .Range("a65536").End(xlUp).Offset(1).Resize(Qty)
.Offset() = Level
.Offset(, 1) = iNumber
.Offset(, 2) = Application.Transpose(Split(RefDes, ","))
.Offset(, 3) = 1
.Offset(, 4) = iDesc
End With
End With
Next
End With
Worksheets("hoja2").Range("a1:e1").EntireColumn.AutoFit
End Sub

OJO: la funcion de vba "Split" requiere de VBA6 (excel 2000 en adelante)
si piensas utilizarla en la version 97 de excel (VBA5) deberas proveerla, poniendo al inicio de tu modulo lo siguiente:

#If Not VBA6 Then
Function Split(Cadena As String, Delimitador As String) As Variant
Split = Evaluate("{""" & Application.Substitute(Cadena, Delimitador, """,""") & """}")
End Function
#End If

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

> En la hoja 1 tengo esta informacion A1-LEVEL, B1-Item Number, C1-Ref Des, D1-Qty, E1-Item Description.
> En la columna de Ref des tiene la lista de las locaciones existentes de un numero de parte (R1, R2, R3, etc)
> lo que me gustaria hacer es separar esa informacion... que la macro cree otra hoja y acomode la misma informacion
> (apartir del numero de parte de nivel 0) pero con los "REF DES" listados en los renglones correspondientes
> ... si son 10 ref des, que en la otra tabla agregue 10 renglones y acomode los ref des con la misma informacion del numero de parte
> el resultado seria mas o menos como una base de datos.
> abajo hice una tabla de ejemplo y otra tabla como me gustaria tener el resultado.
> Pueden tomar estos datos y pegarlos en una hoja de calculo para que tengan mejor vision de la tabla.
>
> OJO. Los Ref des pueden ser de diferentes letras como C, Q, L, incluso dos o tres letras como LED1, LED2;
> Todos los datos estan separados por una coma. Y notese tambien de que no tiene espacios (...)

<< ya sabes que las "tablas" usando espacios y tabulaciones NO "pasan" como quisieras en los lectores de noticias >> :-((

EXELENTEEEEEEEEEEEE!!!!!!

Solo un pequeno detalle, hay renglones que tienen 57 y 83 Ref des (267 & 404
caracteres respectivamente) y en el resultado de esos numeros de parte no
lista los REF DES, solo captura #VALUE!. Uso Excel 97.

Ahora, el problema es de que en ocaciones tengo archivos donde contienen mas
de 1000 ref des

Espero y haya solucion a eso
Mil gracias













"Héctor Miguel" wrote:

> hola, !
>
> el siguiente ejemplo "asume" que ha existe una "Hoja2", OJO que siempre se eliminan sus datos y se reemplazan por la macro:
>
> Sub Lista_partes()
> Dim Fila As Integer, Level As Byte, iNumber As String, RefDes As String, Qty As Integer, iDesc As String
> With Worksheets("hoja2")
> .Cells.Clear: .Range("a1:e1") = Array("Level", "Item Number", "Ref Des", "Qty", "Item Description")
> End With
> With Worksheets("hoja1")
> For Fila = 2 To .Range("a65536").End(xlUp).Row
> Level = .Range("a" & Fila)
> iNumber = .Range("b" & Fila)
> RefDes = .Range("c" & Fila)
> Qty = .Range("d" & Fila)
> iDesc = .Range("e" & Fila)
> With Worksheets("hoja2")
> With .Range("a65536").End(xlUp).Offset(1).Resize(Qty)
> .Offset() = Level
> .Offset(, 1) = iNumber
> .Offset(, 2) = Application.Transpose(Split(RefDes, ","))
> .Offset(, 3) = 1
> .Offset(, 4) = iDesc
> End With
> End With
> Next
> End With
> Worksheets("hoja2").Range("a1:e1").EntireColumn.AutoFit
> End Sub
>
> OJO: la funcion de vba "Split" requiere de VBA6 (excel 2000 en adelante)
> si piensas utilizarla en la version 97 de excel (VBA5) deberas proveerla, poniendo al inicio de tu modulo lo siguiente:
>
> #If Not VBA6 Then
> Function Split(Cadena As String, Delimitador As String) As Variant
> Split = Evaluate("{""" & Application.Substitute(Cadena, Delimitador, """,""") & """}")
> End Function
> #End If
>
> si cualquier duda (o informacion adicional)... comentas ?
> saludos,
> hector.
>
> > En la hoja 1 tengo esta informacion A1-LEVEL, B1-Item Number, C1-Ref Des, D1-Qty, E1-Item Description.
> > En la columna de Ref des tiene la lista de las locaciones existentes de un numero de parte (R1, R2, R3, etc)
> > lo que me gustaria hacer es separar esa informacion... que la macro cree otra hoja y acomode la misma informacion
> > (apartir del numero de parte de nivel 0) pero con los "REF DES" listados en los renglones correspondientes
> > ... si son 10 ref des, que en la otra tabla agregue 10 renglones y acomode los ref des con la misma informacion del numero de parte
> > el resultado seria mas o menos como una base de datos.
> > abajo hice una tabla de ejemplo y otra tabla como me gustaria tener el resultado.
> > Pueden tomar estos datos y pegarlos en una hoja de calculo para que tengan mejor vision de la tabla.
> >
> > OJO. Los Ref des pueden ser de diferentes letras como C, Q, L, incluso dos o tres letras como LED1, LED2;
> > Todos los datos estan separados por una coma. Y notese tambien de que no tiene espacios (...)
>
> << ya sabes que las "tablas" usando espacios y tabulaciones NO "pasan" como quisieras en los lectores de noticias >> :-((
>
>
>

... tengo un problema, el macro se para en la linea:
With .Range("a65536").End(xlUp).Offset(1).Resize(Qty)
Ya no avanza y el error que genera es: Run-time error '1004': Aplication defined or object defined error

> Qty = .Range("d" & Fila)

el siguiente ejemplo "asume" que ha existe una "Hoja2", OJO que siempre se eliminan sus datos y se reemplazan por la macro:

Sub Lista_partes()
Dim Fila As Integer, Level As Byte, iNumber As String, RefDes As String, Qty As Integer, iDesc As String
With Worksheets("hoja2")
.Cells.Clear: .Range("a1:e1") = Array("Level", "Item Number", "Ref Des", "Qty", "Item Description")
End With
With Worksheets("hoja1")
For Fila = 2 To .Range("a65536").End(xlUp).Row
Level = .Range("a" & Fila)
iNumber = .Range("b" & Fila)
RefDes = .Range("c" & Fila)
Qty = .Range("d" & Fila)
iDesc = .Range("e" & Fila)
With Worksheets("hoja2")
With .Range("a65536").End(xlUp).Offset(1).Resize(Qty)
.Offset() = Level
.Offset(, 1) = iNumber
.Offset(, 2) = Application.Transpose(Split(RefDes, ","))
.Offset(, 3) = 1
.Offset(, 4) = iDesc
End With
End With
Next
End With
Worksheets("hoja2").Range("a1:e1").EntireColumn.AutoFit
End Sub

OJO: la funcion de vba "Split" requiere de VBA6 (excel 2000 en adelante)
si piensas utilizarla en la version 97 de excel (VBA5) deberas proveerla, poniendo al inicio de tu modulo lo siguiente:

#If Not VBA6 Then
Function Split(Cadena As String, Delimitador As String) As Variant
Split = Evaluate("{""" & Application.Substitute(Cadena, Delimitador, """,""") & """}")
End Function
#End If

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

En la hoja 1 tengo esta informacion A1-LEVEL, B1-Item Number, C1-Ref Des, D1-Qty, E1-Item Description.
En la columna de Ref des tiene la lista de las locaciones existentes de un numero de parte (R1, R2, R3, etc)
lo que me gustaria hacer es separar esa informacion... que la macro cree otra hoja y acomode la misma informacion
(apartir del numero de parte de nivel 0) pero con los "REF DES" listados en los renglones correspondientes
... si son 10 ref des, que en la otra tabla agregue 10 renglones y acomode los ref des con la misma informacion del numero de parte
el resultado seria mas o menos como una base de datos.
abajo hice una tabla de ejemplo y otra tabla como me gustaria tener el resultado.
Pueden tomar estos datos y pegarlos en una hoja de calculo para que tengan mejor vision de la tabla.

OJO. Los Ref des pueden ser de diferentes letras como C, Q, L, incluso dos o tres letras como LED1, LED2;
Todos los datos estan separados por una coma. Y notese tambien de que no tiene espacios (...)

<< ya sabes que las "tablas" usando espacios y tabulaciones NO "pasan" como quisieras en los lectores de noticias >> :-((

hola, !

> ... tengo un problema, el macro se para en la linea:
> With .Range("a65536").End(xlUp).Offset(1).Resize(Qty)
> Ya no avanza y el error que genera es: Run-time error '1004': Aplication defined or object defined error

la variable Qty es tomada por el codigo en esta linea:
>> > Qty = .Range("d" & Fila)
lo que supone/espera/asume/requiere/... que en la columna D de la fila "en turno" exista un valor numerico
que es el numero de "items" que seran trasladados -> previa "ampliacion" del rango por al instruccion .Resize(Qty)

comentas (si hubiera) algun detalle en el tintero ?
saludos,
hector.

__ OP __
>>> el siguiente ejemplo "asume" que ha existe una "Hoja2", OJO que siempre se eliminan sus datos y se reemplazan por la macro:
>>>
>>> Sub Lista_partes()
>>> Dim Fila As Integer, Level As Byte, iNumber As String, RefDes As String, Qty As Integer, iDesc As String
>>> With Worksheets("hoja2")
>>> .Cells.Clear: .Range("a1:e1") = Array("Level", "Item Number", "Ref Des", "Qty", "Item Description")
>>> End With
>>> With Worksheets("hoja1")
>>> For Fila = 2 To .Range("a65536").End(xlUp).Row
>>> Level = .Range("a" & Fila)
>>> iNumber = .Range("b" & Fila)
>>> RefDes = .Range("c" & Fila)
>>> Qty = .Range("d" & Fila)
>>> iDesc = .Range("e" & Fila)
>>> With Worksheets("hoja2")
>>> With .Range("a65536").End(xlUp).Offset(1).Resize(Qty)
>>> .Offset() = Level
>>> .Offset(, 1) = iNumber
>>> .Offset(, 2) = Application.Transpose(Split(RefDes, ","))
>>> .Offset(, 3) = 1
>>> .Offset(, 4) = iDesc
>>> End With
>>> End With
>>> Next
>>> End With
>>> Worksheets("hoja2").Range("a1:e1").EntireColumn.AutoFit
>>> End Sub
>>>
>>> OJO: la funcion de vba "Split" requiere de VBA6 (excel 2000 en adelante)
>>> si piensas utilizarla en la version 97 de excel (VBA5) deberas proveerla, poniendo al inicio de tu modulo lo siguiente:
>>>
>>> #If Not VBA6 Then
>>> Function Split(Cadena As String, Delimitador As String) As Variant
>>> Split = Evaluate("{""" & Application.Substitute(Cadena, Delimitador, """,""") & """}")
>>> End Function
>>> #End If
>>>
>>> si cualquier duda (o informacion adicional)... comentas ?
>>> saludos,
>>> hector.
>>>
>>>> En la hoja 1 tengo esta informacion A1-LEVEL, B1-Item Number, C1-Ref Des, D1-Qty, E1-Item Description.
>>>> En la columna de Ref des tiene la lista de las locaciones existentes de un numero de parte (R1, R2, R3, etc)
>>>> lo que me gustaria hacer es separar esa informacion... que la macro cree otra hoja y acomode la misma informacion
>>>> (apartir del numero de parte de nivel 0) pero con los "REF DES" listados en los renglones correspondientes
>>>> ... si son 10 ref des, que en la otra tabla agregue 10 renglones y acomode los ref des con la misma informacion del numero de parte
>>>> el resultado seria mas o menos como una base de datos.
>>>> abajo hice una tabla de ejemplo y otra tabla como me gustaria tener el resultado.
>>>> Pueden tomar estos datos y pegarlos en una hoja de calculo para que tengan mejor vision de la tabla.
>>>>
>>>> OJO. Los Ref des pueden ser de diferentes letras como C, Q, L, incluso dos o tres letras como LED1, LED2;
>>>> Todos los datos estan separados por una coma. Y notese tambien de que no tiene espacios (...)
>>>
>>> << ya sabes que las "tablas" usando espacios y tabulaciones NO "pasan" como quisieras en los lectores de noticias >> :-((