Archive

Posts Tagged ‘Add-in’

EXCELeINFO add-in 2.3.1 – replanteando el filtro rápido

March 4, 2012 11 comments

Les dejo una modificación que realicé al apartado de Datos > Filtro rápido… la cual comprende:

  • Identifica si lo ingresado es texto o númerico (en el caso de los números, filtra sólos los completos).
  • Detecta el rango en uso y permite que podamos elegir a qué columna queremos aplicarle el filtro.

Imagen

image

'--------------------------------------------------------------------------------------
' Module    : Módulo1
' Author    : Sergio A Campos H
' Date      : 03/04/2011
' Modifies    : 03/03/2012
' Purpose   : Filtro rápido
'---------------------------------------------------------------------------------------

Sub EXCELeINFOFiltro()
    On Error Resume Next
    If frmFiltroRapido.txtCriterio.Value <> "" Then
        If frmFiltroRapido.chkInicio.Value = True Then
            Criterio = frmFiltroRapido.txtCriterio.Value & "*"
        Else
            If IsNumeric(frmFiltroRapido.txtCriterio.Value) Then
                Criterio = frmFiltroRapido.txtCriterio.Value
            Else
                Criterio = "*" & frmFiltroRapido.txtCriterio.Value & "*"
            End If
        End If
        ColFiltrar = frmFiltroRapido.ComboBox1.ListIndex + 1
        ActiveCell.CurrentRegion.AutoFilter Field:=ColFiltrar, Criteria1:=Criterio, Operator:=xlAnd
    Else
        Criterio = ""
        Selection.AutoFilter
    End If
End Sub

:: Descarga el ejemplo

:: Descargar EXCELeINFO add-in 2.3.1

Video tutorial # 2 – Instalar addins en Excel

February 5, 2012 Leave a comment

Para todos aquellos que le guste (como a mi) bajar addins para nuestro Excel, les muestro la manera de hacerlo y comenzar a utilizarlos.

Video tutorial # 2 – Instalar addins en Excel

Referencia

Crear menús en Excel 2003 y Ribbon en Excel 2007 y 2010

EXCELeINFO add-in 2.3.0 – nuevo apartado Opciones

September 3, 2011 Leave a comment

Presentando la versión 2.3.0 del addin-in donde incluyo un nuevo apartado de opciones, comenzando con dos macros que realizan lo siguiente:

  1. Restablecer configuraciones: permite restablecer las opciones de cálculo (Calculation), barra de estado (StatusBar), alertas (DisplayAlerts) y actualización de pantalla (ScreenUpdating). Ya que en muchas ocasiones cuando hacemos pruebas con macros o al correr alguna, éstas fallan, lo mejor es volver al estado default de estos métodos del objeto Application.
  2. Recargar add-ins y restaurar menús: permite recargar todos los add-ins instalados en nuestro Excel, así como reconstruir los menús de Excel y barras de herramientas).

Estas opciones, he de confiar en que la mayoría de los asiduos a Excel sabrán sacarle provecho.

Imagen del menú

image

:: Descargar EXCELeINFO add-in 2.3.0

EXCELeINFO add-in 2.2.8 – proteger varias hojas a la vez con contraseña

Tenía pendiente la herramienta para protegar varias hojas a la vez. Ahora la presento con la misma modalidad que las otras herramientas, con un ListBox donde aparecen todas las hojas del libro, además de indicarnos si la hoja ya está protegida o se encuentra visible.

Cómo funciona ??

Dentro del mismo formulario están las opciones para proteger y desproteger. Al momento de iniciar el formulario, queda activada la pestaña de protección con las opciones adicionales dependiendo del grado de protección. Cuando se elige el apartado de desprotección, se ocultan las opciones, ya que no son necesarias; con esto modificamos las dimensiones del Form en tiempo de ejecución.

Nota: la actual herramienta reemplaza las dos macros que hacían lo mismo, pero no tenían opción de asignarles contraseña.

Imágenes de ejemplo

image

Protección

image

Desprotección

:: Descargar EXCELeINFO add-in 2.2.8

Crear índice con links a las demás hojas en Excel

June 6, 2011 6 comments

En lo personal utilizo archivos con muchas hojas, lo cual es imprescindible dejar de hacerlo. Motivo por el cual elaboré una macro que me permite crear un índice de todas las hojas de mi archivo, pero con links que me sitúan en la hoja elegida.

La función se incluyó en mi addin, en la sección Hojas.

:: Descargar EXCELeINFO add-in 2.2.7

Categories: vba Tags: , ,

Cerrar varios archivos a la vez en Excel

Se añade una nueva funcionalidad al Add-in, llamada Cerrar varios archivos a la vez, que nos permite elegir los archivos a cerrar.

Comportamiento:

Se muestra un formulario con un ListBox donde se enlistan todos los archivos abiertos, así como la propiedad Visible de cada uno. Cuenta con dos CheckBoxes, uno que nos permite elegir todos los elementos de la lista, y otro que da la opción de elegir si queremos que Excel nos advierta sobre los archivos que no han sido guardados.

Formulario en acciòn:

image

También comparto el código vba del formulario para que nos demos cuenta del uso y manipulación de LisBoxes, ventanas y archivos de Excel:

'---------------------------------------------------------------------------------------
' Module    : frmCerrarMultiplesArchivos
' Author    : Sergio A Campos H
' Date      : 21/05/2011
' Purpose   : Cerrar varios archivos a la vez
'---------------------------------------------------------------------------------------
'
Private Sub CheckBox2_Click()
'Elegir todas las opciones de todos los archivos
On Error Resume Next
If CheckBox2.Value = True Then
    For i = 0 To ListBox2.ListCount
        ListBox2.Selected(i) = True
    Next i
Else
    For i = 0 To ListBox2.ListCount
        ListBox2.Selected(i) = False
    Next i
End If
End Sub
'
Private Sub CommandButton1_Click()
'Cerrar formulario
Unload Me
End Sub
'
Private Sub CommandButton8_Click()
'Llama al prodedimiento para cerrar las ventanas seleccionadas
Call CerrarLibros
End Sub
'
Private Sub UserForm_Initialize()
Call LlenarListasTodosLibros
End Sub
'Procedimiento para cerrar archivos
Sub CerrarLibros()
Cuenta = ListBox2.ListCount
numero = 0
For j = 0 To Cuenta - 1
If ListBox2.Selected(j) = True Then
numero = numero + 1
End If
Next j
If numero <> 0 Then
    Resp = MsgBox("Desea cerrar los archivos seleccionados?", vbYesNo + vbQuestion, "EXCELeINFO")
    If Resp = vbNo Then Exit Sub
        Application.ScreenUpdating = False
        ACTUAL = ActiveWorkbook.Name
        primera = True
        On Error Resume Next
        Application.DisplayAlerts = CheckBox3.Value
        For i = 0 To Cuenta - 1
        If ListBox2.Selected(i) Then
            Text = ListBox2.List(i)
            Workbooks(Text).Close
            Else
            If ListBox2.Selected(i) <> True Then
        End If
    End If
    Next i
    Sheets(1).Select
    Unload Me
    Workbooks(ACTUAL).Activate
    Application.StatusBar = False
    Application.ScreenUpdating = True
End If
Exit Sub
ErrorHandler:
Workbooks(ACTUAL).Activate
Application.StatusBar = False
Application.ScreenUpdating = True
MsgBox "Ha ocurrido un error: comprueba que no hayas elegido alguna hoja oculta. " & err.Description, vbExclamation, AddIn
End Sub
'
'Enlistar el nombre de la ventana en el ListBox
Sub LlenarListasTodosLibros()
'Todos los archivos
ListBox2.Clear
suma1 = 0
For i = 1 To Application.Windows.Count
    ListBox2.AddItem Windows(i).Caption
        Select Case Windows(i).Visible
            Case Is = True
                    Ver = "Visible"
            Case Is = False
                    Ver = "No visible"
                    suma1 = suma1 + 1
            End Select
       ListBox2.List(ListBox2.ListCount - 1, 1) = Ver
Next i
Label2.Caption = "Archivos: " & ListBox2.ListCount & vbNewLine & "Archivos ocultos: " & suma1
CheckBox3.Value = True
End Sub

:: Descargar ejemplo

:: Descargar EXCELeINFO 2.2.6

Categories: vba Tags: , , , ,

EXCELeINFO add-in: Imprimir múltiples hojas a la vez

Presento la nueva versión de mi Add-in con la reciente función añadida de Imprimir varias hojas al mismo tiempo.

El comando permitirá visualizar en un ListBox todas las hojas de todos los libros abiertos en Excel, incluídos los que estén ocultos, así como también las hojas ocultas. El formulario está dentro del menú Archivos.

Sólo será necesario elegir las hojas que se deseen imprimir y presionar el botón.

Nota: las impresiones de enviará a la impresosa predeterminada y no se podrán imprimir las hojas ocultas, ya por algo el usuario les da ese privilegio.

Imagen del formulario en acción:

image

:: Descargar EXCELeINFO 2.2.5

Categories: vba Tags: , , ,