☰

Excel - como copiar todas as colunas seguidas com base em uma condição

tag-icon • tag-icon microsoft-excel vba
Excel - como copiar todas as colunas seguidas com base em uma condição

Sou novo em macros e espero que alguém possa ajudar. Tentando fazer um relatório a partir de uma planilha de dados que atenda a algumas condições. Preciso buscar todos os dados (células) em uma linha, por exemplo, que atendam à condição <1 na coluna 10 e copiar essas células/linha para uma nova planilha. Não consigo encontrar nenhuma função no Excel, então espero que uma macro não muito avançada que eu possa modificar possa resolver o problema. Desde já, obrigado.

Responder1

  • Abra uma cópia da sua planilha Excel contendo todos os dados
  • pressione ALT+ F11para abrir o editor VBA

  • abra a planilha1 no painel esquerdo e insira o código abaixo

    Sub mymacro()
  For myrow = 1 To Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If Cells(myrow, 8) < 1 Then
      i = i + 1
      ActiveWorkbook.Sheets(1).Rows(myrow).Copy Destination:=ActiveWorkbook.Sheets(2).Rows(i)
    End If
  Next myrow
End Sub
  • volte para sua planilha e pressione ALT+ F8e execute sua macro

Este código será executado até a última linha usada, verifique se o valor da 8ª coluna é <1 e se sim, copie a linha inteira para a próxima linha livre na planilha 2.

informação relacionada