Seleccionar, copiar e insertar columnas en excel

[quique]

Perdón por preguntar una de kinder para los que saben, pero no me funciona, tengo una hoja de excel y necesito seleccionar las columnas B a H para poder copiarlas e insertarlas en la posición de la columna I, considerando

Code: Select all  Expand view  RUN

         oExcel:workBooks:open( oConfig:cPath +  'archivos\nomina.xls' )
         oHoja := oExcel:get( "activeSheet" )


considerando el dicho de un desesperado va a todas he intentado (entre muchas otras convinaciones)

Code: Select all  Expand view  RUN

            oHoja:columns( "2:8" ):select()
            oHoja:columns( "B:H" ):select()
            oHoja:columns( "B1:H1" ):select()
            oHoja:range( "2:8" ):select()
            oHoja:range( "B:H" ):select()
            oHoja:range( "B1:H1" ):select()
            oExcel:columns( "2:8" ):select()
            oExcel:columns( "B:H" ):select()
            oExcel:columns( "B1:H1" ):select()


¿Alguien que lo haya hecho puede ayudarme?

[pymsoft]

quique:


en VB serìa asi:

Code: Select all  Expand view  RUN

    Columns("B:H").Select
    Selection.Copy
    Range("I1").Select
    ActiveSheet.Paste



y en harbour serìa algo asi (no probado)

Code: Select all  Expand view  RUN

    oHoja:Columns("B:H").Select()
    oHoja:copy()
    oHoja:Range("I1").Select()
    oHoja:Paste()



espero te sirva

[quique]

Gracias pymsoft, pero

no tengo visual basic, pero con xharbour no funcionó

oHoja:Columns("B:H").Select()

por alguna razón me selecciona de al A a la U, tal vez sea porque la hoja tiene esas columnas en blanco (se ve la cuadricula de excel) y el resto en gris (no se ve la cuadricula de excel), pero supongo que no debería de afectar, porque seleccionando e insertando renglones no tengo problema

oHoja:copy()

Este me copia toda la hoja, supongo que debería usar oExcel:selection:copy(), pero si la primera no funciona ya esta parte sale mal

oHoja:Range("I1").Select()

marca error "Error description: Error 1478812:RANGE/0 S_OK: SELECT"

oHoja:Paste()

Ya no llega aquí

[quique]

No pude instertar columnas, terminé seleccionando todo el rango de celdas e insertarlo como rango de celdas

[pymsoft]

quique,


el VB es el de Excel (Alt-F11)


Pones grabar macro y te salva todo el codigo, el cual luego puedes verificar.
Lograste solucionar al final?


saludos

[quique]

pymsoft

Si trabajé con los macros de excel, visual basic solamente lo trabajé cuando lo estudié, asi que practicamente estoy en cero, solo nociones, pero supongo que el problema está en el archivo de excel, porque todo mundo me decía que el rango se selecciona con "B:H" tanto las macros, tu, y demas personas que trataron de ayudarme, pero nunca funcionó correctamente.

Si logré solucionar el problema pero no de la manera deseada, en lugar de copiar e insertar columnas copié e inserte rango de celdas, con rango de celdas o de renglones no tuve ningún problema. De hecho el problema solamente lo tuve con la selección para copiar, porque despues de eso ajusto los tamaños de las celdas y ahí si me acepta el rango "B:H".

[pymsoft]

quique,


bueno, lo importante es resolver el problema

me parece raro que no puedas seleccionar las columnas... estaran ocultas?, hay otro rango seleccionado? que version de excel usas?


saludos

[quique]

no están ocultas

no hay nada seleccionado

office 2007

[pymsoft]

quique,

yo uso el 2003, a mi me funciona.

sera un problema del 2007? o de la hoja?



saludos

[quique]

creo que el problema ha de ser de la hoja, porque como comentaba arriba, las columnas que selecciona al indicar el rango son todas las que están en la parti visible de la hoja (las que muestran la cuadricula de excel) para serte sincero, practicamente no conozco excel porque no lo uso mas que para vaciar la información del programa sobre la hoja, los formatos me los da el cliente.