Pasar datos de una matriz a una fila determinada

hola,

Tengo 50 filas con datos en las columnas a,b,c,d,e,f,g,h,i,j
Necesito que cuando ponga un numero del 1 al 50 en la casilla A1, los datos
de la fila correspondiente, me pasen a la fila 100

prueba a poner esto en el modulo de la hoja (boton secundario en
pestaña hoja => ver codigo => pegas esto (ojo no este usandose ya el
procedimiento 'Worksheet_Change' en ese modulo). luego vueve a la hoja
y mira a ver

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Or _
Not IsNumeric(Target) Then Exit Sub
If Target.Value > 0 And Target.Value < 51 Then _
Range("a100:j100").Value = Range(Cells(Target.Value, 1), _
Cells(Target.Value, 10)).Value
End Sub

espero ayude

un saludo
Ivan

hola otra vez,

o si quieres prueba esta otra

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a1]) Is Nothing Then _
If Target.Value > 0 And Target.Value < 51 Then _
Target.Offset(Target.Value - 1).EntireRow.Copy [a25]
End Sub

un saludo
Ivan

hola, 'anonimo' !

Tengo 50 filas con datos en las columnas a,b,c,d,e,f,g,h,i,j
Necesito que cuando ponga un numero del 1 al 50 en la casilla A1
los datos de la fila correspondiente, me pasen a la fila 100 ...

si suponemos que tus 50 filas son de la 21 a la 70 -???-
prueba con la funcion =indice(...) p.e. iniciando en la celda:

[A100] =indice(a$21:a$70,$a$1) <= ojo con el separador de argumentos -?-

y luego la copias/arrastras/... hasta la columna "I" ;)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Gracias, es lo que me hacia falta.

Saludos:
Pistolo