Entradas

Mostrando las entradas con la etiqueta Macros excel

Reseña del sensor Aidex y su relación con IoT y mHealth

Imagen
En esta publicación quiero compartir mi experiencia personal utilizando el sensor de glucosa Aidex , el cual adquirí en AliExpress. Además de reseñar el dispositivo, quiero hablar sobre cómo se relaciona con el concepto de Internet of Things (IoT) , el área de mHealth (mobile health) y reflexionar sobre los posibles riesgos de seguridad asociados. ¿Qué es IoT? El Internet of Things o Internet de las Cosas se refiere a la conexión de objetos físicos a internet para recolectar, enviar y procesar datos. Estos dispositivos incluyen desde sensores y electrodomésticos inteligentes hasta automóviles conectados. En el caso del Aidex, el chip y el transmisor conectado al cuerpo forman parte de este ecosistema al enviar datos de glucosa en tiempo real a un dispositivo móvil. Mi experiencia con Aidex El kit incluye un sensor, un transmisor y la aplicación móvil. En mi caso, lo conecté con un Xiaomi Mi 13 y logré visualizar las mediciones de glucosa de forma continua en la...

Macro en Excel para remover filas duplicadas.VBA programación para todos.

Imagen
 En ocasiones necesitamos remover datos duplicados en nuestros datos de salida de alguna hoja de Excel. En esta ocasión les comparto una función en VBA para poder hacerlo. En mi caso tengo una Macro que válida datos y va escribiendo el análisis en la hoja4 y necesito que remueva resultados duplicados para ello utilizo la siguiente función . En esta macro la pueden ajustar para que no sea la hoja4 y sea otra celda para eliminar duplicados. Sub EliminarDuplicadosColumna()     ' Especifica la hoja donde quieres trabajar     Dim ws As Worksheet     Set ws = ThisWorkbook.Sheets( "Hoja4" )     ' Encuentra la última fila con datos en la columna Q de la hoja especificada     Dim LastRow As Long 'columna q la cual puedes cambiar por cualquier otra     LastRow = ws.Cells(ws.Rows.Count, "Q" ).End(xlUp).Row     ' Define el rango a evaluar en la hoja especificada     Dim rng As Range     Set rng = ws.Range...

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