Como ingresar un folio consecutivo
Tengo un pequeño problemita con un folio esta es la estructura que tiene A-2013-000000-CI los primeros datos A y 2013 son fijos al igual que CI donde viene el problema es en el consecutivo ya que estoy manejando la captura de mis datos en un formulario que a su ves al momento de guardar datos me inserta un reglón nuevo y los datos ingresados pasan a las celdas de abajo y así sucesivamente, este folio se debe de insertar automáticamente en la celda A2.
1 respuesta
Cada vez que ingresas datos en un formulario, ¿quieres qué el consecutivo se actualice?
¿Tienes un commandbutton que pasa los datos del formulario a las celdas?
¿El consecutivo siempre va a estar en la celda A2?
¿Entonces el último consecutivo está en la celda A2?
Si es sí a todas las respuestas, pon el siguiente código dentro de tu commandbutton
Private Sub CommandButton1_Click()
'consecutivo
'Por.Dam
'en esta parte va tú código
'Al final pon estas líneas
consecutivo = Format(Val(Mid(Range("A2"), 8, 6)) + 1, "000000")
Range("A2") = "A-2013" & consecutivo & "-CI"
End Sub
Saludos. Dam
Si es lo que necesitas.
