Como copiar linhas de uma folha para outra com base em alguns critérios?

Question

Eu preciso copiar linhas de uma planilha para outra planilha no Excel, com base em alguns critérios. Se na Folha 1 em alguma célula de linha na coluna H tiver "X" eu quero que a coluna de furo seja copiada na Folha 2. E eu quero isso para todas as linhas na Folha 1. Agora tenho cerca de 130 linhas na Folha 1, mas tenha mais no futuro. Alguém pode me ajudar? Obrigado, Nenad

    

Answer 1

O código a seguir filtra os dados em column H definindo "X" como o critério. O resultado da filtragem é copiado para o Sheet2

Sub CriteriaCopy()

    With ActiveSheet.Range("A:L")
         .AutoFilter Field:=8, Criteria1:="" & X & ""
    End With

    ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
    Destination:=Worksheets("Sheet2").Range("A1")

End Sub