Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

PasteSpecial

24/03/2007 - 02:03 por Orfao | Informe spam
Ayuda Hacer una pregunta
Hola !
en cualquier parte de mi codigo tengo p.ej:
' COPIO LOS VALORES
Range("C1:C3")=Range("A1:A3")

'COPIO LOS FORMATOS
Range("A1:A3").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
...
la pregunta es como sustituyo la copia de formatos por codigo similar a la
copia de valores para evitar el copy...Paste y asi no tener que usar el
Screnupdating
algo como p.eJ...

Range("C1:C3").Formats=Range("A1:A3").Formats
GRACIAS...
Me alimento del conocimiento de todos
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
24/03/2007 - 04:05 | Informe spam
y por que no hacer:

Sub test()
[A1:A3].Copy [C1:C3]
[C1:C3].Value = [A1:A3].Value
End Sub


Saludos,
KL


"Orfao" wrote in message news:
Hola !
en cualquier parte de mi codigo tengo p.ej:
' COPIO LOS VALORES
Range("C1:C3")=Range("A1:A3")

'COPIO LOS FORMATOS
Range("A1:A3").Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
...
la pregunta es como sustituyo la copia de formatos por codigo similar a la
copia de valores para evitar el copy...Paste y asi no tener que usar el
Screnupdating
algo como p.eJ...

Range("C1:C3").Formats=Range("A1:A3").Formats
GRACIAS...
Me alimento del conocimiento de todos

Preguntas similares

 

Busqueda sugerida :