Macro para faltantes de secuencia
Hola Necesito una macro que me permita recorrer una columna que contiene una
serie de números correlativos y que registre en una nueva hoja de
calculo, con el nombre"Necesito una macro que me permita recorrer una
columna que contiene una serie de números Faltantes", los faltantes de la serie. Agradezco la ayuda que me puedan dar. Saludos.
1 respuesta
He escrito una pequeña función para que muestre los números que faltan. La columna de número debe estar en la columna A de la primera hoja del libro, los números que faltan se mostrarán en la hoja 2 y a lo largo de la columna A. El código es:
Sub Faltar()
' Número de filas
c = 0
i = 1
While c = 0
If Worksheets(1).Cells(i, 1).Value = "" Then
c = 1
Else
i = i + 1
End If
Wend
filas = i - 1
'Borrar la hoja 2
Sheets(2).Select
Cells.Select
Selection.ClearContents
Sheets(2).Cells(1, 1).Select
' Buscar los números que faltan
j = 1
For i = 1 To filas - 1
Diferencia = Worksheets(1).Cells(i + 1, 1).Value - Worksheets(1).Cells(i, 1).Value
If Diferencia > 1 Then
For x = 1 To Diferencia - 1
Worksheets(2).Cells(j, 1).Value = Worksheets(1).Cells(i, 1).Value + x
j = j + 1
Next x
End If
Next i
' Mostrar los números faltantes
Sheets(2).Activate
MsgBox "Los números que faltan se muestran aquí:"
End Sub
¡Espero que la respuesta te sea de utilidad!
Sígueme en mi blog: http://hocalsolutions.blogspot.com.es/