Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Pegado especial datos hoja

29/01/2007 - 17:07 por Mafoso | Informe spam
Ayuda Hacer una pregunta
Hola Sres.

Quiero copiar los valores una hoja con celdas combinadas,formulas, controles
(Combobox y Botones de accion incrustados) y codigo "en la hoja" a otra hoja
del mismo libro (que es una copia de la anterior pero sin ninguna de las
lindezas que he citado).
En un archivo de pruebas (menos complejo) he creado (bueno... copiado del
grupo) la siguiente macro y Funciona:
Sub Macro2()
Sheets("Pedidos").Select
Application.ScreenUpdating = False
Cells.Copy
Sheets("Hoja1").Select
Cells.PasteSpecial Paste:=xlValues
Application.ScreenUpdating = True
End Sub

Si copio la macro al Libro en question la macro no funciona
Alguna idea del por que?. Llevo 3 dias con ello y no encuentro la solución ...


Gracias.
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
30/01/2007 - 08:06 | Informe spam
hola, ?

1) podrias ser mas 'explicito' en cuanto a que [primero] si funciona... y luego ya no ? [cuando la pasas al libro 'en cuestion'] -?-
2) si la 'otra' hoja es ya una COPIA de la que contiene las 'monerias'... lleva incluidos los objetos incrustados y demas 'lindezas' ?
3) en que 'tipo/clase/...' de modulo de codigo copias la/s macro/s ? [modulo estandar/general/... o modulos 'de clase' ?]
4) los nombres de las hojas si coinciden donde si funciona y donde falla ?

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

__ la consulta original __
Quiero copiar los valores una hoja con celdas combinadas, formulas, controles (Combobox y Botones de accion incrustados)
y codigo "en la hoja" a otra hoja del mismo libro (que es una copia de la anterior pero sin ninguna de las lindezas que he citado).
En un archivo de pruebas (menos complejo) he creado (bueno... copiado del grupo) la siguiente macro y Funciona:
Sub Macro2()
Sheets("Pedidos").Select
Application.ScreenUpdating = False
Cells.Copy
Sheets("Hoja1").Select
Cells.PasteSpecial Paste:=xlValues
Application.ScreenUpdating = True
End Sub
Si copio la macro al Libro en question la macro no funciona
Alguna idea del por que?. Llevo 3 dias con ello y no encuentro la solucion ...

Preguntas similares

 

Busqueda sugerida :