Buen Dia tengan grandes expertos de la programacion,  acudo a ustedes para ver si me pueden auxiliar respecto a un tema que aparentemente esta muy sencillo pero por mas que le doy vueltas no logro que me salga, espero su valiosa colaboracion para poder terminar esa parte que me hace falta, les explico brevemente pues se trata del registro de 3 campos en una hoja mediante formulario el cual en su parte de inicialize hace o realiza un numero consecutivo, mi problema radica aqui en hacer que ese consecutivo se haga deacuerdo a un formato el cual es el siguiente:

34-07-00-000020-A

en el formato lo que quiero que vaya cambiando es lo que esta con negritas, (osea 34-07-00-000021-A, 34-07-00-000022-A, 34-07-00-000023-A etc;) y lo demas se quede tal cual, ¿como pudiera hacer eso deacuerdo al formulario que tengo?, alguien que me ayude, porfavor.

dejo archivo muestra. de antemano muchas gracias

GenerarConsecutivo.rar

y es que una disculpa como tal no habia visto a detalle el funciónamiento del codigo proporcionado, creo que el que mas se adecuó a lo que estoy buscando es el codigo proporcionado por el maestro antoni aun asi debo ponerle validaciones o condiciones a dicho codigo, para que este funcione adecuadamente ya que por ejemplo si en la celda a2 no existe nada cuando es "leida" al inicializar el formulario marca un "1" en txtID cuando debe ser el del formato (34-07-00-000000-A), aunado a esto si no existe nada tambien marca error, o si existe otro caracter que no sea el del formato tambien marca error, simplemente no medí los alcances y las limitaciones de lo que pedi, -yo pedi algo especifico y me dieron algo especifico- pero mi problema no solo radicó hasta ese punto donde me proporcionaron; aun asi doy gracias al respecto (aun cuando me regañan) ya que si no existiera este foro poco avanzaria uno en el tema de la programacion.

ya solo para terminar y abusando de su confianza, ¿como seria con esa validacion ? donde en el valor que este en  .range("a2") sea distinto de vacio y sea un caracter diferente al formato ...ya por ultimo helpme

A ver Viejo...

Tienes que plantear una cosa REAL, no puedes decir quiero que me de el consecutivo de :

34-07-00-000000-A

34-07-00-000001-A

34-07-00-000002-A

...........

Y después quieres que te de otro formato...1/XXX000-AB..... etc.

Un ID debe de tener una MASCARA establecida, como en tu caso el:

34-07-00-000000-A, aunque esa mascara con el tiempo puede cambiar claro, con el cambio de tipo de Facturación, etc. Pero ya se aborda como algo particular.

Hace 11 horas, viejo dijo:

para que este funcione adecuadamente ya que por ejemplo si en la celda a2 no existe nada cuando es "leida" al inicializar el formulario marca un "1" en txtID cuando debe ser el del formato (34-07-00-000000-A)

Cuando dices esto es por que no sabes nada de VBA, es tan sencillo arreglar esto... con el código que te dio @Antoni, solo cambia ese "1" por :

"34-07-00-000000-A" y listo.

Te recomiendo que estudies las bases de VBA, por que en caso contrario solo avanzaras como uno te haga las cosas y nada podrás hacer por tus propios medios...

No importa que estés VIEJO.... siempre se aprende si uno quiere.

Saludos

 

En 28/11/2018 at 3:11 , Antoni dijo:

Public Sub INCREMENTARID() Dim FIN As Range With Sheets("Hoja1") If .Range("A2") = Empty Then frmAlta.txtID = "34-07-00-000000-A" Else Set FIN = .Range("A1").End(xlDown) frmAlta.txtID = Left(FIN, 9) & _ Format(CLng(Mid(FIN, 10, 6)) + 1, "000000") & _ Mid(FIN, 16) End If End With End Sub

Ya modificado... Cuando en A2 esta vació....

ok gracias