Jump to content
smart27

Filtrar informacion!!!

Recommended Posts

Buenas Noches!!!

Escribo para ver si me pudieran ayudar, tengo 2 hojas una con nombre de los productos y otra con nombre de filtro.

en la hoja de filtros en la celda "B2" escribo el codigo del producto y de la columa "C" hasta la "F" aparece la informacion relacionada a este codigo

solo que yo quiero que muestre solamente lo igual al codigo que escribo y actualmente muestra informacion

relacionada con el codigo o parte de este. pero yo quiero que se igual al codigo.

me podria ayudar gracias. anexo ejemplo.

 

 

Share this post


Link to post
Share on other sites

Te dejo otra propuesta,

Sub FILTRAR()
Application.ScreenUpdating = False
 
Hoja1.Range("C1:C500").AutoFilter Field:=1, Criteria1:=Hoja2.Range("B2")
      Hoja2.Range("C1:F500").Clear: Hoja1.Range("C1:F500").Copy Destination:=Hoja2.Cells(1, 3)
If Hoja2.Range("C2") = "" Then Hoja2.Range("C1:F500").Clear: MsgBox "DATO NO ENCONTRADO", vbCritical

For Each Hoja In Sheets
    If Hoja.AutoFilterMode Then Hoja.AutoFilterMode = 0
Next
End Sub

Saludos Cordiales

Copia de FILTRO.xlsm

Share this post


Link to post
Share on other sites

Hola Alfonso5597, 

Si me sirvio se ve muy bien en la pantalla, tambien vi el primer codigo que compartistes y tambien funciono!!!

Sheets("Reporte").Cells.Clear

 n = 1
For i = 1 To Range("C" & Rows.Count).End(xlUp).Row
   For j = 3 To Range("C1").End(xlToRight).Column
        
       If LCase(CStr(Cells(i, j).Value)) Like LCase(Range("B2").Value) Then
         n = n + 1
         Rows(i).Copy Sheets("Reporte").Rows(n)
         Exit For
      End If
    
   Next j
Next i    
Rows(1).Copy Sheets("Reporte").Rows(1)
Application.ScreenUpdating = True

Mil gracias!!!

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy