Si usa bastante Excel, sabrá que puede obtener algunos libros de trabajo bastante grandes de sus colegas. A menudo es conveniente desglosar el libro de trabajo, de modo que cada hoja de trabajo esté en su propio libro de trabajo. Si bien esto se puede hacer manualmente, el proceso se vuelve tedioso rápidamente si tiene mucho que hacer.

Este tipo de trabajo repetitivo es natural para una macro. La siguiente macro, denominada BreakItUp, crea archivos de libros de trabajo individuales basados ​​en las hojas de trabajo del libro actual. Por lo tanto, si el libro de trabajo actual contiene 25 hojas de trabajo, la ejecución de esta macro da como resultado la creación de 25 archivos de libro de Excel individuales. Cada libro tiene una sola hoja de trabajo y el nombre del libro es el mismo que el de la hoja de trabajo.

Sub BreakItUp()

Dim sht As Worksheet     Dim NFName As String     Const WBPath = "C:\"



For Each sht In ActiveWorkbook.Worksheets         sht.Copy         NFName = WBPath & sht.Name & ".xls"

ActiveWorkbook.SaveAs FileName:=NFName, _             FileFormat:=xlNormal, CreateBackup:=False         ActiveWindow.Close     Next End Sub

La macro BreakItUp almacena los nuevos libros de trabajo en el directorio raíz de la unidad C :. Si desea que sus libros de trabajo se guarden en un lugar diferente, simplemente puede cambiar la línea en la que se crea la constante WBPath.

También debe saber que es relativamente fácil bloquear esta macro. Por ejemplo, si utiliza un carácter en el nombre de una hoja de trabajo que no es «legal» para un nombre de archivo, la macro se detendrá de forma brusca cuando intente crear el archivo. Por supuesto, puede realizar fácilmente las modificaciones a la macro para buscar y reemplazar tales caracteres ilegales.

Otro error potencial de la macro es que dejará de ejecutarse si ya existe un archivo que tiene el mismo nombre que una hoja de trabajo. Por ejemplo, supongamos que tiene una hoja de trabajo llamada MySheet1. Si ya hay un archivo en el disco llamado MySheet1.xls, la macro se detendrá cuando intente sobrescribir el archivo. Puede evitar esto asegurándose de que no haya conflictos de nombre de archivo en el directorio donde se guardan los libros.

Por último, si su libro de trabajo original tiene fórmulas que hacen referencia a otras hojas de trabajo (además de aquella en la que aparece la fórmula), esas fórmulas no funcionarán en los libros de trabajo divididos. Por esta razón, querrá verificar cuidadosamente lo que se crea para asegurarse de que los libros de trabajo se ajusten a sus necesidades.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12273) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Creating_Individual_Workbooks [Creación de libros de trabajo individuales].