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.]

VCURSOLA


BUEN DIA AMIGOS DE UNIVERSOEXCELFORO. TENGO UN PROYECTO EN EJECUCION ES UNA BASE DE DATOS DONDE SOLO SE EJECUTAN DOS USERFORM INGRESO DE DATOS Y BUSQUEDA.
AHORA MI PROBLEMA SE VE CUANDO EN LA HOJA 1 (INICIO) INTENTO UTILIZAR MI USERFORM DE BUSCADO QUE TIENE UN TEXTBOX EN EL CUAL INGRESANDO CUALQUIER DATO DE LA HOJA 3 (BUSQUEDA) DEBE TRAERME AUN LISTBOX LA FILA EN DONDE SE ENCUENTRE LA CORRESPONDENCIA TAN SOLO ESCRIBIENDO CUALQUIER VALOR DE LAS 10 COLUMNAS QUE TIENE LA TABLA3 DE LA HOJA 3. ADJUNTO MI PROYECTO GRACIAS. bounce
Archivos
PROYECTO.xlsm
No tienes los permisos para descargar los archivos.
(136 KB)

jhon1904


hola, vcursola

el codigo funciona correctamente,  el único inconveniente es que el listbox solo se puede agreagar un maximo de 10 columnas, pero la solución seria de que concatenaras el nombre con los apellidos y listo


lo colocarías así



Código:
 Me.LISTA.AddItem Cells(i, 1) & " " & Cells(i, 1).Offset(0, 2) & " " & Cells(i, 1).Offset(0, 3)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 1) = Cells(i, 1).Offset(0, 4)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 2) = Cells(i, 1).Offset(0, 5)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 3) = Cells(i, 1).Offset(0, 6)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 4) = Cells(i, 1).Offset(0, 7)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 5) = Cells(i, 1).Offset(0, 8)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 6) = Cells(i, 1).Offset(0, 9)

y solo utilizarías 8 columnas





espero te sriva


saludos

3RESUELTO FALTA ALGUNOS DETALLES el 16/12/15, 01:26 pm

VCURSOLA


GRACIAS TU APORTE ME SIRVIO DE MUCHO, PUEDO VISUALIZAR LAS 10 COLUMNAS EN EL LISTBOX PERO AUN LA BUSQUEDA ES DEPENDIENTE DE LA PRIMERA COLUMNA Y LO QUE INTENTO HACER ES QUE LA BUSQUEDA SEA DEPENDIENTE DE CUALQUIER ITEMS DE LA FILA A BUSCAR Y QUE SI TAN SOLO TENGO UN DATO DE LOS 10 PUEDA BUSCAR. CON ESO TERMINARIA MI PROYECTO. GRACIAS bounce

PD: VUELVO A ENVIAR EL PROYECTO CORREGIDO. santa
Archivos
PROYECTO.xlsm
No tienes los permisos para descargar los archivos.
(137 KB)

jhon1904


hola, vcursola

primero que todo no escriba en mayuscula por que eso significa que estas gritando segundo borra el codigo que tienes en el boton de buscar por el siguiente codigo,


Código:
Hoja3.Activate
        If Me.TEXTBUSCAR.Value = Empty Then
            MsgBox "ESCRIBA UN REGISTRO PARA BUSCAR"
            Me.LISTA.Clear
            Me.TEXTBUSCAR.SetFocus
            Exit Sub
        End If
Me.LISTA.Clear
 
b = Application.WorksheetFunction.CountA(Hoja3.Range("A1:xfd1"))
b1 = Application.WorksheetFunction.CountA(Hoja3.Range("A:A"))

For i = 1 To b
    For I1 = 2 To b1 + 1
    C = LCase(Hoja3.Cells(I1, i))
   
        If C Like "*" & LCase(Me.TEXTBUSCAR.Value) Then
                Me.LISTA.AddItem Cells(I1, 1) & " " & Cells(I1, 1).Offset(0, 2) & " " & Cells(I1, 1).Offset(0, 3)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 1) = Cells(I1, 1).Offset(0, 4)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 2) = Cells(I1, 1).Offset(0, 5)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 3) = Cells(I1, 1).Offset(0, 6)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 4) = Cells(I1, 1).Offset(0, 7)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 5) = Cells(I1, 1).Offset(0, 8)
                Me.LISTA.List(Me.LISTA.ListCount - 1, 6) = Cells(I1, 1).Offset(0, 9)
     
     
      End If
    Next I1
Next i
           
        Me.TEXTBUSCAR.SetFocus
        Me.TEXTBUSCAR.SelStart = 0
        Me.TEXTBUSCAR.SelLength = Len(Me.TEXTBUSCAR.Text)
Exit Sub

espero te sirva


saludos

5RESUELTO GRACIAS...!!! el 17/12/15, 12:54 pm

VCURSOLA


SE AGRADECE LOS APORTES BRINDADOS. CON ELLO TERMINE MI PROYECTO..!!! santa
FELIZ NAVIDAD...!!!

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.