Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ciclo con Transpose

22/08/2009 - 02:21 por sebastico | Informe spam
Ayuda Hacer una pregunta
Hola

En Excel 2003, tengo una hoja con datos string con el siguiente Rango A2:02
hasta A632:O632. Necesito hacer un ciclo con el siguiente código:

Range("A2:O2").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Range("A3:O3").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A19").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Range("A4:O4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A37").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True

Y asi hasta A632:0632

Muchas gracias
email Siga el debateRespuesta 9 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
22/08/2009 - 09:29 | Informe spam
hola, !

En Excel 2003, tengo una hoja con datos string con el siguiente Rango A2:02 hasta A632:O632.
Necesito hacer un ciclo con el siguiente codigo:



1) que tan indispensable/... es "copiar"...
- con un "pastespecial" de => xlPasteAll (formulas, formatos, etc. ???)
- pudiera ser un "simple" pegado de valores (NO formulas, formatos, etc. ???)

2) el Sheets("sheet2") es una hoja diferente de donde estan los datos "originales" ?
(cual seria en este caso la hoja con los datos ???)

saludos,
hector.

__ el codigo expuesto __
Range("A2:O2").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A3:O3").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A19").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A4:O4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A37").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Y asi hasta A632:0632

Preguntas similares

 

Busqueda sugerida :