Como crear una macro que alerte por faltantes en correlativos
Quisiera ayuda de como crear una macro que cuente y alerte cuando falta un numero correlativo dentro de un rango de números,
1 Respuesta
Respuesta de James Bond
1
Prueba con esta macro
Sub correlativos()
Set datos = Range("a7").CurrentRegion
With datos
Set datos = .Rows(10).Resize(.Rows.Count - 9, .Columns.Count)
For i = 1 To .Rows.Count
If i > 1 Then
inicio = .Cells(i - 1, 2): fin = .Cells(i, 2)
diferencia = fin - inicio
If diferencia > 1 Then
numero = 0
For j = 1 To diferencia - 1
If j = 1 Then numero = inicio + 1: concatena = numero
If j > 1 Then numero = numero + 1: concatena = concatena & "," & numero
Next j
.Cells(i - 1, 3) = "Falta el numero " & concatena
End If
End If
Next i
End With
End Sub
James, te puedo enviar el archivo, porque no me sale, por favor
Publica un email para darte un email a donde enviar el archivo
