Insertar varias filas en Excel

MS ExcelPara insertar varias filas en una hoja de Excel existen basicamente 2 formas; ya sea mediante los menus de Excel o bien a traves de una macro con lo cual ademas lograremos que esta tarea quede automatizada.

Si lo hacemos por medio de los comandos de MS Excel tenemos que seleccionar un rango que comprenda varias filas, segun el numero de filas que queramos insertar, y despues usar el comando insertar.

En nuestro caso vamos a insertar 18 filas y esto se veria de la siguiente manera:

Insertar Filas en Excel

Esta solucion es sencilla y funciona cuando se trata de pocas filas a insertar; sin embargo se complica cuando tenemos que insertar un gran numero de celdas; imaginate tener que seleccionar 500 celdas para insertarlas.

Aqui es donde entran las macros.

El siguiente comando nos permite escoger el numero de celdas que deseamos insertar.

' Inicia Macro para Insertar Filas '

Sub Insertar_Varias_Filas()
' Insertar multiples filas a la vez. Las filas son insertadas despues de
' la celda/fila seleccionada

      Dim lNewRows                           As Long
      Dim lCurrentRow                        As Long

      ' detectar si la seleccion actual es una fila o una celda
      If UCase(TypeName(Selection)) <> "RANGE" Then
            MsgBox "Por favor selecciona una fila inicial para insert las demas filas.", _
                   vbInformation
            Exit Sub
      End If

      ' Permitir al usuario escoger el numero de filas a insertar:
      lNewRows = Application.InputBox("Numero de filas a insertar", _
                                      "Insertar varias filas", 1, , , , , 1)

      ' Cancelar si el monto es 0 o si el usuario decide cancelar:
      If lNewRows <= 0 Then Exit Sub

      ' Insertar las filas:
      Rows(Selection.Cells(1).Row & ":" & _
           Selection.Cells(1).Row + lNewRows - 1).Insert shift:=xlDown

End Sub

' Termina Macro para Insertar Filas '

Les recomiendo que esta como todas las macros que usen de manera frecuente las guarden dentro del libro PERSONAL.xls (o PERSONAL.xlsb si utilizan MS Excel 2007) para que puedan tenerlas disponibles siempre.

En breve estare publicando un post acerca del uso del libro PERSONAL de MSExcel para poder aclarar sus dudas.

Related Posts Plugin for WordPress, Blogger...

4 Responses to “Insertar varias filas en Excel”
  1. Marisn says:
  2. corilolo says:
  3. Pepe Soto says:
  4. Pepe Soto says:
Optimization WordPress Plugins & Solutions by W3 EDGE