Copiar rango de hojas activas a hoja especifica

[edvilo]

Hola , en primer lugar gracias por toda la info que hay aqui, llevo tiempo registrado pero hasta ahora no me habia puesto con el tema.

Tengo un libro varias plantillas ocultas donde el usuario...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[edvilo]

Sub Pasardatosaverias()

'copiamos datos de todas las hojas activas a hoja creada nueva
Dim wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[edvilo]

Esta es la que no me funciona, se que esta mal, y se que la parte es esta:
'Indicar las hojas de origen y destino
Set wsOrigen = ActiveWorkbook.Sheets
Set wsDestino =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! edvilo. Intenta con:

Sub PasarDatosAverias()
With ActiveSheet
  On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Averias").Delete...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[edvilo]

Creo que con ese codigo y este que he encontrado, puedo conseguirlo, muchas gracias.

 

[Cacho R]

... muchas gracias.

Fue un gusto y hasta la próxima.