Macro para verificar el consecutivo de folios
Buen día:
Solicito de tu ayuda para crear una macro que vaya celda por celda verificando que no me falte ningún folio, los datos los importo a excel y empiezan desde A5 hasta A4500 y lo que hago es ir verificando el consecutivo que no me falte ningún folio. A ver si es posible que cuando encuentre un faltante de folio me dijera por medio de un msxbox falta folio 5 por ejemplo.
Agradezco de antemano tu ayuda.
Saludos
Solicito de tu ayuda para crear una macro que vaya celda por celda verificando que no me falte ningún folio, los datos los importo a excel y empiezan desde A5 hasta A4500 y lo que hago es ir verificando el consecutivo que no me falte ningún folio. A ver si es posible que cuando encuentre un faltante de folio me dijera por medio de un msxbox falta folio 5 por ejemplo.
Agradezco de antemano tu ayuda.
Saludos
1 Respuesta
Respuesta
2
Si se puede, pero antes te pregunto:
No podes directamente en B6 poner
=a6-a5
Y copiar esta fórmula para abajo.
Esta columna te debería dar siempre 1;
Si te sirve ok, sino repreguntá y la seguimos por el lado que tu decías
No podes directamente en B6 poner
=a6-a5
Y copiar esta fórmula para abajo.
Esta columna te debería dar siempre 1;
Si te sirve ok, sino repreguntá y la seguimos por el lado que tu decías
Gustavo, gracias por responder.
Me gustaría que me apoyaras por medio de una macro, actualmente lo estoy haciendo por medio de una fórmula paracecida a la que tu propones.
Saludos.
Me gustaría que me apoyaras por medio de una macro, actualmente lo estoy haciendo por medio de una fórmula paracecida a la que tu propones.
Saludos.
Te paso el siguiente código; deberías ponerlo en un módulo y luego ejecutarlo desde la planilla (cualquier cosa consulta)
Sub Macro1()
Range("A65000").End(xlUp).End(xlUp).Offset(2, 0).Select
Do While ActiveCell <> ""
If (ActiveCell - ActiveCell.Offset(-1, 0)) <> 1 Then
MsgBox "Falta folio " & ActiveCell.Offset(-1, 0) + 1, vbOKOnly + vbInformation, "Información"
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Esta macro considera que no tienes información luego del rango (lo hice así para que sea variable y no esté "clavado" a las celdas A5 y A4500
Sub Macro1()
Range("A65000").End(xlUp).End(xlUp).Offset(2, 0).Select
Do While ActiveCell <> ""
If (ActiveCell - ActiveCell.Offset(-1, 0)) <> 1 Then
MsgBox "Falta folio " & ActiveCell.Offset(-1, 0) + 1, vbOKOnly + vbInformation, "Información"
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Esta macro considera que no tienes información luego del rango (lo hice así para que sea variable y no esté "clavado" a las celdas A5 y A4500
EXCELENTE APORTACIÓN! - Edgar Acosta