Macro de faltantes en Excel

Supongamos 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

6 Comentarios
  1. 15 Abril, 2010
  2. 20 Abril, 2010
  3. 28 Enero, 2013
  4. 6 Noviembre, 2013
  5. 2 Diciembre, 2013
  6. 11 Diciembre, 2015

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *