Definir rango de busqueda en VARIAS COLUMNAS

1 post / 0 nuevos
dejoramo
Imagen de dejoramo
Offline
última acción: Hace 3 semanas 18 horas
alta: 25/10/2019 - 11:17
Puntos: 25
Definir rango de busqueda en VARIAS COLUMNAS

Buenas tardes foreros, es la primera vez que posteo, asi que espero que me perdoneis por ser el nuevo. ;P

 

Necesito que me busque en varias columnas un valor (90000030) y me copie la fila entera en una nueva hoja. Lo que logro es que me busque 

 

en la columna F a partir del 18. por lo que quisiera que me buscara en las columnas "G" "H" "I" "J" " "K" "L"  a partir del 18 de cada 

 

una de ellas hasta la 800 .

 

Copio el codigo que tengo hasta el momento.

 

 

 

Sub Macro1()

 

'inicializo la variable j

 

c = 2           

 

      For i = 18 To 1000

 

If Cells(i, "F").Value = 90000030 Then

                'copio la fila entera

                [u]Range(Cells(i, "A"), Cells(i, "CP")).Copy[/u]

                'selecciono la hoja donde quiero pegar y después la celda

                Sheets("Filtro2").Activate

                    Cells(c, "A").Select

                'pego la fila que hemos copiado

                ActiveSheet.Paste

                'aumento la variable j para que vaya a la siguiente fila de la hoja filtros

                'cuando encuentre una nueva fila que cumple con la condición de edad

                c = c + 1

            End If

    Next

 

End Sub

Etiquetas: