¿Cómo copiar datos de una celda a un LISTBOX?, segun un COMBOBOX.
Hola Expertos, espero que tengan un excelente día. Mi consulta es la siguiente:
Tengo un formulario con un txtbox en el cual voy a ingresar un nombre, al costado del textbox tengo un boton llamado Buscar, debajo del TextBox y el Boton buscar hay un LISTBOX.
Lo que quiero es que cuando ingreso un nombre en el TextBox y hago click en el boton Buscar, en el LISTBOX me aparezca El nombre, su puntaje de Semana1, de semana2, de semana3 y semana4.
(Los datos son de acuerdo al nombre que ingrese en el textbox)
Los datos estan en la hoja BASE DE DATOS, Aquí dejo un ejemplo:
INGRESO: Pedro Ramiro Benites (Pedro tiene un puntaje de semana1,semana2,semana3 y semana4)
LISTBOX: quiero me aparezca su nombre y su puntaje de las semanas mencionadas.
Espero que me puedan ayudar, gracias de antemano. AQUI LES DEJO MI PROYECTO PARA QUE LO DESCARGUEN .
https://mega.co.nz/#!DQlV3JwS!2luV-cEjXa_6CiFRc_wNwz0SuU8h9jvMqOb-Q1dHogM
1 Respuesta
Pero te hice la función. Me parece que lo siguiente es lo que quieres...
Private Sub boton_buscar_Click()
If Me.txt_nombre.Value = Empty Then
MsgBox "No ha ingresado ningún nombre", vbInformation + vbOKOnly, "Búsqueda sin datos."
Me.txt_nombre.SetFocus
Else
Dim x As String
Dim found As Boolean
' Seleccionar primera línea de datos.
Sheets("BASE DE DATOS").Activate
Range("B2").Select
' Establecer un valor de búsqueda variable.
x = txt_nombre.Value
' Establecer la variable booleana "found" en false.
found = False
' Configurar el bucle Do para que se detenga al llegar a una celda vacía.
Do Until IsEmpty(ActiveCell)
' Buscar valor de búsqueda en celda activa.
If ActiveCell.Value = x Then
found = True
Exit Do
End If
' Bajar 1 fila de la ubicación actual.
ActiveCell.Offset(1, 0).Select
Loop
' Buscar el valor found.
If found = True Then
i = ListBox1.ListCount
ListBox1.AddItem
ListBox1.List(i, 0) = (ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
ListBox1.List(i, 1) = (ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
ListBox1.List(i, 2) = (ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
ListBox1.List(i, 3) = (ActiveCell.Value)
ActiveCell.Offset(0, 1).Select
ListBox1.List(i, 4) = (ActiveCell.Value)
txt_nombre.Value = ""
Else
MsgBox "No encontrado", vbExclamation, "Búsqueda"
End If
End If
End Sub
Hola Miguel, gracias por responderme.
Cuando encuentra el nombre lo ingresa en el listbox, pero si ingreso un nuevo nombre para buscar, el nombre anterior se queda guardado en el listbox, quiero que cuando haga nueva busqueda se borre el dato anterior, espero me ayudes amigo gracias de antemano estaré valorando tu respuesta.
Basta con colocar "ListBox1.Clear" (creo).
