codigo egresos caja chica

[pixel04]

necesito su ayuda *******...tengo un pequeño problema con el siguiente codigo:

Private Sub CommandButton1_Click()

Dim i As Integer

Dim final As Integer

For i = 1 To 1000

If Hoja2.Cells(i, 1) = "" Then

final = i

Exit For

End If

Next

Hoja3.Cells(final + 1, 1).Offset(3, 0) = UserForm4.TextBox1

Hoja3.Cells(final + 1, 3).Offset(3, 0) = UserForm4.TextBox2

Hoja3.Cells(final + 1, 4).Offset(3, 0) = UserForm4.TextBox3

Hoja3.Cells(final + 1, 5).Offset(3, 0) = UserForm4.TextBox4

Hoja3.Cells(final + 1, 6).Offset(3, 0) = UserForm4.TextBox5

UserForm4.TextBox1 = ""

UserForm4.TextBox2 = ""

UserForm4.TextBox3 = ""

UserForm4.TextBox4 = ""

UserForm4.TextBox5 = ""

UserForm25.Hide

UserForm4.Hide

End Sub

el problema que tengo es el siguiente...los datos se almacenan en una hoja de calculo, ingreso el primer egreso se registra bien pero el segudo se sobre escribe en el primero...por favor quiero saber donde esta mi error

[Invitado Cacho R]

Hola! pixel

Fíjate que la celda vacía la buscas en la hoja2, mientras que la introducción del dato lo haces en la hoja3...

Saludos, Cacho R.