Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Copiar hoja solo con Valores VBA

17/07/2008 - 21:36 por Carlos | Informe spam
Ayuda Hacer una pregunta
Tengo una macro que me copia varias hojas a un libro nuevo pero solo que me
copie una sola hoja a un libro y que sea solo valores.

Este es el codigo

Sub Macro1()

'selecciona una hoja

Sheets("input").Select

Sheets(Array("hoja 2")).Copy
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook

'se libera el objeto
Set wb = Nothing

'pegado solo valores

For Each Hoja In Sheets

Hoja.UsedRange.Value = Hoja.UsedRange.Value
Next


End Sub

Donde 'For Each Hoja In Sheets

'Hoja.UsedRange.Value = Hoja.UsedRange.Value
'Next
me copia solo valores en las hojas nuevas. Solo tengo una hoja copiada y
quiere que solo tenga valores!

Como puedo hacer para que en vez de ser For Each Hoja In Sheets solo pegue
los valores a la unica hoja copiada.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
18/07/2008 - 01:13 | Informe spam
hola, Carlos !

el dia 2 de julio preguntaste algo parecido con asunto de: "mover copiar hojas" y esta fue la propuesta:

necesitas convertir a valores el rango usado de cada hoja una vez copiadas al nuevo libro (p.e.)

Worksheets(Array("hoja1", "hoja3", "hoja4")).Copy
For Each Hoja In Worksheets
Hoja.UsedRange.Value = Hoja.UsedRange.Value
Next

si lo que requieres (ahora) es copiar SOLO una hoja y convertir a valores (segun el ejemplo que expones)...

Worksheets("hoja 2").Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

saludos,
hector.

__ OP __
Tengo una macro que me copia varias hojas a un libro nuevo pero solo que me copie una sola hoja a un libro y que sea solo valores.
Este es el codigo
Sub Macro1()
'selecciona una hoja
Sheets("input").Select
Sheets(Array("hoja 2")).Copy
'creamos un nuevo objeto Libro
Set wb = ActiveWorkbook
'se libera el objeto
Set wb = Nothing
'pegado solo valores
For Each Hoja In Sheets
Hoja.UsedRange.Value = Hoja.UsedRange.Value
Next
End Sub

Donde 'For Each Hoja In Sheets
'Hoja.UsedRange.Value = Hoja.UsedRange.Value
'Next
me copia solo valores en las hojas nuevas. Solo tengo una hoja copiada y quiere que solo tenga valores!

Como puedo hacer para que en vez de ser For Each Hoja In Sheets solo pegue los valores a la unica hoja copiada.

Preguntas similares

 

Busqueda sugerida :