Macros

En esta ocasión vamos a ver dos macros que nos servirán para introducir de forma automática un número que determinemos de filas o columnas. Por ello, tanto en un caso como en el otro, cuando ejecutemos la macro nos abrirá un cuadro de diálogo en el que nos pide que le indiquemos el número de filas o columnas a insertar.

Lo mejor de esta macro es que es muy fácil insertar un número elevado de filas o columnas.

Macro para insertar varias filas o columnas en Excel

Macro para insertar varias filas

Esta macro, cuando la ejecutemos nos pedirá el número de filas que queremos añadir. Nos lo pide en un Inputbox. Una vez que lo indicamos y le damos a Aceptar nos insertará las filas desde la misma celda que se encuentra activa.

El código de la macro es el siguiente:

Sub InsertarVariasFilas()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireRow.Select
On Error GoTo Last
i = InputBox(«Indica el número de filas a insertar», «Insertar filas»)
For j = 1 To i
Selection.Insert Shift:=xlToDown, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub

Macro para insertar varias columnas

Esta macro, es similar a la anterior pero afecta a las columnas. Nos pedirá el número de columnas que queremos añadir en un Inputbox. Una vez que lo indicamos y le damos a Aceptar nos insertará las columnas desde la misma celda que se encuentra activa.

El código de la macro es el siguiente:

Sub InsertarVariasColumnas()
Dim i As Integer
Dim j As Integer
ActiveCell.EntireColumn.Select
On Error GoTo Last
i = InputBox(«Indica el número de columnas a insertar», «Insertar columnas»)
For j = 1 To i
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove
Next j
Last: Exit Sub
End Sub

En esta ocasión vamos a ver una macro sencillita que nos puede permitir ahorrar mucho tiempo mostrando filas y columnas ocultas en numerosas hojas de Excel diferentes.

En ocasiones tenemos ficheros de Excel en los que queremos tener todo su contenido visible. No queremos que existan filas o columnas ocultas.

Si bien hay diferentes formas con las que podríamos realizar esto, esta sencilla macro nos realiza el trabajo de una forma muy rápida y sencilla.

Macro para mostrar todas las filas y columnas de todas las hojas

Crear la macro

Primero debemos abrir el editor de Visual Basic (VBE) utilizando la combinación de teclas Alt + F11. Hacemos clic sobre el icono de nuestro fichero (ThisWorkbook) con el botón derecho (Insertar – Módulo) o en el Menú (Insertar – Módulo). Se nos abrirá en la parte derecha el editor VBA, en el cual debemos escribir o copiar el código de la macro.

El código de la macro es el siguiente:

Sub MostrarOcultas()
‘Muestra todas las filas y columnas de todas las hojas
Dim Hoja As Worksheet
For Each Hoja In Application.Worksheets
Hoja.Select
Cells.Select
Selection.EntireRow.Hidden = False
Selection.EntireColumn.Hidden = False
Next
End Sub

Finalmente, guardamos la macro como Libro de Excel habilitado para macros (*.xlsm)

Ejecutar la macro

Deberemos abrir el cuadro de diálogo de Macros. Bien haciendo clic sobre el icono de “ver macros” de la ficha Desarrollador o bien utilizando la combinación de teclas Alt + F8. Del cuadro de diálogo de la macro deberemos seleccionar la que acabamos de crear y pulsar sobre el botón Ejecutar.

Veremos que una vez hayamos hecho clic en «Ejecutar» todas las hojas de ese fichero tienen todas sus filas y columnas visibles (no ocultas).