ejemplos de Excel Avanzado (casos reales)
Índice del Artículo
Gestión de Alertas de Fechas de Vencimiento
Se selecciona toda la columna (haciendo clic en la letra de la misma) en la que vamos a llevar a cabo el formato condicional y se seleccionan las opciones de la imagen, lo que se trata es de que aparezcan diferentes colores de alerta en función de las 3 opciones de texto que se utilizan.
Código VBA en Registros/Filas
Elimina registro de la hoja cuando cumple condición y lo guarda en otra hoja
Cómo ejemplo de Macro de Excel de inyectar código, esta Subrutina de Código VBA para generar la macro de trasladar registro a otra hoja en función de un criterio, por ejemplo que esté ‘pagado’, y eliminar ese registro de la tabla principal (master). Se crea una macro vacía, y se añade el código en el módulo de Visual Basic para Aplicaciones (VBA), en que está desarrollado todo el entorno de Office y Microsoft. No es necesario tener conocimientos avanzados en el lenguaje, tan sólo tener una idea de en qué líneas realizar la modificación correspondiente. En Internet y en Foros de Excel, se pueden encontrar todo tipo de Macros y sus códigos, en función de nuestras necesidades en particular.
Sub QuitaRegistro()
‘ QuitaRegistro Macro
Dim Ht1, Ht2 As Worksheet
Set Ht1 = Worksheets(«Hoja2»)
Set Ht2 = Worksheets(«Hoja3»)
Ht2.Select
nFilas2 = Cells.SpecialCells(xlLastCell).Row
Ht1.Select
nFilas1 = Cells.SpecialCells(xlLastCell).Row
‘Trasladar Pagadas
For i = 2 To nFilas1
If Cells(i, «B») = «Pagada» Then
nFilas2 = nFilas2 + 1
Ht1.Rows(i).Copy Destination:=Ht2.Rows(nFilas2)
End If
Next i
‘Depurar Pagadas
For i = 2 To nFilas1
Volver:
k = k + 1
If k > nFilas1 Then Exit Sub
If Cells(i, «B») = «Pagada» Then ‘Criterio
Rows(i).Delete
GoTo Volver:
End If
Next i
MsgBox «Finalizado.»
End Sub
*Código VBA de la Macro de Ariel E. Reynoso
Macro borra registros/casos en blanco de una hoja de pedido y mantiene los registros realizados por el cliente
Macro que consolida el pedido realizado por el usuario/a, y limpia los registros/casos/filas de la hoja que quedan vacíos debajo, para poder imprimir o guardar con otros sencillos botones de Macro, si se requiere.
CÓDIGO VBA DE LA MACRO:
Private Sub CommandButton1_Click()Dim Fila As Integer
Dim Contador As Integer
Fila = 18
Contador = 66
Do While Contador > 0
If Cells(Fila, 1).Value = «» Then
Rows(Fila).Delete
Rows(Fila).Delete
Else
Fila = Fila + 2
End If
Contador = Contador – 1
Loop
End Sub
Macros en Tablas Dinámicas
La macro, al crearse desde el propio libro (‘Este libro’), se crea desde la hoja de la propia tabla dinámica, ya generada desde la tabla master de la base de datos, en blanco…
Función de código VBA a la que se le pasan 2 parámetros
Función de código VBA de conversión de moneda de dólares a euros a través de un 2º parámetro tipo de cambio, introducido por el usuario en la propia función:
Function Conversor_Dolares_a_Euros(importe As Currency, tipo_de_cambio As Double) As Currency
Conversor_USD_a_GBP = importe * tipo_de_cambio
End Function
BuscarV coincidencia aproximada
Ejemplo de función de Excel avanzado BuscarV() coincidencia aproximada para solventar problema de rangos de orden ascendente, también se puede llevar a cabo, de una manera quizá más tradicional con un condicional anidadado, esto es, un condicional SI dentro de otro SI (el primer paréntesis que se abre en la anidación, es el último que se cierra).