Formulario de búsqueda con botón siguiente o anterior en excel

Tengo hecho un formulario donde le indico un buscador pero solo me muestra el primer registro y me gustaría poder visualizar los siguientes.

Ahora lo tengo con este código:

Private Sub CommandButton1_Click()
Dim id_Acta, idbuscar As String
Dim fila As Integer
fila = 4
id_Acta = TextBox8
Do While idbuscar <> id_Acta
fila = fila + 1
idbuscar = Range("b" & fila).Value
If idbuscar = Empty Then
MsgBox "No se ha encontrado"
Exit Do
End If
Loop

Dim fecha As String
fecha = Range("g" & fila).Value
TextBox11 = Range("k" & fila).Value
TextBox12 = Range("d" & fila).Value
TextBox1 = Range("a" & fila).Value
TextBox7 = Range("e" & fila).Value
TextBox3 = Range("f" & fila).Value
TextBox10 = Range("h" & fila).Value
TextBox8.SetFocus

End Sub

Private Sub CommandButton2_Click()
Dim id_fecha, idbuscar As String
Dim fila As Integer
fila = 4
id_fecha = TextBox4
Do While idbuscar <> id_fecha
fila = fila + 1
idbuscar = Range("g" & fila).Value
If idbuscar = Empty Then
MsgBox "No se ha encontrado"
Exit Do
End If
Loop

Dim fecha As String
fecha = Range("g" & fila).Value
TextBox8 = Range("b" & fila).Value
TextBox11 = Range("k" & fila).Value
TextBox12 = Range("d" & fila).Value
TextBox1 = Range("a" & fila).Value
TextBox7 = Range("e" & fila).Value
TextBox3 = Range("f" & fila).Value
TextBox10 = Range("h" & fila).Value
TextBox4.SetFocus

End Sub

Private Sub CommandButton3_Click()
Dim id_tema, idbuscar As String
Dim fila As Integer
fila = 4
id_tema = ComboBox1
Do While idbuscar <> id_tema
fila = fila + 1
idbuscar = Range("k" & fila).Value
If idbuscar = Empty Then
MsgBox "No se ha encontrado"
Exit Do
End If
Loop

Dim fecha As String
fecha = Range("k" & fila).Value
TextBox8 = Range("b" & fila).Value
TextBox11 = Range("g" & fila).Value
TextBox12 = Range("d" & fila).Value
TextBox1 = Range("a" & fila).Value
TextBox7 = Range("e" & fila).Value
TextBox3 = Range("f" & fila).Value
TextBox10 = Range("h" & fila).Value
ComboBox1.SetFocus
End Sub
Private Sub UserForm_Initialize()
ComboBox1. AddItem ("RIERAS")
ComboBox1. AddItem ("AGUA REGENERADA")
ComboBox1. AddItem ("UTE-AITASA-VEOLIA-CAMP")
ComboBox1. AddItem ("50 ANIVERSARIO AITASA")
ComboBox1. AddItem ("ACA")
ComboBox1. AddItem ("ACCIONS")
ComboBox1. AddItem ("AQUIFEROS PINEDA")
ComboBox1. AddItem ("AGUA CLORADA")
ComboBox1. AddItem ("ALMACEN CONJUNTO")
ComboBox1. AddItem ("CAPITAL SOCIAL")
ComboBox1. AddItem ("CARRECS CONSELL")
ComboBox1. AddItem ("CONVENIO AGUAS REUS")
ComboBox1. AddItem ("DEPOSITO")
ComboBox1. AddItem ("DIVERSOS")
ComboBox1. AddItem ("EMISARIO CONJUNTO")
ComboBox1. AddItem ("FINANZAS")
ComboBox1. AddItem ("FONDO COMUN")
ComboBox1. AddItem ("INDEX JEFE")
ComboBox1. AddItem ("INDICE")
ComboBox1. AddItem ("LITIGIO CATALUNYA CAIXA")
ComboBox1. AddItem ("OBJETIVOS AITASA")
ComboBox1. AddItem ("PARQUE BAMBEROS")
ComboBox1. AddItem ("PLAN PENSIONES")
ComboBox1. AddItem ("PORT TARRAGONA")
ComboBox1. AddItem ("POZOS")
ComboBox1. AddItem ("PROYECTO TARRAGONA 2017")
ComboBox1. AddItem ("PROYECTO VAPOR")
ComboBox1. AddItem ("RACKS")
ComboBox1. AddItem ("REUTILIZACION")
ComboBox1. AddItem ("RIERAS HASTA EL 2008")
ComboBox1. AddItem ("RIERAS A PARTIR DEL 2012")
ComboBox1. AddItem ("SUBSUELO")
ComboBox1. AddItem ("TARIFAS")
ComboBox1. AddItem ("TERRENOS")
ComboBox1. Additem ("resum consell representants cat")
ComboBox1. AddItem ("CAT DESDE 96")
ComboBox1. AddItem ("CAT INICIO HASTA 95")

End Sub

1

1 respuesta

Respuesta
1

Yo veo bien el código por encima si puedes enviarme el documento a este correo [email protected] a ver como esta funcionando eso

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas