CREAR FOLIO ALFANUMERICO AUTOMATICO

[@ConociendoExcel]

OBTEN LAS PLANTILLAS COMPLETAS EN ESTE LINK:👇👇👇✅ 👉👉👉 conociendoexcel.com

[@ConociendoExcel]

.

[@desaxeerockdriguez6929]

Muchas gracias solo un comentario respecto a la declaración de la variable "AUTO" Me funciono solo declarándola como "as Long" ya que como Integer me salia un error 6 en tiempo de ejecución. acá mi codigo: Private Sub UserForm_Initialize() Dim fila, final As Long Dim ticket, ticket1, INICIALES As String Dim AUTO As Long fila = 7 Do While Hoja1.Cells(fila, 1) Empty fila = fila + 1 Loop final = fila - 1 If Hoja1.Cells(7, 1) = Empty Then TextBox1 = Format(1, "AUR-2000000") Else ticket = Hoja1.Cells(final, 1) ticket1 = Mid(ticket, 6) INICIALES = Left(ticket, 6) AUTO = Format(ticket1 + 1, "00000") TextBox1 = INICIALES & Format(AUTO, "00000") End If End Sub

[@ConociendoExcel]

Gracias por tu aporte. Y si es correcto que con la variable integer te diera error debido a que las cifras que manejaras son mayor al valor que soporta la variable integer que es 37000.. Saludos

[@yaniscaspue7862]

hola buenas noches. Me gusto bastante su ejemplo, pero no se como aplicarlo a mi favor. Tengo una pestaña llamada Registro en ella tengo un formulario muy sencillo donde el usuario tiene que elegir el tipo de producto ya sea Totes o Rieles, poner numero de contenedor, fecha y cantidad. Al momento de guardar los datos se van guardando en la pestaña de BD en el lugar q le corresponde a cada uno de acuerdo a como se programo la macro. Pero en la pestaña de BD tengo una columna q se llama FOLIO FACTURA ahi debe haber un contador automatico que cuando el usuario haya elegido Totes este inicie como TOTES001 y se vaya incrementando cada vez que se guarden totes y cuando el usuario elija Rieles tambien inicie como RIELES001 y se vaya incrementando conforme se guarden los datos. Cree que me pueda ayudar por favor.

[@ConociendoExcel]

Si claro pero eso ya seria mediante una asesoria personalizada, info al whatasapp: +52 ‭984 287 5483‬

[@brekamedina6550]

Te resolvieron?

[@jorgeleonaceituno9601]

hola mucho gusto!!! excelente ejemplo, me gusto bastante!!! solo tengo duda!!! como hacer para cuando se haga otro registro consecutivo aumente a CTO002, CTO0003 sin salirme?

[@ConociendoExcel]

AGREGAR EN EL CODIGO QUE TE SUME UN 1

[@jorgeleonaceituno9601]

@@ConociendoExcel muchas gracias por la pronta respuesta!!! lamentablemente no logré realizar el consecutivo sin salirme!!! siempre muchas gracias por compartir, son de gran ayuda!!!

[@ConociendoExcel]

@@jorgeleonaceituno9601 SALUDOS!!

[@centroliria3186]

Gracias por tu video, desde R.D. He buscado mucho algo como así, este es el que mas se acerca a lo que quiero. Solo que me gustaría que mi código se generara tomando las iniciales del nombre del "Producto"+EL CÓDIGO. Sin tener que escribirlas. Pero de VB no se NADA. ¿Se podría hacer lo que hiciste desde la ventana de Excel? GRACIAS, muy bueno.

[@ConociendoExcel]

Puedes visitar el canal en Facebook allí hay más contenido y mirar este video donde puede servirte : m.facebook.com/story.php?story_fbid=306136553327775&id=175441593063939

[@eduardosanchezromero2958]

kzbin.info/www/bejne/n4qaoJuagaeGY6c

[@erickcolli3532]

Hola muchas gracias por su tutorial estoy realizando el procedimiento pero al momento de generar el siguiente folio no hace la suma del consecutivo, podría apoyarme?

[@ConociendoExcel]

debe ser que no estas separando de forma correcta el texto de los numeros

[@erickcolli3532]

@@ConociendoExcel Contexto: Estoy buscando en una hoja distinta la secuencia o la celada con la que a a comparar si existe dicho folio... ese resultado lo estoy enviando a una Etiqueta en un formulario. solo no logro hacer que este valla aumentando, o si existe algún código en donde de toda la columna sin importar la fila encuentre el valor mas grande y le agregue 1 para que se haga un consecutivo seria genial. Este es el código que estoy agregando: Private Sub UserForm_initialize() Dim fila As Long Dim final As Long Dim FOLIO, FOLIO1, INICIALES As String Dim AUTO As Integer fila = 4 Do While Hoja5.Cells(fila, 1) Empty fila = fila + 1 Loop final = fila - 1 If Hoja5.Cells(4, 1) = Empty Then frmBD.txtFolioFX = "ERICK00001" Else FOLIO = Hoja5.Cells(final, 1) FOLIO1 = Mid(FOLIO, 6) INICIALES = Left(FOLIO, 5) AUTO = Format(FOLIO1 + 1, "00000") frmBD.txtFolioFX = INICIALES & Format(AUTO, "00000") End If De antemano, agradezco su atención.

[@erickcolli3532]

No entiendo cual es la parte que me esta saliendo mal.

[@ConociendoExcel]

@@erickcolli3532 si quieres Atencion personalizada puedes adquirir asesoría con uno de nuestros programadores para solucionar todas las dudas que tengas . En nuestras página lo puedes conseguir www.conociendoexcel.com

[@oskitarpro]

Muy bueno. debiste compartir el code

[@ConociendoExcel]

Gracias, claro más adelante se subirá el archivo.

[@alastor1213]

como se haria esta misma funcion pero sin la ventana emergente que sale en excel? me refiero a que el boton este integrada en la hoja y no que aparesca como ventana emergente.

[@ConociendoExcel]

de la misma manera, solo que el textbox lo debes aplicar a una celda de excel

[@proyecto2148]

Excelente, es lo que buscaba, ahora vamos a suponer que tengo un formulario con el (código alfanumérico) donde añade una imagen y quiero que al añadir, se me crea una carpeta en la ubicación de mi archivo excel y dicha imagen cambie de nombre por el código alfanumérico, en donde veo este tema? Gracias nuevamente.

[@ConociendoExcel]

En google. Saludos

[@proyecto2148]

Ah bueno, ok