Autogenerar codigo...!!!

[xbeetox]

Buenas, quisiera genera mi codigo de caso.

Ejemplo:

0001

0002

0003

Se tiene que generar al momento te apretar el boton GENERAR, y que se guarde en mi tabla "FORMULARIO".

Esperando su ayuda.. Gracias...!!!

linea.rar

[ramiroabrego]

No entendí, ¿puedes darnos más contexto?, para ver si te puedo apoyar con el código que necesitas.

[xbeetox]

Bueno necesito autogenerar un codigo.. pero que sea ascendente... cada vez que presione el BOTON Generar, adjunte mi formulario con mi tablas, en donde se tienes que guardar es en la tabla "FORMULARIO"

una ayuda.. es que no se como hacerlo

[Antoni]

Hola:

Prueba sustituyendo el evento click del botón btn_agregar por:

Private Sub btn_agregar_Click()


Dim ifila As Long

Dim ws As Worksheet

Set ws = Worksheets("FORMULARIO")



'encuentra la siguiente fila vacía

ifila = ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Row



'copiar los datos a la tabla de excel



If ifila = 2 Then

   ws.Cells(ifila, 1).Value = 1

Else

   ws.Cells(ifila, 1).Value = ws.Cells(ifila - 1, 1).Value + 1

End If



ws.Cells(ifila, 2).Value = Me.txt_fecha_caso.Value

ws.Cells(ifila, 3).Value = Me.txt_hora.Value

ws.Cells(ifila, 4).Value = Me.cb_motivo_llamada.List(cb_motivo_llamada.ListIndex, 0)

ws.Cells(ifila, 5).Value = Me.cb_motivo_llamada.List(cb_motivo_llamada.ListIndex, 1)



End Sub



[/CODE]

Para próximas consultas procura extenderte un poco mas en la explicación por medio de un ejemplo.

Hablas en todo momento de un botón "[i][b]Generar[/b][/i]" que no he sabido ver.

Saludos

[xbeetox]

Muchas gracias...!!! voy a tener encuenta sus observaciones... gracias...