Informes con segmentación de datos

Constantemente los usuarios/as de Excel están en busca de cómo mostrar sus datos en informes/reportes que, además de ser visualmente agradables a la vista, permita mostrar resúmenes de datos o similares. Hay varias formas de lograr hacerlo (Fórmulas, VBA, Tablas Dinámicas, etc.) pero en esta ocasión vamos a usar la “Segmentación de datos”.

Para comenzar, vamos a suponer que tenemos datos dispuestos de esta manera:

Entonces lo primero que haremos será convertir esos datos en “Tabla” (Enlace).

Si no situamos en cualquier celda de la tabla podremos usar las “Herramientas de tabla” y agregaremos la “Fila de totales” de tal modo que podamos usarlos a la hora de hacer nuestros informes.

Como también queremos datos por meses (en este caso todos los datos son de un solo año) y las tablas no permiten agrupar por meses, agregaremos una columna usando la siguiente fórmula:

Es suficiente que coloquemos la fórmula en la primera celda de la nueva columna y como se habrán dado cuenta se agregará en todas las otras celdas de manera automática (ventaja de las tablas).

Ahora lo que haremos será insertar unas diez filas encima de nuestra tabla, luego colocaremos el cursor en cualquier celda de la tabla y en las “Herramientas de tabla” elegiremos el botón “Insertar segmentación de datos”:

Para nuestro caso vamos a elegir tres opciones: Vendedor, producto y mes.

-------

Los tres cuadros que obtendremos podemos cambiarles el tamaño y colocarlos en la parte en que hemos insertado las filas en blanco, además podemos cambiarles el formato si seleccionamos cada uno y en las “Herramientas de segmentación de datos” cambiamos su estilo de tal modo que podríamos tener, finalmente, algo así:

Y listo, ya podemos elegir/filtrar las opciones que deseamos para nuestros informes:

Hasta la próxima.

Abraham Valencia

Descargar el ejemplo aquí

El correcto uso de INDIRECTO (II): Listas desplegables dependientes

Como ya hemos comentado, la función “Indirecto” tiene varias características que no necesariamente son conocidas. En esta ocasión vamos a sacar provecho de ellas y mostraremos cómo hacer listas dependientes usando dicha función.

Para comenzar, en una hoja escribamos datos de este modo:

Luego, para asegurarnos de que si agregamos más datos estos sigan siendo parte de nuestras listas, vamos a convertir cada columna a “Tabla” (Enlace).

Ah, por favor, colocar que los datos tienen encabezados:

Luego, para asegurar de que funcionen nuestras listas, debemos cambiar el nombre de cada tabla y colocarle el mismo que el encabezado:

A esa hoja vamos a nombrarla “Datos”. Ahora vayamos a otra hoja y en la celda, por ejemplo, “B1” usando “Validación de datos” y la opción “lista” crearemos una lisa desplegable con los nombres de los cuatro continentes que hemos usado.

Como ya tenemos la primera lista crearemos, ahora, la que será dependiente. Vamos a la celda “B2” y nuevamente usaremos “Validación de datos” y la opción “lista”, pero en esta ocasión ingresaremos una fórmula con “Indirecto” del siguiente modo:

=INDIRECTO(B1)

El resultado que tendremos es el siguiente:

Cada vez que cambiemos el valor de “B1”, la lista de “B2” será con los países correspondiente. Ah, y si agregamos más países en la hoja “Datos”, al ser tablas serán automáticamente parte de cada conjunto de países y se visualizarán sin dilema en la hoja de las listas. Y eso amigos/as es otra buena idea para usar “Indirecto”. Hasta la próxima.

Abraham Valencia

Excel y MySQL (II)

Hace poco hablamos de cómo conectar MySQL con Excel (Enlace) aunque básicamente se hizo referencia a conectarse a un servidor y extraer sus datos. En esta ocasión lo que vamos a hacer es enviar datos de Excel hacia una base de datos MySQL.

Vamos a hacer algo corto y práctico porque la idea es que se entienda más que hacer algo complicado. Entonces, comenzaremos creando una tabla con cuatro campos en alguna base de datos MySQl que tengamos. Mi base de datos se llama “Pruebas” y llamaré a mi tabla “TablaPruebas”. Los campos serán los siguientes:

Nombre del campo	Tipo	Extras
Id	Int	Primary – Auto_Increment
Nombre	Text
País	Text
Fecha	Date

En nuestra hoja de Excel usaremos tres columnas A, B y C (La de “Id” no, ya que es de numeración automática) y pondremos encabezados en la fila 1. Llenaremos datos que queramos enviar a MySQL:

Como son varios datos usaremos un bucle para enviar los datos, aunque la clave de todo será usar SQL y en específico “Insert Into”. Dado que usaremos el bucle mencionado, debemos asegurar que al construir nuestra cadena SQL, se tomen los datos adecuados por lo que dicha cadena debe quedar de la siguiente manera:

sql = "Insert Into tablapruebas (Nombre, País, Fecha) Values ('" & Range("A" & x).Value & "','" _         
  & Range("B" & x).Value & "','" & Format(Range("C" & x).Value, "yyyy-mm-dd") & "')" 

Al ser los campos del tipo Text y Date, deben necesariamente ir entre comillas simples en la cadena. Para terminar, y basándonos en todo lo mencionado en el artículo anterior, nuestra macro debería quedar así, tomando en cuenta que usaré MySQL en el “LocalHost”:.

Sub DatosaMySQL()

Dim cnn As ADODB.Connection 
Dim rst As ADODB.Recordset 
Dim sql$, BD$, Servidor$, User$, Clave$ 
Dim UltimaFila As Long, x As Long 

Set cnn = New ADODB.Connection 
Let Servidor = "localhost": Let BD = "pruebas" 
Let User = "root": Let Clave = "" 
Let UltimaFila = Cells(Rows.Count, 1).End(xlUp).Row 

cnn.ConnectionString = "DRIVER={MySQL ODBC 8.0 Unicode Driver};" _
      & "SERVER=" & Servidor & ";DATABASE=" & BD & ";" _
          & "UID=" & User & ";PWD=" & Clave & ";PORT=3306;OPTION=131072" 
cnn.Open 

For x = 2 To UltimaFila

  Set rst = New ADODB.Recordset
         Let sql = "Insert Into tablapruebas (Nombre, País, Fecha) Values ('" & Range("A" & x).Value & "','" _
           & Range("B" & x).Value & "','" & Format(Range("C" & x).Value, "yyyy-mm-dd") & "')"     

  With rst
      .CursorLocation = adUseClient         
   .CursorType = adOpenKeyset         
   .LockType = adLockOptimistic
         .Open sql, cnn, , , adCmdText
     End With 

  Set rst = Nothing 

Next x 

cnn.Close 
Set cnn = Nothing 
MsgBox "Todo listo" 

End Sub

Si todo salió bien, tendremos algo así en nuestra tabla:

Espero les sea útil. Hasta la próxima.

Abraham Valencia