Botón para ir al siguiente registro

Buenos días, es estado creando un formulario en excel para ingresar y ver información a una hoja de excel, pero tengo una duda de como crear una macro para ir al registro de la fila siguiente, ingrese los siguientes comandos pero me aparece el siguiente mensaje "NO SE HA DEFINIDO VARIABLE y me Marca la palabra fila:

Private Sub Cmb_FilaSiguiente_Click() 'Botón siguiente

Cells(Fila + 1, 1).Select Fila = ActiveCell.Row

CbB_Codigo.Value = ActiveCell

Tx_Medio.Value = ActiveCell.Offset(0, 1)

Tx_Documento.Value = ActiveCell.Offset(0, 2)

Tx_FIngreso.Value = ActiveCell.Offset(0, 4)

Tx_FFormIn.Value = ActiveCell.Offset(0, 5)

Tx_FFormFi.Value = ActiveCell.Offset(0, 6)

Tx_FRevisionIn.Value = ActiveCell.Offset(0, 7)

Tx_FRevisionFi.Value = ActiveCell.Offset(0, 8)

Tx_FRevCruzadaIn.Value = ActiveCell.Offset(0, 9)

Tx_FRevCruzadaFi.Value = ActiveCell.Offset(0, 10)

Tx_FFirmasIn.Value = ActiveCell.Offset(0, 11)

Tx_FFirmasFi.Value = ActiveCell.Offset(0, 12)

Tx_FPublicado.Value = ActiveCell.Offset(0, 13)

Tx_FComunicado.Value = ActiveCell.Offset(0, 14)

CbB_Funcionario.Value = ActiveCell.Offset(0, 15)

Tx_Observacion.Value = ActiveCell.Offset(0, 16)

Tx_FVisual.Value = ActiveCell.Offset(0, 17)

Tx_FArchivo.Value = ActiveCell.Offset(0, 18)

Tx_BolDoc.Value = ActiveCell.Offset(0, 19)

Tx_NueMod.Value = ActiveCell.Offset(0, 20)

Tx_FFormIn2.Value = ActiveCell.Offset(0, 25)

Tx_FFormFi2.Value = ActiveCell.Offset(0, 26)

Tx_FRevisionIn2.Value = ActiveCell.Offset(0, 28)

Tx_FRevisionFi2.Value = ActiveCell.Offset(0, 29)

Tx_FRevisionIn3.Value = ActiveCell.Offset(0, 30)

Tx_FRevisionFi3.Value = ActiveCell.Offset(0, 31)

Tx_FRevisionIn4.Value = ActiveCell.Offset(0, 32)

Tx_FRevisionFi4.Value = ActiveCell.Offset(0, 33)

Tx_FRevisionIn5.Value = ActiveCell.Offset(0, 35)

Tx_FRevisionFi5.Value = ActiveCell.Offset(0, 36)

Les agradezco su ayuda o si hay una forma mas fácil de hacerlo

1

1 respuesta

Respuesta
1

En alguna parte de tu macro tienes esta instrucción: ¿Option Explicit?

Entonces, Escribe esta declaración

Private Sub Cmb_FilaSiguiente_Click() 'Botón siguiente

dim fila as integer
Cells(Fila + 1, 1).Select Fila = ActiveCell.Row

Prueba y me comentas

Saludos. Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas