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 estás conectado. Conéctate o registrate

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

1 Hola de nuevo! el 09/05/17, 07:39 am

Leoalex13


Buenas! 

Jhon, muchas gracias por tu anterior ayuda!



Por otro lado, desearía hacer lo mismo con otra hoja. Esta vez no hay cambios de hojas y desearía realizar la misma función.

Esta vez, al ser solo una hoja no hay que realizar cambios entre hojas.

No me deja subir foto ni nada por almacenaje...

Estos son los objetos (similar a lo de antes)

listbox: CAUGRUPOS1
textbox (para filtrar): Nbuscar
botón: CARGAR

Acciones:
1- Escribir (o no) un texto en Nbuscar(textbox para filtrar).
2- Sacar datos filtrados (o no) en el listbox (CAUGRUPOS1).
3- Pinchar en CARGAR y obtener el resto de datos.

--> Estos datos siempre se cogen de la hoja "CAU"

Adjunto el código modificado por mi.

Código:
Private Sub Nbuscar_Change()
    Nbuscar.Text = StrConv(Me.Nbuscar.Text, vbUpperCase)

On Error Resume Next
Dim col As Integer
Dim x, i, rw, a
col = 1
    
With Sheets("CAU")
    If Nbuscar <> "" Or Nbuscar <> Empty Then
       CAUGRUPOS1.Clear
       x = 0: i = 1
          
nxt:       rw = .Range(.Cells(i, col), .Cells(1000, col)).Find(Nbuscar, lookat:=xlPart).Row
           If rw = i Then Exit Sub
              CAUGRUPOS1.AddItem
              CAUGRUPOS1.List(x, 0) = .Cells(rw, 1)
              x = x + 1
              i = rw
GoTo nxt

           Else

             CAUPRUGPOS1.Clear
             For a = 0 To .Range("a1000").End(xlUp).Row - 2
                CAUGRUPOS1.AddItem
                CAUGRUPOS1.List(a, 0) = .Cells(a + 2, 1)
             Next a
        End If

    End With

End Sub


Un saludo y muchisimas gracias!

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.