Ver Mensaje Individual
  #2 (permalink)  
Antiguo 03/10/2008, 01:44
Avatar de 3pies
3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 5 meses
Puntos: 144
Respuesta: Detectar salto de numeros correlativos en EXCEL

Hola matrushka. Bienvenida al foro.

Copia y pega este macro en un módulo:
Código:
Sub comprobar_correlativos()
'Ocultamos el prodecimiento
Application.ScreenUpdating = False
'Nos situamos en la primera celda
Range("A1").Select
'ahora recorreremos la columna,
'y nos pararemos cuando encuentre una fila vacía
Do While Not IsEmpty(ActiveCell)
    'Miramos si el dato de esa fila, restándole
    '1, nos da el valor de la fila anterior. En caso
    'contrario, mostraremos un mensaje en la columna de la
    'derecha (en una celda adyacente).
    '¡Ojo!. Si en la columna de la derecha tienes datos, entonces
    'cambia la linea donde pone: ActiveCell.Offset(0, 1) = "Factura no correlativa"
    'por esta: ActiveCell.Offset(0, 2) = "Factura no correlativa".
    'Fíjate que ha cambiado el 1 por el 2. Eso quiere decir que 2 columnas
    'más a la derecha escribirá ese texto. Si dos columnas a la derecha
    'sigues teniendo datos, pon un número de columna que esté libre (3, 4, 10...)
    If ActiveCell.Row > 1 Then
        If ActiveCell - ActiveCell.Offset(-1, 0) > 1 Then
            ActiveCell.Offset(0, 1) = "Factura no correlativa"
        End If
    End If
    'Bajamos una fila
    ActiveCell.Offset(1, 0).Select
Loop
'Mostramos el prodecimiento
Application.ScreenUpdating = True
End Sub
Puedes descargar un ejemplo que he hecho, desde aquí (introduce los 3 caracteres alfabéticos que te aparecerán arriba a la derecha).

Si no te aclaras, para no ser redundante, aquí explico como hacer macros.

Saludos.