Entradas

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

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