CATÁLOGO DE SABLES DE LUZ CON VBA

Hola de nuevo y bienvenido a Excel Cute. El día de hoy vamos a crear una macro funcional para poder visualizar cualquier producto según cambies de fila. Para esta ocasión, nuestros amigos del episodio I y II de Star Wars nos prestaron sus sables de luz del inventario y les mostraremos algunas características de estos.

Si no te interesa mi súper elaborada descripción puedes descargar el libro aquí. =’)

Las imágenes.

Un paso simple, importa tus imágenes con la herramienta Insertar imagen del menú Insertar.

El orden siempre importa.

Una vez tengamos las imágenes sentémonos un rato a darles orden, crearemos una tabla con el nombre del articulo y acomodaremos ahí las imágenes. Adicional, en esa tabla agregaremos dos columnas llamadas X y Y que nos servirán en un momento más. El resultado se ve más o menos así.

La magia de la gráfica con imágenes.

Ya que hemos terminado de ordenar los datos, nos dispondremos a varios pasos:

  • Crearemos una grafica vacía de dispersión, esta nos servirá para depositar las imágenes.
  • En las columnas X y Y escribiremos una condicional SI que verifique si las celdas seleccionadas en la hoja con los datos de nuestros sables de luz corresponden a la misma que a la descripción dada al articulo (esto abajo lo haremos con VBA). La formula queda más o menos así.
  • Para la gráfica de dispersión creada, seleccionaremos el rango de grafica como las columnas X y Y, esto nos generara puntos con coordenadas 1,1.
  • Iremos insertando de a poco las imágenes en cada punto 1,1 según corresponda. Si no sabes como hacer esto te dejo aquí un enlace para aprender rápidamente.
  • Un poco de formato a la grafica para que no presente bordes ni relleno y listo.

La macro.

Un procedimiento muy simple pero efectivo. Abriremos la ficha programador en VBA y dentro de Visual Basic iremos a nuestra hoja 1.  Ahí depositaremos el siguiente código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then
    Exit Sub
Else
    Sheets(2).Range(«C1»).Value = Target.Value
End If
End Sub

El formato a la hoja con los datos.

Para prevenir que el usuario pueda cambiar a una celda que no tenga el nombre del Jedi/Sith, protegeremos toda la hoja salvo las celdas con el nombre y le daremos una contraseña, quedando activo como queda en la imagen de abajo.

¡Listo! Ahora estamos listos para dar algún toque adicional a la hoja según te plaza, en mi caso coloque la gráfica en las celdas de arriba y agregue un formato condicional solo para darle mas elegancia (está escondido, encuéntralo y dime en los comentarios jejeje).

CATÁLOGO DE SABLES DE LUZ CON VBA

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Scroll hacia arriba