Obtener varios resultados de una busqueda

[Leyda]

Hola, necesito ayuda...

estoy trabajando en un archivo de Excel, en el cual tengo una hoja llamada record clientes que extrae información de la base de datos de equipos rentados, de esta pretendo hacer una búsqueda en una hoja llamada REPORTE, donde al poner el nombre del cliente me aparesca información de los equipos rentados como son código numero de pedido descripción etc. es decir de cada equipo que tiene rentado lo e intentado con una macro pero no soy buena en esto lo adjunto por si no me explique...

Private Sub ACEPTAR_CLICK()
    Set h1  =  Sheets("recordclientes")
    Set h2  =  Sheets("REPORTE")
    u2  =  h2.Range("B" &  Rows.Count).End(xlUp).Row
    If u2 < 2 Then u2 = 2
    h2.Range ("B" & u2 & ":I") & .ClearContents
    j  =  12
    celda  = "G3"
    Set r  =  h1.Columns("A")
    Set b  =  r.Find(h2.Range(celda),  lookat:=xlWhole)
    If Not b Is Nothing Then
        ncell  =  b.Address
        Do
            h1.Range(h1.Cells(b.Row, "C"),  h1.Cells(b.Row, "L")).Copy
            h2.Cells(j, "C").PasteSpecial Paste:=xlValue

            j  =  j  +  1
            Set b  =  r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> ncell
       
       
    End If
End Sub

 

SANJOSERENTASM.xlsb

[ikanni]

Hola Leyda,

He eliminado alguna celda combinada que tenias en la Hoja REPORTE, No me gustan, dan sorpresas.

Espero te sirva

Ikanni

 

 

SANJOSERENTASM_IK.xlsb

[Leyda]

Ikanni mil gracias en verdad..

me ha servido pero se me presenta un pequeño detalle al estar probándolo ya no me carga me podrias apoyar?

 

[ikanni]

Hola leyda,

Que se ha roto?

[Leyda]

o no ya lo cheque era error de captura, oye una preguntota ikanni, no es posible que en donde sale la lista de validación se pueda introducir texto es que manejo demasiados clientes y es cansado estarlos buscando en la lista.. solo es una pregunta..

[ikanni]

Hola Leyda

Vete al modulo de la hoja 'REPORTE'  y elimina todo esto:

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$Z$1:$Z$" & ultimo
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Tendrás que meter el nombre igual que lo tienes en la hoja clientes para que funcione.

SAludos

 

Ikanni