que tal como estan quiero cargar una consulta y acomodarla de la siguiente manera

Do Until rs.EOF
 Hoja2.Range("C") = rs("idappact").Value
 Hoja2.Range("D") = rs("codappact").Value
 Hoja2.Range("E") = rs("desapeta").Value
 Hoja2.Range("F") = rs("desapsub").Value
 Hoja2.Range("G") = rs("nomapact").Value
 Hoja2.Range("H") = rs("resappact").Value
 Hoja2.Range("I") = rs("fecappini").Value
 Hoja2.Range("J") = rs("fecapprea").Value
 Hoja2.Range("K") = rs("idappeta").Value
 Hoja2.Range("L") = rs("idappseta").Value
 rs.MoveNext
Loop[/PHP]

pero me marca " error en el metodo range de objeto _worksheet"

que podria estar haciendo mal....

Saludos y gracias!!

Hola:

Le falta especificar la fila a la que van destinados los datos.

Esta podría ser una solución:

Do Until rs.EOF


 fila = fila + 1

 Hoja2.Range("C" & fila) = rs("idappact").Value

 Hoja2.Range("D" & fila) = rs("codappact").Value

 Hoja2.Range("E" & fila) = rs("desapeta").Value

 Hoja2.Range("F" & fila) = rs("desapsub").Value

 Hoja2.Range("G" & fila) = rs("nomapact").Value

 Hoja2.Range("H" & fila) = rs("resappact").Value

 Hoja2.Range("I" & fila) = rs("fecappini").Value

 Hoja2.Range("J" & fila) = rs("fecapprea").Value

 Hoja2.Range("K" & fila) = rs("idappeta").Value

 Hoja2.Range("L" & fila) = rs("idappseta").Value

 rs.MoveNext


Loop

[/CODE]

Otra opción es cargar los datos en la hoja con el metodo [i][b].[/b][/i][i][b]CopyFromRecordset[/b][/i] del objeto [i][b]Range [/b][/i]de una sola vez:

[CODE]Hoja2.Range("C1").CopyFromRecordset rs[/CODE]

Saludos

saludos y gracias...... me funciono perfectamente