Concatenar Columna con Nro de Fila

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

For I = 2 To X
Sheets("Ordenes").Select
Range("A" & Paso11).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("A" & I).Select
ActiveSheet.Paste
Paso12 = Paso12 + 12
Next

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

.