Entradas

Mostrando las entradas con la etiqueta Extraer valores únicos de una columna en Excel

How to Get Exchange Rates in Excel Automatically Using a Free API (VBA Step-by-Step)

Imagen
How to Get Exchange Rates in Excel Automatically Using a Free API (VBA Step-by-Step) Automate exchange rates in Excel in minutes. In this guide, you’ll learn how to retrieve currency data from multiple countries (including African currencies) using a free API and VBA. This example is perfect if you work with financial reports, currency analysis, or need updated data without manual input. 🚀 What will you learn? How to get real-time exchange rates in Excel How to use a free API (no API key required) How to automate Excel with VBA How to retrieve multiple currencies (USD, MXN, EUR, ZAR, NGN, etc.) 🌍 Free Exchange Rate API For this example, we will use the following free API: 👉 https://open.er-api.com/v6/latest/USD Advantages: No API key required 150+ currencies available Includes African currencies Daily updated data (not historical) 💻 VBA Macro to Get Exchange Rates in Excel Copy and paste this code into a VBA module: Sub GetExchangeRates(...

Macro de Excel para ordenar datos y obtener datos únicos de una columna o fila

Imagen
Hola en esta ocasión les quiero compartir un ejemplo de una macro de Excel para poder ordenar datos de columnas y obtener los datos únicos de una columna. Por ejemplo yo tengo un Archivo de Excel del que quiero obtener las fechas para poder obtener los datos y los mostrare en una columna, la pantalla de ejemplo se ve así El primer caso es para obtener los fechas únicas de una columna y colocarlas en una columna 'select dates filas 'Declaramos variables Dim fin As Long, i As Long, unicos As Variant, unicos2 As Variant With Sheets("InputFile") fin = Application.CountA(.Range("A:A")) unicos = WorksheetFunction.Unique(.Range("A1:A" & fin)) 'Obtenemos los datos de la matriz y los pasamos a una columna i = 0 For i = LBound(unicos) To UBound(unicos) .Cells(i + 1, 5) = unicos(i, 1) Next i .Range("E2:E100").Select Selection.Columns.Sort key1:=Colum...

🚀 Mantener este blog funcionando requiere tiempo y café. ¡Puedes contribuir con uno aquí!