Macro de faltantes en Excel

Macro de faltantes en ExcelSupongamos que tenemos una secuencia de valores en Excel, dispuestos en columna, y que nos interesa saber los valores faltantes en dicha secuencia. Por ejemplo, puede ser de utilidad si buscamos facturas (por su nº) que han sido omitidas en la serie. Para ello hay una macro bastante interesante que se encarga de buscar los valores ausentes en el rango. Hay que tener en cuenta la configuración que presenta la macro y que podemos modificar: La celda de origen ha de llamarse «Hoja1» y la de destino será «Hoja3». Aunque como digo, todo es editable si modificamos el código. En rojo he marcado los datos principales de ser modificados.

Sub MacroFaltante()
‘Macro descargada de JesusHerrero.Com
Sheets(«Hoja1«).Select    ‘Indicar el nombre de la hoja inicial
libre = 2  ‘la primer fila libre de hoja2
‘Muestra la última fila del rango a comparar
finfil = ActiveSheet.Range(«A65536«).End(xlUp).Row
‘Se indica la primera celda del rango a comparar 
ActiveSheet.Range(«A2«).Select
dato = ActiveCell.Value
While ActiveCell.Row <> finfil
dato = dato + 1
ActiveCell.Offset(1, 0).Select
If ActiveCell <> dato Then
‘Nombre de la hoja de destino del resultado
Do
Sheets(«Hoja3«).Cells(libre, 1) = dato
libre = libre + 1
dato = dato + 1
‘repito mientras encuentre valores mayores al correlativo
Loop While ActiveCell.Value > dato
End If
Wend
End Sub

Esta entrada tiene 7 comentarios

  1. RAFAEL

    HOla Jesus.
    siguiendo tu procedimiento y solo cambiando los datos de ActiveSheet.Range, me aparece el siguiente error: ERROR DE COMPILACION. ERROR DE SINTAXIS le doy clic en aceptar y entonces me pone una flechita en la 1ra linea » sub MacroFaltante ()» y ademas selecciona la 2da linea.
    Me permito comentarte que los datos estan en la Hoja1 y en la columna A…. alguna sugerencia.?
    Gracias de antemano

    1. Hola Rafael.
      Tendría que ver exactamente el resultado de tu depurador. Yo he vuelto a utilizar la macro, tal y como la muestro, y todo es correcto…

  2. Diego

    Me sale el mismo error que a Rafael ojalá me pudieras pasar el ejemplo a mi e.mail para evisarlo. Gracias bue tema

  3. Dora

    Excelente aporte..muchas gracias!! =)

  4. Edgar Hernandez

    Gracias, me fue de muchísima utilidad. Gracias Gracias Gracias

  5. jorgeh

    mi problema es que los datos que quiero revisar estan en fila no en columnas y ademas el resultado tiene que devolverse en la misma fila en las celdas subsiguientes muchas gracias de antemano

  6. FRANCISCO SAAVEDRA MANDUJANO

    BUENOS DIAS COMO TE PUEDO CONTACTAR OCUPO ALGO ASI PERO PARA DATOS MAS ESPECIFICOS EN EL REPORTE.

Deja una respuesta