Ver Mensaje Individual
  #1 (permalink)  
Antiguo 09/07/2012, 11:51
El_Gargola
 
Fecha de Ingreso: julio-2012
Ubicación: México
Mensajes: 2
Antigüedad: 10 años, 2 meses
Puntos: 0
Pregunta boton buscar siguiente VBA

Hola!! Tengon una table en excel en donde ya pude colocar un boton de busqueda, pero necesito colocar otro boton en donde haga una busqueda siguiente y me de la información requerida, pero la verdad no se como hacerle, en seguida coloco el comando que puse para mi primera busqueda, gracias de antemano.

Private Sub CommandButton1_Click()
Dim expediente_nombre, expedienteBusca As String
Dim fila As Integer
fila = 1
expediente_nombre = TextBox1
Do While expedienteBusca <> expediente_nombre
fila = fila + 1
expedienteBusca = Range("H" & fila).Value
If expedienteBusca = Empty Then
MsgBox "Expediente no encontrado"
Exit Do

End If
Loop

TextBox2 = Range("B" & fila).Value
TextBox3 = Range("M" & fila).Value
TextBox4 = Range("N" & fila).Value
TextBox5 = Range("C" & fila).Value
TextBox6 = Range("K" & fila).Value
TextBox7 = Range("L" & fila).Value
TextBox8 = Range("G" & fila).Value
TextBox1.SetFocus

End Sub