Ayuda con macro

No salioel archivo ...


"N.C.C" wrote in message
news:ub$

Buenas.

Tengo un archivo el cual se genera de un sistema en un archivo de excel.

son mas de 500 filas por dia, adjunto el archivo.

en la hoja info. asi es como sale del sistema, luego tengo que generar un
reporte como el de la hoja Repor y tengo que hacerlo manual. se que por
medio de macro esto puede ser mas facil.

si alguien me puede ayudar.

de Antemano muchas gracias.

Archivo colgado de este mensaje.

hola, (...) ???

Tengo un archivo el cual se genera de un sistema en un archivo de excel.
son mas de 500 filas por dia, adjunto el archivo.
en la hoja info. asi es como sale del sistema, luego tengo que generar un reporte como el de la hoja Repor
y tengo que hacerlo manual. se que por medio de macro esto puede ser mas facil...

prueba con una macro +/- como la siguiente y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Reporte()
Dim Arts As Range, n As Integer, Filas As Integer, Articulo As String, _
Codigo, Talla, Color, Cantidad
Worksheets.Add After:=Worksheets(Worksheets.Count)
Range("a2:e2") = Array("Producto", "Codigo", "Talla", "Color", "Cantidad")
Set Arts = Worksheets("info").Columns("a") _
.SpecialCells(xlCellTypeConstants, xlTextValues)
For n = 1 To Arts.Areas.Count
With Arts.Areas(n)
Filas = .Rows.Count - 1
Articulo = .Cells(1)
Codigo = .Offset(1).Resize(Filas).Value
Talla = .Offset(1).Resize(Filas).Offset(, 2).Value
Color = .Offset(1).Resize(Filas).Offset(, 3).Value
Cantidad = .Offset(1).Resize(Filas).Offset(, 5).Value
End With
With Range("a65536").End(xlUp).Offset(1).Resize(Filas)
.Offset() = Articulo
.Offset(, 1) = Codigo
.Offset(, 2) = Talla
.Offset(, 3) = Color
.Offset(, 4) = Cantidad
End With
Next
Set Arts = Nothing
Union(Range("a2:e2"), Range(Range("a2"), Range("a2").End(xlDown))).Font.Bold = True
End Sub

Me funciona de maravilla.

Gracias Hector




"Héctor Miguel" wrote in message
news:

hola, (...) ???

Tengo un archivo el cual se genera de un sistema en un archivo de excel.
son mas de 500 filas por dia, adjunto el archivo.
en la hoja info. asi es como sale del sistema, luego tengo que generar un
reporte como el de la hoja Repor
y tengo que hacerlo manual. se que por medio de macro esto puede ser mas
facil...

prueba con una macro +/- como la siguiente y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Reporte()
Dim Arts As Range, n As Integer, Filas As Integer, Articulo As String, _
Codigo, Talla, Color, Cantidad
Worksheets.Add After:=Worksheets(Worksheets.Count)
Range("a2:e2") = Array("Producto", "Codigo", "Talla", "Color",
"Cantidad")
Set Arts = Worksheets("info").Columns("a") _
.SpecialCells(xlCellTypeConstants, xlTextValues)
For n = 1 To Arts.Areas.Count
With Arts.Areas(n)
Filas = .Rows.Count - 1
Articulo = .Cells(1)
Codigo = .Offset(1).Resize(Filas).Value
Talla = .Offset(1).Resize(Filas).Offset(, 2).Value
Color = .Offset(1).Resize(Filas).Offset(, 3).Value
Cantidad = .Offset(1).Resize(Filas).Offset(, 5).Value
End With
With Range("a65536").End(xlUp).Offset(1).Resize(Filas)
.Offset() = Articulo
.Offset(, 1) = Codigo
.Offset(, 2) = Talla
.Offset(, 3) = Color
.Offset(, 4) = Cantidad
End With
Next
Set Arts = Nothing
Union(Range("a2:e2"), Range(Range("a2"),
Range("a2").End(xlDown))).Font.Bold = True
End Sub