Busca datos en todas las filas en base a criterios


Esta macro de Excel o procedimiento de VBA, recorre las filas de la hoja de Excel, a los fines de encontrar la palabra "incorrecto", una vez encontrado el dato hace un informe con todos los registros encontrados, adicionando en la última columna el número de fila en la cual está el registro en el padrón de artículos, haz click en el link del final para bajar el ejemplo.

Te recomiendo que leas un excelente libro sobre Excel para ello haz click acá.

El código que se encuentra a continuación se debe ingresar en un módulo, descargando el ejemplo lo podrás ver en funcionamiento, analizar, modificar y adaptar a lo que tú estés realizando el código está abierto sin ningún tipo de restricción.


Código a insertar en módulo

Sub busca()
Application.ScreenUpdating = False
Dim fila, fila1, numfila As Integer
fila = 2
fila1 = 2
Sheets("hoja1").Activate
While Sheets("hoja1").Cells(fila, 6) <> Empty
 If Sheets("hoja1").Cells(fila, 6) = "Incorrecto" Then
    Sheets("hoja1").Cells(fila, 6).Activate
    numfila = ActiveCell.Row
    Sheets("hoja2").Cells(fila1, 1) = Sheets("hoja1").Cells(fila, 1)
    Sheets("hoja2").Cells(fila1, 2) = Sheets("hoja1").Cells(fila, 2)
    Sheets("hoja2").Cells(fila1, 3) = Sheets("hoja1").Cells(fila, 3)
    Sheets("hoja2").Cells(fila1, 4) = Sheets("hoja1").Cells(fila, 4)
    Sheets("hoja2").Cells(fila1, 5) = Sheets("hoja1").Cells(fila, 5)
    Sheets("hoja2").Cells(fila1, 6) = numfila & " Incorrecto"
    fila1 = fila1 + 1
 End If
fila = fila + 1
Wend
Application.ScreenUpdating = True
End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.




If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
       

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends