Arrastrar celdas sin cambiar el formato de las celdas de destino

[jontart]

Hola de nuevo amigos.

Que debo hacer para arrastrar varias celdas consecutivas (o copiarlas
y pegarlas) SIN variar el formato de las celdas de destino. No me vale
el "pegado especial...valores...".

Gracias.

[javier]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Explicate un poco más, he probado con copiar y pegar especial (sólo valores)
y funciona.
La prueba que he hecho ha sido la siguiente: celdas origen con distintos
formatos, las copio y pego en otras celdas que tienen formatos diferentes al
original y ha funcionado. (Excel 2000).

javier.

"jontart" <ja...@eresmas.net> escribió en el mensaje
news:e2d0df9b.03012...@posting.google.com...

-----BEGIN PGP SIGNATURE-----
Version: PGP 8.0

iQA/AwUBPjOuYH13wdPaKuuQEQKAYwCfWzqsNwPg/UVyOOzMc7ebYbRgfZ0AoO4b
ql+5Ky1bClU0/6vXegmwvwlc
=bJjl
-----END PGP SIGNATURE-----

[jontart]

Si Javier, lo que has hecho funciona a la perfección.

Pero lo que a mi me interesa es poder hacerlo sin necesidad de darle a
"copiado especial". Es decir, sólo con "Control+C" y "Control+V" o
simplemente arrastrando con el ratón, una vez seleccionadas las celdas
oportunas.

Supongo que necesitaré código de VBA.

Espero haberme explicado ahora mejor.

Gracias.

"javier" <jft...@terra.es> wrote in message news:<e75G9#RxCHA.2504@TK2MSFTNGP10>...

[javier]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Una solución elegante sería darle el formato a la celda, mediante una
macro,
cada vez que se cambia. Esto puedes hacerlo utilizando el evento
Worksheet_Change.

Sería algo parecido a esto:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address ="tu celda" Then
aqui tu codigo para darle el formato
End if

End Sub

iQA/AwUBPjbAE313wdPaKuuQEQJ6PACgkUoxGNMlvRWUFkcyyzOglDfwKbYAnjRP
KNky1KCB+ki+Vv9TCEr0gzrD
=dGLG
-----END PGP SIGNATURE-----