Como puedo hacer para almacenar datos en vertical?

27/08/2008 - 19:24 por Luis Vargas | Informe spam
Hola a todos, tengo la siguiente macro para almacenar datos, solo que esta en
forma horizontal, ¿que puedo hacer para que el mismo procedimiento lo relaize
en forma vertical?, los datos ahora se almacenan asi:
folio fecha destino operador turno codigo 1 codigo 2

y requiero se almacene asi:
folio codigo 1 piezas operador turno
folio codigo 2 piezas
folio codigo 3 piezas


With Sheets("LISTA").Range("B65536").End(xlUp)
.Offset(1, 0) = Sheets("CAPTURA").Range("B6") 'FOLIO
.Offset(1, 1) = Sheets("CAPTURA").Range("G8") 'PIEZAS
.Offset(1, 2) = Sheets("CAPTURA").Range("F8") 'DESTINO
.Offset(1, 3) = Sheets("CAPTURA").Range("F6") 'OPERADOR
.Offset(1, 4) = Sheets("CAPTURA").Range("G6") 'TURNO
.Offset(1, 5) = Sheets("CAPTURA").Range("B10") 'CODIGO 1
Sheets("LISTA").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("CAPTURA").Select
Range("B10").Select
End With


de antemano gracias por su ayuda. Saludos
 

Leer las respuestas

#1 Servando
27/08/2008 - 22:01 | Informe spam
Hola Luis:

El codigo que requieres modificar es este:

With Sheets("LISTA").Range("IV1").End(xlToLeft)
.Offset(0, 1) = Sheets("CAPTURA").Range("B6") 'FOLIO
.Offset(1, 1) = Sheets("CAPTURA").Range("G8") 'PIEZAS
.Offset(2, 1) = Sheets("CAPTURA").Range("F8") 'DESTINO
.Offset(3, 1) = Sheets("CAPTURA").Range("F6") 'OPERADOR
.Offset(4, 1) = Sheets("CAPTURA").Range("G6") 'TURNO
.Offset(5, 1) = Sheets("CAPTURA").Range("B10") 'CODIGO 1
Sheets("LISTA").Select


Por favor, retroalimentanos y dinos si esto te fue de utilidad.

Saludos
Servando Villalon

Preguntas similares