Buscar texto en una columna de datos
Hola Amigos,
Soy nuevo por este lugar, estuve leyendo algunas cosas que me animaron a crear una pequeña aplicación en excel, la idea es la siguiente, tengo 3 columnas en la primera están los nombres comerciales de una empresa, en la segunda sus correos y en la tercera sus e-mails.
Lo que quiero hacer es colocar una caja de texto en la que el usuario vaya ingresando letras y en un listbox se vayan llenando los nombres comerciales de las empresas que van coincidiendo con estas letras, es decir se podría colocar en el evento change del texbox que busque la cadena dentro de la columna respectiva y luego los vaya agregando a la lista para que finalmente al darle click a uno de los elementos de la lista (seleccionar) me salte un msgbox con el correo y el numero de teléfono.
Como podría hacer eso, agradeceré me puedan ayudar con esto
gracias miles
Jack
Soy nuevo por este lugar, estuve leyendo algunas cosas que me animaron a crear una pequeña aplicación en excel, la idea es la siguiente, tengo 3 columnas en la primera están los nombres comerciales de una empresa, en la segunda sus correos y en la tercera sus e-mails.
Lo que quiero hacer es colocar una caja de texto en la que el usuario vaya ingresando letras y en un listbox se vayan llenando los nombres comerciales de las empresas que van coincidiendo con estas letras, es decir se podría colocar en el evento change del texbox que busque la cadena dentro de la columna respectiva y luego los vaya agregando a la lista para que finalmente al darle click a uno de los elementos de la lista (seleccionar) me salte un msgbox con el correo y el numero de teléfono.
Como podría hacer eso, agradeceré me puedan ayudar con esto
gracias miles
Jack
1 respuesta
Respuesta de Orlando Collarte
La idea es crear un formulario con un combobox y te buscara el dato que tu ingreses y te mostara los datos en un mensaje
Debes poner este código al interior del userform
Private Sub CommandButton1_Click()
Dim correos, mails As String
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
If ActiveCell.Value <> Empty Then
ActiveCell.Offset(0, 1).Select
correos = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
mails = ActiveCell.Value
MsgBox "Correo : " & correos & Chr(13) & "Mails : " & mails
Else
MsgBox "No existe Informacion"
Range("A1").Select
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim lista As Integer
lista = Worksheets("Hoja1").Range("A" & Cells.Rows.Count).End(xlUp).Row
If lista = 1 Then Exit Sub
ComboBox1.RowSource = "a1:a" & lista
End Sub
Debes poner este código al interior del userform
Private Sub CommandButton1_Click()
Dim correos, mails As String
Cells.Find(What:=ComboBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
If ActiveCell.Value <> Empty Then
ActiveCell.Offset(0, 1).Select
correos = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
mails = ActiveCell.Value
MsgBox "Correo : " & correos & Chr(13) & "Mails : " & mails
Else
MsgBox "No existe Informacion"
Range("A1").Select
End If
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim lista As Integer
lista = Worksheets("Hoja1").Range("A" & Cells.Rows.Count).End(xlUp).Row
If lista = 1 Then Exit Sub
ComboBox1.RowSource = "a1:a" & lista
End Sub
Gracias, con esta fuente ya tengo la idea y los códigos que se usan para estos casos, ahora usare los mismos para personalizar mi aplicación.
Un cordial saludo
Un cordial saludo
