Entradas

Mostrando las entradas con la etiqueta Ejemplos de macros en Excel xls

World Nomad Games 2026: Analyzing Kyrgyz Media Coverage with Python

Imagen
World Nomad Games 2026: Analyzing Kyrgyz Media Coverage with Python What did Kyrgyz media talk about during the World Nomad Games 2026 ? In this project, we used Python, Pandas and BeautifulSoup to analyze news coverage published by Kabar , the Kyrgyz national news agency. The goal was to understand how the Games were covered from a Kyrgyz media perspective. Instead of looking only at individual articles, we transformed the news headlines into data and created visualizations to answer three questions: When did Kabar publish the most World Nomad Games stories? Which countries were mentioned most often? What type of topics dominated the coverage? Data Source The analysis is based on 51 Kabar news headlines published between August 31 and September 6, 2026 . Kabar provides an RSS feed, which can be accessed programmatically with Python. However, the current RSS feed mainly contains recent stories. To reconstruct the World Nomad Games coverage for the event dates, ...
Publicar un comentario
Leer más

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...
Publicar un comentario
Leer más

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