|
Gracias por contestar tan pronto mi duda, ya implemente una solucion parcial. Tengo una hoja de excel con 20004 registros y 29 campos (osea tengo datos de A1:AC20004).
Intente antes de preguntar aqui copiar y pegar especial con transponer pero excel no ejecuto la orden, ya que eran demasiados datos
Esta hoja la dividi en 3 hojas, una parte de los datos se quedaron igual (hoja 1), y otra parte la tenia que transponer (hoja2), pero sin perder la secuencia de donde estaban los datos, osea el orden del registro original, y otra parte (hoja 3) mezcla datos de las otras 2 hojas y tiene datos exclusivos de ella. Todo esto es para luego migrarlo a Access, y luego a MS SQL.
Buscando encontre esta macro, y le fui modificando el contador, la fila y la columna:
Sub Datos1() 'hay un tope de 65534
'estos son los periodos 1-65534, 65535-131069, 131070-196604,
'196605-280056
Dim x, y, z As Integer
y = 1
z = 1
For x = 1 To 65534 '280056 es el valor total 83451
Worksheets("Hoja2").Cells(x, 1).Value = Worksheets("Hoja1").Cells(y, z)
If z = 14 Then y = y + 1
If z < 14 Then z = z + 1 Else z = 1
Next x
End Sub
Me di cuenta que excel solo puede operar hasta con 65536 registros, asi que tuve que dividir la secuencia de vaciado de datos por partes.
Todo muy bien, hasta que llegue a una parte que tiene varios datos en secuencia enlazados de 2 hojas y ahora tengo que integrarlos en la misma secuencia en la 3era hoja. Este el orden, copiar en excel para mejor visualizacion:
Llenado de Celdas Procesos ProcesosValores ProcesosDetalle Datos ejemplo
Id Id Descripcion
1 Procesos col 3 2 CR 151
2 Procesos col 2 10 Sucursal 11
3 17 17 Remision $36,371.00
4 16 16 Real $36,371.00
5 28 28 Real-Remision $0.00
6 Procesos col 7 9 Folio 705827
7 25 25 Real (dlls) $22.00
8 18 18 $1,000 $0.00
9 19 19 $500 $9,500.00
10 20 20 $200 $18,200.00
11 21 21 $100 $7,700.00
12 22 22 $50 $950.00
13 23 23 $20 $20.00
14 24 24 Moralla $1.00
15 27 27 Total Real $36,371.00
16 30 30 Remision-Total Real $0.00
17 29 29 Real-Total Real $0.00
18 1 11 Num. Envases 1
19 Procesos col 5 6 Fecha Venta 31/12/2008
20 null 12 Billetes Falsos
21 null 15 Comentarios
Tengo que vaciar todo en procesodetalles. debo confesar que es la 1era vez que uso VBA y las macros, nunca pense que fuera tan util :)
Nuevamente gracias por la atencion, deberia implementar un boton de donacion paypal en su pagina web!!!
|