uso del .value

30/11/2006 - 05:32 por isaac | Informe spam
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

Preguntas similare

Leer las respuestas

#1 zz
30/11/2006 - 16:02 | Informe spam
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

Respuesta Responder a este mensaje
#2 isaac
02/12/2006 - 18:44 | Informe spam
gracias, me funciono muy bien.

Saludos Isaac



zz ha escrito:

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
>
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida