Copiar hojas del libro activo a otro evitando 3
Hola tengo la siguiente macro y trabaja bien se podría decir solo que no puedo hacer que copie en otro libro las hojas que están seleccionadas, que me falta hacer para que logre hacer esto.
Sub SelectAllSheets()
'selecciona todas las hojas del libro activo excepto 3
' Macro recorded 4/16/2008 by CDuarte
Dim ws As Worksheet
Dim fe As Workbook
Application.ScreenUpdating = False
'seleccionar primero la hoja desde donde se quiere incluir
Sheets(4).Select
For Each ws In ActiveWorkbook.Sheets
If ws.Index <> 1 And ws.Index <> 2 And ws.Index <> 3 Then
ws.Select False
End If
Next ws
Application.ScreenUpdating = True
End Sub
Sub SelectAllSheets()
'selecciona todas las hojas del libro activo excepto 3
' Macro recorded 4/16/2008 by CDuarte
Dim ws As Worksheet
Dim fe As Workbook
Application.ScreenUpdating = False
'seleccionar primero la hoja desde donde se quiere incluir
Sheets(4).Select
For Each ws In ActiveWorkbook.Sheets
If ws.Index <> 1 And ws.Index <> 2 And ws.Index <> 3 Then
ws.Select False
End If
Next ws
Application.ScreenUpdating = True
End Sub
1 respuesta
Respuesta de tavopz
1