Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Pegado de Valores

26/01/2005 - 19:21 por Angelo | Informe spam
Ayuda Hacer una pregunta
Buenas como estan?

Tengo una preguntita de algo que necesito hacer, por ej. tengo seleccionado
lo siguiente el rango b1:b5 y el b9:b15 (son muchos mas rangos) quisiera
saber puedo hacer para copiar y solamente pegar valores en rangos multiples,
cada vez que lo hago me manda el error que no puedo ejecutar este comando en
selecciones multiples, pero me iamgino que esto se podría hacer con algún
codígo, lo que pasa es que extraigo datos de otros archivos con formulas,
pero despues quiero que estos datos queden solo como valores, y tengo que
seleccionar rango por rango y copiar y pegar valores, quisera que pudiera
selleccionar a la vez varios rangos y copiarlos y pegarlos como valores pero
todos a la vez, y no puedo :(, espero que me puedan ayudar,

Saludos,
Angelo...!
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Fernando Arroyo
26/01/2005 - 19:57 | Informe spam
"Angelo" escribió en el mensaje news:
Buenas como estan?

Tengo una preguntita de algo que necesito hacer, por ej. tengo seleccionado
lo siguiente el rango b1:b5 y el b9:b15 (son muchos mas rangos) quisiera
saber puedo hacer para copiar y solamente pegar valores en rangos multiples,
cada vez que lo hago me manda el error que no puedo ejecutar este comando en
selecciones multiples, pero me iamgino que esto se podría hacer con algún
codígo, lo que pasa es que extraigo datos de otros archivos con formulas,
pero despues quiero que estos datos queden solo como valores, y tengo que
seleccionar rango por rango y copiar y pegar valores, quisera que pudiera
selleccionar a la vez varios rangos y copiarlos y pegarlos como valores pero
todos a la vez, y no puedo :(, espero que me puedan ayudar,

Saludos,
Angelo...!




Prueba con el siguiente código, pero hazlo con una copia de los datos, no vaya a ser que no haga lo que necesitas y "la jeringuemos" :-)


Sub prueba()
Dim rngA As Range
Dim strDirec As String, mtr As Variant
Dim n As Integer

With Selection
For Each rngA In .Areas
strDirec = strDirec & rngA.Address & ","
Next rngA
End With

mtr = Split(Left(strDirec, Len(strDirec) - 1), ",")

For n = LBound(mtr) To UBound(mtr)
Selection.Parent.Range(mtr(n)).Copy
Selection.Parent.Range(mtr(n)).PasteSpecial Paste:=xlPasteValues
Next n

Application.CutCopyMode = False

Set rngA = Nothing
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

Preguntas similares

 

Busqueda sugerida :