Pegado Especial - Paste Values

19/11/2008 - 17:24 por JC | Informe spam
Hola a Tod@s:

De nuevo al ataque, a daros algo en que pensar, ya que como me lo habeis
resuelto siempre todo... Pues, me obligáis a continuar preguntadoos... :)

En esta ocasión y tras haceros caso y empezar a utilizar este tipo de
sentencias:

Worksheets("BOM_DESMAN").Range("D4:H19").Copy _
Destination:=Worksheets("FICHA").Range("D4")

Se me plantea el problema de que el rango: D4:H19, de la hoja BOM_DESMAN es
un rango con formulación.
Y cuando llega a pegar en el rango D4, de la hoja FICHA, me pega las
fórmulas. Cuestión que obviamente me crea problemas, porque el resultado es
erroneo.

He intentado incrustar de varias maneras, comandos del tipo "PasteSpecial
Paste:=xlPasteValues", pero no he encontrado la sintaxis adecuada y me da
nuevamente error.
Me podríais, por favor, ayudar de nuevo y decirme, si hay alguna forma de
que, sin variar el tipo de sentencia, poder hacer de que cuando llegue a
pegar a su destino, pegue tan solo valores, respetando el formato original.

Como siempre mil sinceras gracias por vuestro interés y apoyo.

Un atento saludo.

JC
 

Leer las respuestas

#1 juanma.marti
19/11/2008 - 17:46 | Informe spam
On 19 nov, 14:24, JC wrote:
Hola a :

De nuevo al ataque, a daros algo en que pensar, ya que como me lo habeis
resuelto siempre todo... Pues, me obligáis a continuar preguntadoos... :)

En esta ocasión y tras haceros caso y empezar a utilizar este tipo de
sentencias:

    Worksheets("BOM_DESMAN").Range("D4:H19").Copy _
    Destination:=Worksheets("FICHA").Range("D4")

Se me plantea el problema de que el rango: D4:H19, de la hoja BOM_DESMAN es
un rango con formulación.
Y cuando llega a pegar en el rango D4, de la hoja FICHA, me pega las
fórmulas. Cuestión que obviamente me crea problemas, porque el resultado es
erroneo.

He intentado incrustar de varias maneras, comandos del tipo "PasteSpecial
Paste:=xlPasteValues", pero no he encontrado la sintaxis adecuada y me da
nuevamente error.
Me podríais, por favor, ayudar de nuevo y decirme, si hay alguna forma de
que, sin variar el tipo de sentencia, poder hacer de que cuando llegue a
pegar a su destino, pegue tan solo valores, respetando el formato original.

Como siempre mil sinceras gracias por vuestro interés y apoyo.

Un atento saludo.

JC



Yo lo haria de otra forma:

Worksheets("BOM_DESMAN").Activate
Range("D4:H19").Copy
Worksheets("FICHA").Activate
Range("D4").PasteSpecial Paste:=xlPasteValues

Siempre lo hice asi y me funcionó... fijate capaz te sirve.

Podes probar tambien con:

Worksheets("FICHA").Activate
Range("D4:H19").PasteSpecial Paste:=xlPasteValues


Saludos

Preguntas similares