uso del .value

En los codigos de abajo el primero me copia un bloque comleto de filas
y columnas, para insertarlo (pegarlo) en otra hoja, pero me pega los
valores, como puedo modificarla para que me pegue las formulas copiadas
y no los valores absolutos que tienen las filas, gracias.


With Workbooks("corregir.xls").Worksheets("bd_plop").Range("Bl_plop")
Filas = .Rows.Count
Cols = .Columns.Count
Datos = .Value
End With



With ThisWorkbook.Worksheets("bd_plop").Range("a3")
.Resize(Filas).EntireRow.insert
.Offset(-Filas).Resize(Filas, Cols).Value = Datos
End With


Isaac

Utiliza la propiedad .FormulaR1C1Local del objeto range

de este modo no solo te pone la formula escrita en la celda, sino que la
pone en el idioma que este configurado en la [valga la redundancia]
configuracion regional.


espero que te sea de utilidad.

zz [MX]
cuasi-musico,semi-poeta y loco


"isaac" wrote in message
news:
> En los codigos de abajo el primero me copia un bloque comleto de filas
> y columnas, para insertarlo (pegarlo) en otra hoja, pero me pega los
> valores, como puedo modificarla para que me pegue las formulas copiadas
> y no los valores absolutos que tienen las filas, gracias.
>
>
> With Workbooks("corregir.xls").Worksheets("bd_plop").Range("Bl_plop")
> Filas = .Rows.Count
> Cols = .Columns.Count
> Datos = .Value
> End With
>
>
>
> With ThisWorkbook.Worksheets("bd_plop").Range("a3")
> .Resize(Filas).EntireRow.insert
> .Offset(-Filas).Resize(Filas, Cols).Value = Datos
> End With
>
>
> Isaac
>