Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

uso del .value

30/11/2006 - 05:32 por isaac | Informe spam
Ayuda Hacer una pregunta
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 debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :