Programer botones en un formulario
Hola que tal:
Quiero agregar dentro de un formulario cuatro botones:
Ir al principio de los registros
Anterior registro
Siguiente registro
Ultimo registro
Agradezco la ayuda, ya sea con código o con manual de macros avanzado.
Quiero agregar dentro de un formulario cuatro botones:
Ir al principio de los registros
Anterior registro
Siguiente registro
Ultimo registro
Agradezco la ayuda, ya sea con código o con manual de macros avanzado.
1 respuesta
Respuesta de Elsa Matilde
1
Si estamos hablando de que quieres que te devuelva los registros de una tabla en un form, estas son las rutinas. La primera es para encontrar un registro que se ejecuta al salir del primer cuadro de texto (TextBox1). Los demás para los otros 4 botones.
Private Sub TextBox1_AfterUpdate()
Sheets("Hoja3").Select
filalibre = Range("A2").End(xlDown).Offset(1, 0).Row 'la variable filalibre guarda el nro. de la primer celda vacía.
control = 0
dato = Val(TextBox1)
rango = "A2:A" & filalibre
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox2.Value = Range(ubica).Offset(0, 1).Value
TextBox3.Value = Range(ubica).Offset(0, 2).Value
control = 1
End If
Set midato = Nothing
End Sub
Para utilizar botones de navegación por registros agregar:
Private Sub cmdAnterior_Click()
TextBox1.Value = Range(ubica).Offset(-1, 0).Value
TextBox1_AfterUpdate
End Sub
Private Sub cmdSiguiente_Click()
TextBox1.Value = Range(ubica).Offset(1, 0).Value
TextBox1_AfterUpdate
End Sub
Private Sub cmdPrimero_Click()
TextBox1.Value = Range("A2").Value
TextBox1_AfterUpdate
End Sub
Private Sub cmdUltimo_Click()
TextBox1.Value = Cells(filalibre - 1, 1).Value
TextBox1_AfterUpdate
End Sub
Insertar un módulo y escribir lo siguiente:
Public ubica As String
Public control As Integer
Public filalibre As Integer
Si algo no queda claro, me volvés a contactar.
Saludos
Elsa
PD) No olvides finalizar. Gracias
PD2) Te invito a visitar mi página de macros, desde la web de Elsamatilde o
http://es.geocities.com/lacibelesdepunilla/macros
Private Sub TextBox1_AfterUpdate()
Sheets("Hoja3").Select
filalibre = Range("A2").End(xlDown).Offset(1, 0).Row 'la variable filalibre guarda el nro. de la primer celda vacía.
control = 0
dato = Val(TextBox1)
rango = "A2:A" & filalibre
Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox2.Value = Range(ubica).Offset(0, 1).Value
TextBox3.Value = Range(ubica).Offset(0, 2).Value
control = 1
End If
Set midato = Nothing
End Sub
Para utilizar botones de navegación por registros agregar:
Private Sub cmdAnterior_Click()
TextBox1.Value = Range(ubica).Offset(-1, 0).Value
TextBox1_AfterUpdate
End Sub
Private Sub cmdSiguiente_Click()
TextBox1.Value = Range(ubica).Offset(1, 0).Value
TextBox1_AfterUpdate
End Sub
Private Sub cmdPrimero_Click()
TextBox1.Value = Range("A2").Value
TextBox1_AfterUpdate
End Sub
Private Sub cmdUltimo_Click()
TextBox1.Value = Cells(filalibre - 1, 1).Value
TextBox1_AfterUpdate
End Sub
Insertar un módulo y escribir lo siguiente:
Public ubica As String
Public control As Integer
Public filalibre As Integer
Si algo no queda claro, me volvés a contactar.
Saludos
Elsa
PD) No olvides finalizar. Gracias
PD2) Te invito a visitar mi página de macros, desde la web de Elsamatilde o
http://es.geocities.com/lacibelesdepunilla/macros
Elsa:
Agradezco la atención que has dado mi respuesta, aunque no detalle bien mi necesidad. He de mencionar que ha sido de gran ayuda tu respuesta, pero tengo problemas para adaptarlo a lo que me están pidiendo.
1.- Tengo un userform en el cual tengo 2.- dos textbox, los cuales sirven para captar los datos capturados y enviarlos a celdas especificas de una hoja de calculo.
3.- Tengo dos botones que tienen la función de agregar o borrar registros y
4.- Cuatro botones para navegar en los registros.
El problema se sucita con los botones de anterior y siguiente.
Espero poder seguir contando con tu apoyo.
Agradezco la atención que has dado mi respuesta, aunque no detalle bien mi necesidad. He de mencionar que ha sido de gran ayuda tu respuesta, pero tengo problemas para adaptarlo a lo que me están pidiendo.
1.- Tengo un userform en el cual tengo 2.- dos textbox, los cuales sirven para captar los datos capturados y enviarlos a celdas especificas de una hoja de calculo.
3.- Tengo dos botones que tienen la función de agregar o borrar registros y
4.- Cuatro botones para navegar en los registros.
El problema se sucita con los botones de anterior y siguiente.
Espero poder seguir contando con tu apoyo.
¿Si yo supiera qué significa? ¿Captar los datos capturados y enviarlos a celdas especificas? Podría sobre la misma agregar las rutinas para el anterior y posterior.
En las rutinas que te envíe hay una (AfterUpdate) que busca un registro para modificarlo (según Textbox1) y regresa los cambios a las celdas de donde lo trajo. Sobre esos datos (ubica = dirección de ese registro) están armadas las otras 2 (anterior y posterior).
Si no te sirven, debieras aclararme anterior y posterior a qué registro debe buscar y copiarme la rutina que ya tenés, si es a partir de aquí que debo encontrar el anterior y posterior.
Si te parece enviarme el archivo, mi mail es: meyerelsaarARROBAyahooPUNTOcomPUNTOar
En las rutinas que te envíe hay una (AfterUpdate) que busca un registro para modificarlo (según Textbox1) y regresa los cambios a las celdas de donde lo trajo. Sobre esos datos (ubica = dirección de ese registro) están armadas las otras 2 (anterior y posterior).
Si no te sirven, debieras aclararme anterior y posterior a qué registro debe buscar y copiarme la rutina que ya tenés, si es a partir de aquí que debo encontrar el anterior y posterior.
Si te parece enviarme el archivo, mi mail es: meyerelsaarARROBAyahooPUNTOcomPUNTOar
