Folio consecutivo

Buenas tardes!
Tengo un formulario donde hay un textbox que con el evento "Enter", mediante una macro, me genera un folio consecutivo. En otro textbox tengo una macro que si se cumple una condición envía un mensaje y la detiene y borra todo lo contenido en los textbox. Lo que quiero es que el numero de folio también se detenga y no, al abrir de nuevo el formulario, me de el siguiente numero que tenia cuando me envío el mensaje.Por ejemplo:
Ultimo folio utilizado 15
Se abre el formulario y genera el folio 16 pero envía el mensaje y detiene la instrucción.
Se capturan los datos correctos y genera el folio 17. Es esto lo que no quiero sino que vuelva a generar el folio 16 dado que el 16 realmente no se utilizo.
Gracias por su ayuda.
Anexo las macros.
Esta es la macro donde envía el mensaje si se da la condición
Private Sub CANTIDAD_AfterUpdate()
Dim saldo As Double
On Error Resume Next
Application.ScreenUpdating = False
DBLCOD = Me.COD
Sheets(DBLCOD).Select
saldo = Range("L" & Rows.Count).End(xlUp).Value
If saldo < Me.CANTIDAD.Value Then
MsgBox "USTED ESTA TRATANDO DE INTRODUCIR UNA CANTIDAD MAYOR AL SALDO ACTUAL" & Chr(13) & "SALDO ACTUAL UNIDADES " & Chr(58) & saldo, vbOKOnly + vbInformation, "**CHECAR"
Me.COD.Value = ""
Me.DES.Value = ""
Me.REFER.Value = ""
Me.CLIENT.Value = ""
Me.PROYE.Value = ""
Me.CANTIDAD.Value = ""
Me.COD.SetFocus
Exit Sub
End If
Sheets("MENU").Select
Application.ScreenUpdating = True
End Sub
Y esta es donde genera el folio.
Private Sub REFER_Enter()
Application.ScreenUpdating = False
Sheets("Catalogo Producto").Select
folio = Range("A65536") + 1
Me.REFER.Value = folio
 Range("A65536") = Me.REFER.Value
 Sheets("MENU").Select
Application.ScreenUpdating = True
End Sub
Saludos

1 respuesta

Respuesta
1
Como ya estás incrementando la celda del contador al momento del Enter, luego tenés que borrar 1 al momento del error.
Además así como lo veo se te ejecuta 2 veces la rutina de CANTIDAD, porque al limpiarla también se ejecuta, por eso le agregué la condición de que si envías "" no se ejecute.
Pruébala y comentame si quedó bien. Sino comentame cómo es el orden de cada control:
Private Sub CANTIDAD_AfterUpdate()
If CANTIDAD = "" Then Exit Sub
Dim saldo As Double
On Error Resume Next
Application.ScreenUpdating = False
DBLCOD = Me.COD
Sheets("MENU").Select
saldo = Range("L" & Rows.Count).End(xlUp).Value
If saldo < Me.CANTIDAD.Value Then
MsgBox "USTED ESTA TRATANDO DE INTRODUCIR UNA CANTIDAD MAYOR AL SALDO ACTUAL" & Chr(13) & "SALDO ACTUAL UNIDADES " & Chr(58) & saldo, vbOKOnly + vbInformation, "**CHECAR"
Me.COD.Value = ""
Me.DES.Value = ""
Me.REFER.Value = ""
Sheets("Catalogo").Range("A65536") = Sheets("Catalogo").Range("A65536") - 1
Me.CLIENT.Value = ""
Me.PROYE.Value = ""
Me.CANTIDAD.Value = ""
Me.COD.SetFocus
Exit Sub
End If
Sheets("MENU").Select
Application.ScreenUpdating = True
End Sub
Atención que abrevié el nbre de la hoja, reemplázala por la tuya.
Sdos
Elsa
PD) Mi mejor recomendación: manual de formularios
http://aplicaexcel.galeon.com/manuales.htm
Hola Elsa!
Funciona perfectamente bien cuando sale el mensaje pero en el caso de que se capture información en todos los textbox y por equis razón no se quiere continuar, entonces al dar click en el botón de "Salir" del formulario adiciona otro folio lo cual, también, es incorrecto. Existe otro botón de "Cancelar" que borra todos los texbox pero a este le agregue la instrucción de restar uno y si funciono.
Si esto es motivo de otra pregunta por favor házmelo saber.
Gracias y saludos.
Escribime la rutina del botón SALIR...
Hola Elsa!
La siguiente es la rutina que tengo para el botón "Salir"
Private Sub SALIR_Click()
Application.ScreenUpdating = False
Sheets("MENU").Select
Unload SALIDA
Application.ScreenUpdating = True
End Sub
Gracias
Bien, entonces es porque lo primero que se ejecuta es el Enter de REFER.
Para identificar si la salida es por un proceso natural o una cancelación anticipada, necesitarás una variable para evaluar.
Los pasos serían estos:
Declarar al inicio del módulo: Public estado as byTE
En la rutina del REFER_Enter agregar: estado =1
En la rutina de CANTIDAD_After..., a continuación de restar 1, agregar: estado = 0
En la rutina, luego de capturar todo y terminar el proceso para esa carga nuevamente: estado = 0
En la rutina SALIR, si todavía está en 1 significa que no se completó el proceso:
Private Sub SALIR_Click()
Application.ScreenUpdating = False
if estado = 1 then Sheets("Catalogo").Range("A65536") = Sheets("Catalogo").Range("A65536") - 1
Sheets("MENU").Select
Unload SALIDA
Application.ScreenUpdating = True
End Sub
Otra solución es evaluar si ese valor no se debiera colocar al momento de aceptar el proceso y así te evitas todos estos agregados.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtro avanzado

¿Me podrías ayudar con filtros avanzados por medio de macro? Tengo la sig. Rutina pero no me respeta el valor del filto que le pongo. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Call filtrar...
1 respuesta

! Macro para validar datos!

Tengo una inquietud necesito una macro que pueda hacer una búsqueda entre dos hojas una de las hojas es una lista con un números cosencutivos (folio)(hoja2) y en la otra un formato(hoja1), lo que quiero que haga esta macro es que me verifique el...
1 respuesta

Eliminar autoshapes sin eliminar validación

Tengo el siguiente código: Dim autoforma As Shape For Each autoforma In ActiveSheet.Shapes autoforma.Delete Next autoforma Range("A1").Select Pero resulta que en donde tengo que borrar las formas, tengo celdas en donde hay validación de datos y...
1 respuesta

Optimizar macro

La verdad soy nuevo con las macros asi que no se mucho de códigos, pero quisiera poder optimizar el siguiente código., ya que, si realiza la tarea que necesito pero me parece que puede optimizarse; lo que más necesito es que cuando ya tengo muchos...
2 respuestas

ComboBox y ListBox en excel

No se si estaré bien ubicado con mi pregunta. Tengo este código que un experto ya trató de ayudarme. A pesar de su voluntad y ganas de ayuda, no fue posible llegar a un termino positivo y el experto tuvo que descartar mi pregunta. Código Private Sub...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Celda Activa, presionar enter para disparar Macro

Quiero hacer una macro que al dar ENTER en una celda dispare una macro, en la hoja "AL 1-MAR-08" en la columna A escribo un código, lo que hace la macro es buscar ese código en otra hoja "CATALOGO PROD", al encontrarlo, brinca 1 columna y el valor de...
1 respuesta

Copiar rango de celdas de una hoja a otra de acuerdo a condicional

A ver si pueden brindarme una ayuda. He desarrollado una macro que inserta un rango de celdas desde una hoja (01) a otra (02) Asi: Sub CopiarRangoActual() Sheets("01").Select Range("A1").CurrentRegion.Copy Sheets("02").Select...
2 respuestas

Bloqueo para que no se vean hojas en excel

Tengo un archivo de Excel en el cual tengo 3 hojas y solo quiero que se vea la primera, un amigo me enseñó una secuencia en visual basic pero me marga que es incorrecta, ¿Me podrían ayudar por favor? Anexo secuencia Private Sub Workbook_Open()...
1 respuesta