Concatenar Columna con Nro de Fila

04/11/2003 - 14:07 por Delio Aristizabal | Informe spam
Saludos:
Tengo que pasar a una nueva hoja unos datos(Cantidad
XP).
Cómo puedo hacer para pasar los datos que hay en una
columna "A" con distancia de 12 filas entre los datos que
necesito a la otra hoja

Dim I As Integer
Dim Paso12 As Integer
Paso12 = 12
X = 50
For I = 1 to X
Sheets("Ordenes").Select
Range("A12").Select ' aca A12, luego A24, Luego A36
'osea "A" concatenada al valor de Paso12
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select ' aca A1, luego A2, Luego A3
'osea "A" concatenada al valor que tiene I
ActiveSheet.Paste
Paso12 = Paso12 + 12
Next


Gracias por su ayuda.

Delio
 

Leer las respuestas

#1 Fernando Arroyo
04/11/2003 - 16:09 | Informe spam
Intenta:


Dim I As Integer, X As Integer
X = 50

For I = 1 To X
Sheets("Sheet1").Cells(I, 1) = Sheets("Ordenes").Cells(I * 12, 1)
Next I


Un saludo.


Fernando Arroyo
MS MVP - Excel

"Delio Aristizabal" escribió en el mensaje news:0dc101c3a2d4$9be3cd30$
Saludos:
Tengo que pasar a una nueva hoja unos datos(Cantidad
XP).
Cómo puedo hacer para pasar los datos que hay en una
columna "A" con distancia de 12 filas entre los datos que
necesito a la otra hoja

Dim I As Integer
Dim Paso12 As Integer
Paso12 = 12
X = 50
For I = 1 to X
Sheets("Ordenes").Select
Range("A12").Select ' aca A12, luego A24, Luego A36
'osea "A" concatenada al valor de Paso12
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select ' aca A1, luego A2, Luego A3
'osea "A" concatenada al valor que tiene I
ActiveSheet.Paste
Paso12 = Paso12 + 12
Next


Gracias por su ayuda.

Delio

Preguntas similares