Automatización en Excel

El 99% de las personas utilizamos Excel muy por debajo de sus capacidades.

Algunos conceptos fundamentales para ser más productivos:

  1. Si estas haciendo cuentas fuera de la planilla (si, te hablo a vos calculadora de mesa…) estas siendo ineficiente.
  2. Si no tenes una hoja de Datos o Supuestos donde se definen los parametros fijos o mensuales vas a trabajar el triple.
  3. Si no sabes usar tablas dinamicas te estas perdiendo la mitad de la diversión.

Un par de tips muy interesantes son:

Cómo unificar varias planillas en una sola

Colocar en un directorio todas las planillas separadas que queremos unificar, por ejemplo los informes de cada mes. Crear un nuevo archivo de cero, grabarlo fuera del directorio donde tenemos los archivos individuales y guardarlo como Excel con macros, tipo de extension xlsm.

Si no respetan esos dos detalles de ubicacion y tipo de archivo, no va a funcionar.

En el archivo nuevo, vamos a la parte de desarrollador, seguramente tengan que habilitar el menú la primera vez en Arcivo > Opciones > Customizar y agregar la vista de Desarrollador.

En el cuadro de código pegar lo siguiente, sustituyendo la ruta por la del directorio donde colocaron los archivos separados y colocando la extesion que corresponda (xls o xlsx o csv):

Sub GetSheets()
    Const THE_PATH As String = "C:\RUTA\ARCHIVOS\SEPARADOS\"

    Dim Filename as String, wb As Workbook, Sheet As Worksheet

    Filename = Dir(THE_PATH  & "*.xls")
    Do While Filename <> ""
         Set wb = Workbooks.Open(Filename:=THE_PATH & Filename, ReadOnly:=True)
         For Each Sheet In wb.Sheets
             Sheet.Copy After:=ThisWorkbook.Sheets(1)
         Next Sheet
         wb.Close
         Filename = Dir()
      Loop
End Sub

Recuerden, deben cambiar la ruta manteniendo la \ al final y deben colocar la extension correcta.

Si el archivo no se guardo como xlsm no van a poder ejecutar el codigo.

Luego hacen clic en el boton de play y listo.

Tip para curiosos, conocer las planillas de Google Drive y utilizar IMPORTRANGE. No precisan unificar mas archivos…

twitterpinterest