Eu uso esse código:
Sub IMPRESSAO_PL()
Plan1.Range("A8:L100").ClearContents
ultimaLinha = Plan15.Cells(Rows.Count, "a").End(xlUp).Row
lin = 8
For i = 2 To ultimaLinha
If Plan15.Cells(i, 1) <> "Finalizado" And Plan15.Cells(i, 8) >= "900" And Plan15.Cells(i, 2) = "Atualizado" Then
Plan1.Cells(lin, 1) = Plan15.Cells(i, 1)
Plan1.Cells(lin, 2) = Plan15.Cells(i, 4)
Plan1.Cells(lin, 3) = Plan15.Cells(i, 5)
Plan1.Cells(lin, 4) = Plan15.Cells(i, 6)
Plan1.Cells(lin, 5) = Plan15.Cells(i, 7)
Plan1.Cells(lin, 6) = Plan15.Cells(i, 8)
Plan1.Cells(lin, 7) = Plan15.Cells(i, 10)
Plan1.Cells(lin, 8) = Plan15.Cells(i, 11)
Plan1.Cells(lin, 9) = Plan15.Cells(i, 12)
Plan1.Cells(lin, 10) = Plan15.Cells(i, 13)
Plan1.Cells(lin, 11) = Plan15.Cells(i, 14)
Plan1.Cells(lin, 12) = Plan15.Cells(i, 23)
lin = lin + 1
End If
Next
End Sub
Ao verificar se a coluna 1 da Plan15 estiver diferente de finalizado, se a coluna 8 for maior ou igual a 900 e se a coluna 2 está finalizado, irá copiar os dados que coincidem para uma outra planilha "Plan1".
Porém eu gostaria de adicionar mais uma condição:
Em uma outra planilha irei colocar algumas siglas e, que, só irá copiar as linhas que seguir todas as condições.
As colunas que deverão checar são: Coluna 5 e 13 < Deverão conter as siglas de uma outra Planilha e seguir as outras condições para que seja copiada a linha por completo. As siglas irei adicionar uma nova planilha e ficaram em A1:A25.
Já tentei de quase tudo e não estou conseguindo, não sou muito bom com VBA.
Obrigado desde já .
