UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Consulta con ListBox al Buscar el 25/06/14, 02:39 pm

Josefran


Hola buenas Tardes, Gracias de antemano por su ayuda, quisiera pedir una consulta.

Tengo un formulario el cual contiene un textbox y un ListBox.
En el cual quiero que mediante una busqueda en un Textbox, se visualize en el ListBox la busqueda.
1.- Quiero que busque mediante ingresando un Sistema Origen(Ejemplo S500,S404...) que existen desde la Fila A5 y me visualize en el data Grid.

2.- Que el ListBox tenga 9 datos de la hoja de Excel CA-PRO-INS (Esta parte creo la entiendo pero ocupo la parte 1 para probar si esta bien, si se puede Gracias)
Informacion Columna
Sistema     A,
Proceso         V,
Bin             B,
Segmento     E,
Producto     C,
Instrumento    D,
Segmento    N,
AcountType    O,
DescripcionLarga H.

Gracias de antemano Adjunto el archivo
https://www.dropbox.com/s/3ffl0c5853a8ljy/Catalogo.zip
Archivos
Catalogo.zip
No tienes los permisos para descargar los archivos.
(117 KB)

2RESUELTO Re: Consulta con ListBox al Buscar el 25/06/14, 03:43 pm

jhon1904


hola Josefran



subo tu archivo con lo que necesitas un poco diferente a lo que pides pero es mejor, espero le sirva

saludos

jhon
Archivos
Copia de Catalogo.zip
No tienes los permisos para descargar los archivos.
(93 KB)

3RESUELTO Re: Consulta con ListBox al Buscar el 25/06/14, 06:13 pm

Josefran


Esta Perfecto jhon, Muchas Gracias!!! yo desde  hay me encargo, perdona mi preguntas soy malo en esto.

Saludos y buenas Tardes !

4RESUELTO Re: Consulta con ListBox al Buscar el 25/06/14, 06:54 pm

Josefran


Jhon Sad perdona la molestia pero estaba viendo que me quitaste la parte donde podia seleccionar un item en la lista esta parte

Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate

Pero ocupaba seleccionar un item en la lista para poder borrar el item seleccionado, si me puedes ayudar estaria agradecido.

Private Sub ListBox1_Click()

Range("a2").Activate
Cuenta = Me.ListBox1.ListCount
Set Rango = Range("A1").CurrentRegion
For i = 0 To Cuenta - 1
    If Me.ListBox1.Selected(i) Then
        Valor = Me.ListBox1.List(i)
        'Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
    End If
Next i

End Sub

//////////////////////////////////////////////////
Este es mi boton para borrar la celda seleccionada

'Eliminar el registro
Private Sub CommandButton4_Click()
Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "EXCELeINFO")
If Pregunta <> vbNo Then
    ActiveCell.EntireRow.Delete
End If
'Call CommandButton5_Click
End Sub

//////////////////////////////////////////////////
Vere si puedo solo, Gracias Very Happy

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.