Cómo crear menús de opciones con Macros VBA
Con ayuda de Visual Basic y utilizando eventos, podemos crear menus de opciones posicionándonos con las cursoras o con el mouse en la celda específica:
Hagámoslo con un ejemplo:
- Asigna dos rangos de datos:
- Rango_opciones: $B$6:$B$10 - Son las opciones que pueden ser elegidas
- Valor_elegido: $A$98 - Muestra el número de opción seleccionada
- Crea una lista de datps: desde la celda A100 hasta la C104, servirá para mostrar la información en el cuadro, según la opción escogida.
- En la celda C98, utilice la función Buscarv (vlookup en inglés) para hacer una búsqueda del texto que mostrará el cuadro según la opción elegida.
- Inserte un cuadro (Insertar formas) y referéncielo a la celda $C$98
- Presione "Alt + F11" para abrir la ventana de Macros e inserte el siguiete código en un módulo:
Sub UpdateAfterAction()
Dim topRow As Integer
Application.ScreenUpdating = False
topRow = Range("Rango_opciones").Cells(1, 1).Row
[Valor_elegido] = ActiveCell.Row() - topRow + 1
Application.ScreenUpdating = True
End Sub
6. En la hoja1 (sheet1) ingrese el siguiente código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Application.Intersect(ActiveCell, Range("rngReviews").Cells) Is Nothing) Then Call UpdateAfterAction
End Sub
Puedes descargar el ejemplo desde google drive:
https://drive.google.com/file/d/0B41Ma7OTOnNWZ0FRX0JEci1nVG8/view?usp=sharing
El equipo de Exceleros tiene a tu disposición diseño personalizado de reportes en Microsoft Excel utilzando macros y fórmulas avanzadas, así como de indicadores financieros necesarios para tu organización. Podemos apoyarte con tu requerimiento, contáctanos, será un gusto ayudarte.
