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

Solicitamos tu permiso para obtener datos estadísticos de su navegación en esta web, en cumplimiento de Reglamento General de Protección de Datos (RGPD). Te recomendamos que accedas a nuestra políticas de cookies y revises las cookies que estamos utilizando. más información

Los ajustes de cookies de esta web están configurados para "permitir cookies" y así ofrecerte la mejor experiencia de navegación posible. Si sigues utilizando esta web sin cambiar tus ajustes de cookies o haces clic en "Aceptar" estarás dando tu consentimiento a esto.

Cerrar