Control entre botones de un formulario

2 envíos / 0 nuevos
Último envío
Jose Luis Casla...
Imagen de Jose Luis Casla Araiz
Offline
última acción: Hace 1 año 1 mes
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 11/05/2012 - 15:15
Puntos: 1785
Control entre botones de un formulario

Tengo un formulario parecido al que genera automaticamente Excel para facilitar la entrada de datos.

Es decir, el formulario con sus TextBox, y sus CommanButton.

Tengo una Hoja con 5 columnas donde estan los datos.

En los 5 TextBox del Formulario, muestro el contenido de las 5 celdas de la primera fila.

Estoy tratando de hacer lo que hace el Formulario automatico del Excel, es decir, que con un boton me muestre el anterior y con otro el siguiente...

El macro que muestra los campos es tan sencillo como esto:

Sub VerRegistro()

Dim F As Long

F = 2         ' Numero de la primera fila con datos

UserForm1.TextBox1 = Cells(F, 1).Value

UserForm1.TextBox2 = Cells(F, 2).Value

UserForm1.TextBox3 = Cells(F, 3).Value

UserForm1.TextBox4 = Cells(F, 4).Value

UserForm1.TextBox5 = Cells(F, 5).Value

UserForm1.Show

End Sub

Como se puede pasar al macro que active el boton de "siguiente" para que muestra los campos, esa referencia de +1 o de -1...para que muestre la fila anterior o la siguiente...?  No doy con ello.

Saludos.

 

Jose Luis Casla...
Imagen de Jose Luis Casla Araiz
Offline
última acción: Hace 1 año 1 mes
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntos
alta: 11/05/2012 - 15:15
Puntos: 1785
Quiero decir que ya he

Quiero decir que ya he encontrado la solucion.

He declarado la variable que situa el numero de la fila como Publica, es decir en el ejemplo F.

De esta manera puede incrementar o disminuir en +1 o -1 el valor de F y muestra el registro siguiente o anterior. He cuidado que antes de añadir o restar 1, verifique si ha llegado al final o al principio de las filas de datos.

Guardo en R el numero de filas ocupadas:

R = Range([A1], ActiveSheet.UsedRange).Rows.Count

Y para la accion del boton Siguiente:

If F = R then F = R else F = F + 1

Para la accion del boton Anterior:

If F = 2 then F = 2 else F = F - 1

De esta manera funciona.

Saludos.