Foro de Ayuda Excel

'Fecha: 26/06/08.
'Funcion: Insertar un número dado de filas o columnas.
Sub Insertar()
Dim num, i As Integer

'Filas:
If Selection.Count = 256 Then 'Verificar rango.
    num = InputBox("Insertar: ", "SkyNet - (Filas/Columnas)", 10)
    On Error GoTo Salir:
    If num = 0 Then Exit Sub
    
    Application.ScreenUpdating = False
    For i = 1 To num
        Selection.Insert Shift:=xlDown 'Insercion de filas.
    Next i
    Application.ScreenUpdating = True
    Exit Sub
End If

'Columnas:
If Selection.Count = 65536 Then 'Verificar rango.
    num = InputBox("Insertar: ", "SkyNet-(Filas/Columnas)", 10)
    On Error GoTo Salir:
    If num = 0 Then Exit Sub
    
    For i = 1 To num
        Selection.Insert Shift:=xlRight 'Insercion de columnas.
    Next i
    Exit Sub
End If
Salir:
End Sub