CREAR FOLIO ALFANUMERICO AUTOMATICO
HTML-код
- Опубликовано: 11 сен 2024
- En este video muestro como poder generar folios automaticos alfanumericos, estos se ejecutaran gracias a las funciones Mid y Right.
OBTEN LAS PLANTILLAS COMPLETAS EN ESTE LINK:👇👇👇✅
👉👉👉 conociendoexcel.com
No olvides compartir el video y subscribirse al canal. Saludos.
contacto:
conociendoexcel2018@gmail.com
OBTEN LAS PLANTILLAS COMPLETAS EN ESTE LINK:👇👇👇✅
👉👉👉 conociendoexcel.com
.
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.
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
ruclips.net/video/iY7ohdLBS-E/видео.html
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?
AGREGAR EN EL CODIGO QUE TE SUME UN 1
@@ConociendoExcel muchas gracias por la pronta respuesta!!! lamentablemente no logré realizar el consecutivo sin salirme!!! siempre muchas gracias por compartir, son de gran ayuda!!!
@@jorgeleonaceituno9601 SALUDOS!!
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
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
Muy bueno. debiste compartir el code
Gracias, claro más adelante se subirá el archivo.
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.
Si claro pero eso ya seria mediante una asesoria personalizada, info al whatasapp: +52 984 287 5483
Te resolvieron?
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.
En google. Saludos
Ah bueno, ok
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?
debe ser que no estas separando de forma correcta el texto de los numeros
@@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.
No entiendo cual es la parte que me esta saliendo mal.
@@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
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.
de la misma manera, solo que el textbox lo debes aplicar a una celda de excel