Continuando con el tema de las macros en Excel hoy les comparto estas 2; la primera de ellas nos servira para insertar mas de 1 columna y la segunda hara lo propio pero tratandose de filas.

De hecho en lo que respecta a insertar mas de una fila en el post Insertar varias filas en Excel ya habiamos visto una forma de hacerlo pero creo que esta macro les seran de mayor utilidad dado que el codigo es muy simple.

Como siempre, les recomiendo que estas macros las graben en su libro PERSONAL.xls ya que dada su funcionalidad y practicidad son utilizadas de forma frecuente.

‘ Inicia Macro para Insertar Filas ‘
Sub Insertar_filas()
'
' Insertar el numero de filas dado por el usuario
' Macro grabada el 25/08/2005 por Ruben GG
Dim a As Integer
a = 0
a = InputBox("Cuantas filas quieres insertar? ")
While a > 0
ActiveCell.Offset(1, 0).Range("a1").Select
Selection.EntireRow.Insert
a = a - 1
Wend
End Sub
‘ Termina Macro para Insertar Filas ‘

1. Esta macro inserta filas debajo de la celda seleccionada y la otra a partir de la celda seleccionada al ejecutar la macro y
2. Si despues de ejecutar la macro decides no insertar nada y haces click en cancelar te marcara un error porque falta un comando que no incluyo el programador dentro del codigo, sin embargo esto no afecta la funcionabilidad de la macro.

‘ Inicia Macro para Insertar Columnas ‘

Sub Insertar_columnas()
'
' Insertar el numero de columnas dado por el usuario
' Macro grabada el 25/08/2005 por Ruben GG
Dim a As Integer
a = 0
a = InputBox("Cuantas columnas quieres insertar? ")
While a > 0
Selection.Insert Shift:=xlToRight
a = a - 1
Wend

End Sub

‘ Termina Macro para Insertar Filas ‘

Como les comente, con estas macros se pueden insertar mas de una fila o columna; mas adelante veremos otra macro que ademas de insertar filas y/o columnas copia la formula de las mismas en caso de que existan.

Dudas o comentarios enviarlos a webmaster@fiscalito.com