Jump to content

Autogenerar codigo...!!!


Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy