¿Cómo ingresar datos, a partir del ultimo registro hecho?

Hola amigos quisiera me puedan ayudar con esto, tengo una UserForm en excel la cual es para registrar hora de entradas y salidas de empleados, ya todo funciona, cuando registro la entra los datos se guardan en una fila de una hoja, pero al dar la salida no se como hacer para que solo me registre la hora de salida al lado de la de ultima entrada del empleado, ya que me registra todos los datos otra vez pero en otra fila y esto hace que tenga datos repetidos pero con hora de entra y salida separadas.

Básicamente lo que quiero es que cuando oprima el botón de Salida, el sistema busque la ultima entrada del empleado y coloque ahí la hora de salida.

Mi código del botón de entrada es el siguiente:

Sub Entrada()
Dim N As Long
Sheet3.Activate
N = 3
Do While (Cells(N, 1) <> Empty Or Cells(N, 2) <> Empty Or Cells(N, 3) <> Empty Or Cells(N, 4) <> Empty Or Cells(N, 5) <> Empty Or Cells(N, 6) <> empety Or Cells(N, 7) <> empety Or Cells(N, 8) <> empety Or Cells(N, 9) <> Empty)
N = N + 1
Loop
Cells(N, 1).Value = frmReloj.txtN.Text
Cells(N, 2).Value = frmReloj.txtnombre.Text
Cells(N, 3).Value = frmReloj.txtApa.Text
Cells(N, 4).Value = frmReloj.txtApm.Text
Cells(N, 6).Value = frmReloj.txtNow.Text
Cells(N, 7).Value = frmReloj.txtdate.Text
Cells(N, 8).Value = frmReloj.txtPuesto.Text
Cells(N, 9).Value = frmReloj.TxtTipo.Text
frmReloj.txtN.Text = ""
frmReloj.txtnombre.Text = ""
frmReloj.txtApa.Text = ""
frmReloj.txtApm.Text = ""
frmReloj.txtNow.Text = ""
frmReloj.txtPuesto.Text = ""
frmReloj.TxtTipo.Text = ""
frmReloj.txtN.SetFocus
Sheet1.Select
End Sub

que hago para que al momento de salir me registre al lado del la hora de la entrada la hora de salida.

0

Añade tu respuesta

Haz clic para o