Filtrar informacion!!!

[smart27]

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.

 

 

[Haplox]

Hace 4 horas, smart27 dijo:

anexo ejemplo

Se te ha olvidado

[smart27]

Perdon anexo ejemplo

[smart27]

 anexo liga de enlace:

http://www.mediafire.com/file/hafk7zr3aoio3r8/FILTRO.xlsm/file

 

[Alfonso5597]

Hola amigo, aquí te dejo mi propuesta

Un saludo

FILTRO.xlsm

[DiegoLG]

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

[smart27]

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!!!

 

[smart27]

Buen dia DiegoLG!!!

ya lo lo probe y funciona a la perfecccion!!!

Mil Gracias!!!