Entradas

Mostrando las entradas con la etiqueta Macro en Excel Eliminar filas en Excel Automatización en Excel

Macro en Word para leer recibos de nómina CFDI y extraer el ISR retenido automáticamente

Imagen
Macro en Word para leer recibos de nómina CFDI y extraer datos clave Si trabajas en contabilidad, seguramente has recibido archivos XML de recibos de nómina para revisión o conciliación. Esta macro te permite leer múltiples archivos CFDI versión 4.0 directamente desde Word, y extraer automáticamente los siguientes datos: RFC del Emisor RFC del Receptor Total del comprobante UUID ISR Retenido (extraído del nodo de deducciones de nómina) Esto es especialmente útil para quienes deben validar cantidades retenidas de ISR en recibos de nómina digitales y quieren presentar su declaración anual o para contadores. La macro coloca toda la información organizada en una tabla dentro del documento Word, lista para copiar o validar. ¿Cómo funciona? Al ejecutar la macro: Seleccionas uno o varios archivos XML desde tu computadora Word los analiza uno por uno Se genera automáticamente una tabla con los datos clave ¿Quién puede usar esta macro? Está pensada para c...
Publicar un comentario
Leer más

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

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