Entradas

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

Cómo validar cientos de XML CFDI automáticamente en Excel usando el SAT

Imagen
Cómo validar cientos de XML CFDI automáticamente en Excel usando el SAT Si trabajas con facturas electrónicas CFDI en México, probablemente alguna vez has tenido que validar manualmente XML uno por uno en el portal del SAT lo cual requiere mucho tiempo. Ese proceso puede tomar muchísimo tiempo cuando manejas decenas o cientos de facturas. Por eso desarrollé una macro profesional en Excel que permite: Leer cientos de XML automáticamente Consultar el estado CFDI directamente contra el SAT Identificar facturas vigentes o canceladas Procesar carpetas completas Generar resultados masivos en Excel ¿Qué hace esta herramienta? La macro utiliza el servicio oficial del SAT para consultar el estado de los CFDI 4.0 y automatiza completamente el proceso desde Excel. Solo debes: Seleccionar una carpeta con XMLs La macro procesa automáticamente todos los archivos Consulta el SAT en línea Genera una tabla completa con resultados Extra datos de los xml :RFC emisor ,RFC recepto...
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í!