Trasladar datos de una columna a otra hoja
Buenas tardes mi consulta es la siguiente :
En una Hoja de excel llamada cuentas tengo información la cual quiero trasladara otra hoja llamada formato . Resulta que la hoja cuentas tiene algo de 26 columnas y yo solo quiero pasar unas 15 que están intercaladas x ejemplo las columnas 1,2,5,8,3,15,12,10,13, etc
Logre realizarlo con una macro, pero es muy tedioso x q hay que estar copiando y pegando cada columna, no se si se pueda hacer de otra manera, quizás con la referencia DAO
espero puedan ayudarme .
saludos
1 Respuesta
Puedo hacer una macro. Me puedes contestar lo siguiente.
Las columnas que vas a copiar, no siempre son las mismas, pero podrías poner en alguna parte de la hoja "cuentas", ¿cuáles columnas quieres copiar a "formato"? ¿O prefieres que la macro te pregunte cuáles quieres? O las columnas que se van a copiar tienen alguna característica particular, ¿qué las identifique para saber cuáles van a ser copiadas?
En la hoja "formato", ¿a partir de qué columna quieres que se empiecen a copiar?
Buenas que tal gracias por responderme.
El formato de la hoja Cuentas es estándar siempre traen las mismas columnas y siempre copio las columnas que necesito, te pongo un ejemplo:
Vienen esta cantidad de columnas cada una con registros por supuesto.
Soc., Acreedor ,Nombre Acreedor, Ce.coste , Compens, Doc.comp, Nº doc, Fe.contab, Fecha doc, Ce , Cl, Referencia . En ese orden.
Y yo quisiera ponerlas asi:
Soc. Acreedor Nombre Acreedor Fe.contab. Fecha doc. Compens. Nº doc Doc.comp. Cl Ce. Referencia Ce.coste
Se que se puede hacer una macro q copie las columnas de la hoja "Cuentas" y las pegue en la hoja "formato" pero veo que me llena de mucho código .
Espero puedas ayudarme.
Gracias
1. ¿Y en la hoja detalle en dónde las pego?
2. ¿A partir de la columna 1?
3. ¿Es una hoja nueva?
4. ¿Los nombres que me diste son los correctos y completos?
Te mando una macro.
Instrucciones
1. Abre tu hoja de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona ALt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Para ejecutarla presiona F5
Public col_des As Integer
Sub cambia_columnas()
'Por.Dam
For i = 1 To 12
selcolumna (i)
Worksheets("cuentas").Cells(1, Val(i)).EntireColumn.Copy _
Destination:= _
Worksheets("formato").Cells(1, Val(col_des))
Next
End Sub
Sub selcolumna(col)
Select Case col
Case 1
col_des = 1 'Soc."
Case 2
col_des = 2 'Acreedor"
Case 3
col_des = 3 'NombreAcreedor"
Case 4
col_des = 12 'Ce.coste"
Case 5
col_des = 6 'Compens"
Case 6
col_des = 8 'Doc.comp"
Case 7
col_des = 7 'Nºdoc"
Case 8
col_des = 4 'Fe.contab"
Case 9
col_des = 5 'Fechadoc"
Case 10
col_des = 10 'Ce"
Case 11
col_des = 9 'Cl"
Case 12
col_des = 11 'Referencia"
End Select
End Sub
Saludos. Dam
Si es lo que necesitas.
