Actividad pública reciente
Ha valorado "Excelente" la respuesta
Pasar xlsx a xls automáticamente en cantidad
Quedaría así: Sub Splitbook() 'Updateby20140612 Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each xWs In ThisWorkbook.Sheets xWs.Copy...
Ha empezado a seguir a 
Dante Amor
Dante Amor
Ha valorado "Excelente" la respuesta
Dividir un archivo de excel 2010
¿Cómo se llaman las hojas que vas a dividir? ¿En qué columna está la información que se va a dividir? ¿Qué nombre van a tener las nuevas hojas? Suponiendo que son las hojas "Hoja1", "Hoja2", "Hoja3" Y que la columna "A" es la que tiene la información...