Entradas

Mostrando las entradas con la etiqueta Macros excel

Cómo unir archivos CSV dentro de ZIP automáticamente con PowerShell

Imagen
Cómo unir archivos CSV dentro de ZIP automáticamente con PowerShell Automatiza la consolidación de reportes CSV provenientes de múltiples archivos ZIP sin duplicar encabezados. Cuando trabajamos con reportes generados por diferentes sistemas es bastante común recibir información distribuida en varios archivos CSV, muchas veces comprimidos dentro de archivos ZIP. Por ejemplo, podemos recibir diariamente: Reportes de facturación. Archivos de pedidos. Información de embarques. Reportes de logística. Archivos generados por un ERP. Información descargada de algún sistema administrativo. Reportes enviados por diferentes sucursales. El problema aparece cuando tenemos que juntar todos esos archivos manualmente. Abrir cada ZIP, extraer el CSV, copiar la información, pegarla en otro archivo y repetir el proceso puede convertirse en una tarea repetitiva y propensa a errores. En este artículo vamos a crear un pequeño script de PowerShell que automatiza este pro...

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í!