Buscar en VBA
Hola, tengo 500 datos de unos clientes (#proceso, nombre, apellido, cedula, estado del proceso, atendido por) están en columnas con esos nombres. Tengo que hacer un formulario en el que con un combobox despliegue todas las cedulas(eso ya lo tengo), y con un botón de buscar, a partir de esa cedula que se selecciono, se imprima en unos labels de abajo los datos relacionados a esa persona. ¿Cómo lo hago?
1 respuesta
Respuesta de bacter582
1
Como estas camila, imagino que tienes todo esto en excel.
Si es así utiliza este código a ver si te ayuda
Private Sub CommandButton1_Click()
Dim encontrado As Boolean
Dim i As Integer
i = 1
encontrado = False
While (encontrado = False)
If ComboBox1.Text = Cells(i, 4).Value Then
Label1.Caption = Cells(i, 4).Offset(0, -3).Value
Label2.Caption = Cells(i, 4).Offset(0, -2).Value
encontrado = True
' aqui continuas poniendo las label que necesites
End If
i = i + 1
If i = 5000 Then
encontrado = True
MsgBox " no se encontro el registro"
End If
Wend
End Sub
Si es así utiliza este código a ver si te ayuda
Private Sub CommandButton1_Click()
Dim encontrado As Boolean
Dim i As Integer
i = 1
encontrado = False
While (encontrado = False)
If ComboBox1.Text = Cells(i, 4).Value Then
Label1.Caption = Cells(i, 4).Offset(0, -3).Value
Label2.Caption = Cells(i, 4).Offset(0, -2).Value
encontrado = True
' aqui continuas poniendo las label que necesites
End If
i = i + 1
If i = 5000 Then
encontrado = True
MsgBox " no se encontro el registro"
End If
Wend
End Sub
